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()
' 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 ]
© 2004-2021 by Georg Kainzbauer