✔ Windows-Identität herausfinden

[NeMeSiS1987]

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

 

[NeMeSiS1987]

Habs endlich selber gefunden...

Lösung:

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

 

[Tekkion]

cool sowas hat mir auch noch gefällt danke