PDA

Vollständige Version anzeigen : Benutzername abfragen


Benedict
10.06.2001, 19:13
Hallo *.*
Ich suche eine Methode um den Benutzernamen von Windows auszulesen. (Den welchen man beim Starten angibt...)
MFG Bendict

sarlt
11.06.2001, 00:56
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal _
lpszLocalName As String, ByVal lpszUserName As String, _
lpcchBuffer As Long) As Long

' return the current default user name or
' the user name used to establish a connection

Function NetworkUserName() As String
Dim buffer As String
buffer = Space$(256)
' if the WNetGetUser API returns 0, then
' the user name is in buffer
If WNetGetUser(vbNullString, buffer, Len(buffer)) = 0 Then
NetworkUserName = Left$(buffer, InStr(buffer, vbNullChar) - 1)
End If
End Function

Ich hoffe, das hilft Dir weiter.

Mfg

Sascha

Benedict
12.06.2001, 15:54
Danke Sascha! Ich werd's ausprobieren!