Benutzernamen und den vollständigen Namen eines Active Directory Users ausgeben

Das folgende VBScript ermittelt den Vor- und Nachnamen, den Anzeigenamen im Active Directory sowie den Anmeldenamen des aktuell verwendeten Active Directory Users und zeigt diese Informationen an.

Option Explicit

' Declaration of variables
Dim objADSystemInfo
Dim objUser
Dim strUsername

' Create object ADSystemInfo
Set objADSystemInfo = WScript.CreateObject("ADSystemInfo")

' Get username
strUsername = objADSystemInfo.UserName

' Create LDAP object
Set objUser = GetObject("LDAP://" & strUsername)

' Print user informations
WScript.Echo "First name: " & objUser.givenName & vbCrLf & _
             "Last name: " & objUser.sn & vbCrLf & _
             "Display name: " & objUser.displayName & vbCrLf & _
             "User logon name: " & objUser.userPrincipalName

' Deallocate used objects
Set objADSystemInfo = Nothing
Set objUser = Nothing

' Quit Visual Basic Script
WScript.Quit()

Dieser Eintrag wurde am 17.09.2014 erstellt.

Direkter Link zu dieser Seite: http://www.gtkdb.de/index_29_2609.html

[ Zur Startseite ] [ Zur Kategorie ]