Angemeldeten Benutzer feststellen

Sprache / Programm: VBS (Windows Scripting) · VBA ab Office 2000

Beschreibung

Das Programm gibt folgende Informationen über den angemeldeten Benutzer aus: Benutzername bei der Anmeldung, Domäne bei der Anmeldung, Name des verwendeten Computers.

VBA-Quelltext

Public Function BenutzerFinden() As String
If EnableErrorTrapping Then On Error Resume Next

With CreateObject("Wscript.Network")
BenutzerFinden = .UserDomain & "\" & .UserName & vbNewLine & "PC: " & .ComputerName
End With
End Function

Argumente der Funktion/Prozedur

Keine Argumente erforderlich

Rückgabewert

Der Aufruf kann z.B. folgendes Ergebnis liefern:

DE\ralf.pfeifer

PC: LOHNB196

Hinweis

Die Funktionen werden vom Windows Scripting Host bereitgestellt und können überall in VBA genutzt werden.