Allolev funktsioon tagastab sisselogitud kasutaja kasutajanime, töötab nii Windows NT kui ka Windows95/98 puhul.
Avalik deklareerimisfunktsioon GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Nagu Long Function ReturnUserName () As String 'tagastab NT domeeni kasutajanime Dim rString kui string * 255, sLen nii kaua , tString kui string tString = "" Viga jätkatakse Järgmine sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) Kui sLen> 0 Siis tString = Left (rString, sLen - 1) El = rString End Kui viga ilmneb GoTo 0 ReturnUserName = UCase (Trim (tString)) lõppfunktsioon
Kui te ei soovi võrgu kasutajanime tagastada,
kuid soovite tagastada kasutajanime, mille kasutaja on rakenduses registreerinud, saate seda teha:
ActiveUserName = Application.UserName