Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize _ As Long) As Long 'Per avere una versione pulita del nome: Public Function NTDomainUserName() As String Dim strBuffer As String * 255 Dim lngBufferLength As Long Dim lngRet As Long Dim strTemp As String lngBufferLength = 255 lngRet = GetUserName(strBuffer, lngBufferLength) strTemp = UCase(Trim$(strBuffer)) NTDomainUserName = Left$(strTemp, Len(strTemp) - 1) End Function Utilizzare la seguente chiamata alle API: |