Windows-Identität herausfinden

NeMeSiS1987

Erfahrenes Mitglied
Hallo,

gibt es eine Möglichkeit die Identität das aktuellen Benutzers herauszufinden?
Der Benutzername würde mir auch schon reichen...

Danke!

Grüße
NeMeSiS
 
Habs endlich selber gefunden...

Lösung:

Code:
Function getOSUserName() 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
        getOSUserName = Left$(strUserName, lngLen - 1)
    Else
        getOSUserName = ""
    End If
End Function

von http://www.office-loesung.de/ftopic4763_0_0_asc.php

Grüße
 
Zurück