La funzione seguente restituirà il nome utente per l'utente connesso, funziona sia in Windows NT che in Windows95/98.
Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Funzione ReturnUserName() As String ' restituisce il nome utente del dominio NT Dim rString As String * 255, sLen As Long , tString As String tString = "" In caso di errore Riprendi successivo sLen = GetUserName(rString, 255) sLen = InStr(1, rString, Chr(0)) Se sLen > 0 Allora tString = Left(rString, sLen - 1) Altrimenti tString = rString End If On Error GoTo 0 ReturnUserName = UCase(Trim(tString)) End Function
Se non vuoi restituire il nome utente di rete,
ma vuoi restituire il nome utente che l'utente ha registrato con l'applicazione puoi farlo:
ActiveUserName = Applicazione.UserName