Alla oleva toiminto palauttaa kirjautuneen käyttäjän käyttäjänimen, toimii sekä Windows NT- että Windows95/98 -käyttöjärjestelmissä.
Julkinen ilmoitustoiminto GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Kuten Long Function ReturnUserName () As String 'palauttaa NT -verkkotunnuksen käyttäjänimen Dim rString As String * 255, sLen As Long , tString merkkijonona tString = "" Virhe Jatka Seuraava sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) Jos sLen> 0 Sitten tString = Left (rString, sLen - 1) El t tring = rString End Jos On Error GoTo 0 ReturnUserName = UCase (Trim (tString)) End Function
Jos et halua palauttaa verkon käyttäjänimeä,
mutta haluat palauttaa käyttäjänimen, jonka käyttäjä on rekisteröinyt sovellukseen, voit tehdä tämän:
ActiveUserName = Sovellus.Käyttäjänimi