Hallo Zusammen,
ich habe ein Script mit dem ich alle User unseres ADs auslesen möchte. Dieses Script soll in einer Datei ausgegeben werden, allerdings weiß ich nicht, wie ich das machen soll?!!... :-/ Bekomme nur eine Bildschirmausgabe... :-(
Hab vom scripten nicht allzuviel Ahnung...
hier das Script:
serverName = "Test"
baseStr = "dc=test,dc=de"
userName = "test@test.de"
userPass = "test123"
filterStr = "(&(objectCategory=person)(objectClass=user))"
Set ado = CreateObject("ADODB.Connection")
ado.Provider = "ADSDSOObject"
ado.Properties("User ID") = userName
ado.Properties("Password") = userPass
ado.Properties("Encrypt Password") = True
ado.Open "AD-Search"
Set adoCmd = CreateObject("ADODB.Command") adoCmd.ActiveConnection = ado
adoCmd.Properties("Page Size") = 2500
adoCmd.Properties("Cache Results") = True
adoCmd.CommandText = "<LDAP://" & serverName & "/" & baseStr & ">;" & filterStr & ";ADsPath;subtree"
Set objectList = adoCmd.Execute
While Not objectList.EOF
Set user = GetObject(objectList.Fields("ADsPath"))
WScript.Echo user.displayName
objectList.MoveNext
Wend
Schon einmal "Danke" für eure Hilfe.