Mailadresse aus dem Active Directory auslesen
Das folgende VBScript zeigt die Mailadresse des aktuell genutzten Active Directory Benutzer 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 mail address
WScript.Echo "eMail address: " & objUser.mail
' 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 mail address
WScript.Echo "eMail address: " & objUser.mail
' 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_2610.html
[ Zur Startseite ] [ Zur Kategorie ]
© 2004-2021 by Georg Kainzbauer