Tālāk norādītā funkcija atgriezīs reģistrētā lietotāja lietotājvārdu, darbojas gan operētājsistēmā Windows NT, gan sistēmā Windows95/98.
Publiskās deklarēšanas funkcija GetUserName Lib "advapi32.dll" _ Pseidonīms "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Kā Long Function ReturnUserName () As String 'atgriež NT domēna lietotājvārdu Dim rString As String * 255, sLen As Long , tString As String tString = "" On Error Resume Next sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) If sLen> 0 then tString = Left (rString, sLen - 1) Else tString = rString beigas, ja rodas kļūda GoTo 0 ReturnUserName = UCase (Trim (tString)) beigu funkcija
Ja nevēlaties atgriezt tīkla lietotājvārdu,
bet vēlaties atgriezt lietotājvārdu, kuru lietotājs ir reģistrējis lietojumprogrammā, varat to izdarīt:
ActiveUserName = Lietojumprogramma. Lietotāja nosaukums