Windows-Benutzer auslesen
04.10.2004 14:59:30
Hape
zur Benutzeridentifizierung möchte ich den Benutzernamen, mit dem sich eine Person am Client angemeldet hat, im Autostart-Makro auslesen und als Wert in eine Zelle schreiben.
Für Access habe ich mal ein entsprechendes Makro gefunden (s.u.)! Gibt es etwas ähnliches auch für Excel?
Vielen Dank schon mal vorab!!!
Hape
Function BenutzerName() As String
Dim lngLen As Long
Dim lngX As Long
Dim strBenutzerName As String
strBenutzerName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strBenutzerName, lngLen)
If lngX <> 0 Then
BenutzerName = Left$(strBenutzerName, lngLen - 1)
Else
BenutzerName = ""
End If
End Function