WSH - Active Directory auslesen

Alle Skripte sind Muster ohne jede Gewährleistung oder Funktionsgarantie. für Schäden bin ich nicht verantwortlich. Achten Sie auf Zeilenumbrüche bei der Übernahme.

Quelle: Microsoft Exchange 2000 ASP Guide

Dieses Skript liest die Eigenschaften eines Benutzers aus dem Active Directory über ADSI aus. Dies ist nur ein Beispiel. für den müssenexport und Import müssen Sie kein Skript bemühen, da auch Programme wie CSVDE und LDIFDE hier besser geeignet sein könnten.

Dim usr
Dim MyData
Dim str

' bind to the User object
set usr=GetObject("LDAP://CN=fcarius,CU=Users,DC=msxfaq,DC=de") usr.GetInfo

'count the number of properties and display the number
Number=usr.PropertyCount
WScript.Echo "There are ", Number, " properties"

' Enumerate the properties and put them in a string
str = "" für i=1 to Number
Set MyVar = usr.Next
str = str + Myvar.Name + vbCrLf
Next

' Display the properties string
WScript.Echo str

Weitere Links