Wie ermittelt man den Anmeldenamen unter Windows?
Option Compare Database
Option Explicit
Private Declare Function apiGetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long |
Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function |
Zum Ermitteln des angemeldeten Netzwerkusers verwenden Sie folgenden Aufruf:
MsgBox "Der aktuelle Netzwerkbenutzer: " & fOSUserName
Zurück zu Tipps und Tricks
|