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()

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 ]