Benutzer auslesen

[Ergün Polat]

Hallo erstmal,

ich möchte gerne den aktuellen Windows User auslesen und wissen ob der User
einer lokaler Benutzer oder ein Dömänenbenutzer ist.
Wie mache ich das.

Bisher habe ich das immer so gemacht:
********************************

'Windows Username auslesen

Private Declare Function GetUserName Lib _
"advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Befehl0_Click()

MsgBox GetWinBenutzer()

End Sub


Public Function GetWinBenutzer() As String
Dim n As String * 25
Dim i As Long, UserName As String

i = GetUserName(n, 25)
UserName = Left(n, InStr(n, Chr(0)) - 1)
GetWinBenutzer = UserName

End Function
****************************************
Danke schonmal im vorraus

[Henry Habermacher [MVP Access]]

Hallo Ergün Polat,

Post by Ergün Polat
ich möchte gerne den aktuellen Windows User auslesen und wissen ob der
User einer lokaler Benutzer oder ein Dömänenbenutzer ist.
Wie mache ich das.

Benutzername
? environ("UserName")

Domainname
? Environ("UserDomain")

Dann hast Du noch den
? Environ("LogonServer")

Wenn der LogonServer identisch ist mit der UserDomain (abgesehen von den \\
vor dem LogonServer Namen) kannst Du davon ausgehen, dass es ein lokaler
Benutzer ist, der sich lokal angemeldet hat.

Mehr Informationen zu Environ() findest Du in der OH

Wenn Du wissen willst, was es denn so alles für Variablen gibt, die
Environ() aus dem System herauskitzelt, dann ist das ziemlich einfach:

Öffne ein Command Prompt
Gib dort
c:\> SET
Ein und Du erhälst alle Umgebungsvariablen, die Environ() zur Verfügung
stehen.

Es geht also wahrscheinlich ziemlich einfach ohne API Aufrufe.

HTH
Henry