Habe mir ein Script geschrieben mit dem die Passwörter der Benutzer in einer bestimmten OU gesetzt werden.
Davor habe ich die Kennwortrichtlinien noch angepasst, damit die Benutzer aktiviert importiert werden.
Funktionierte! Hier mein Script:
const OU = "OU=test,dc=mh,dc=local"
Const PWD = "welcome"
Set objCon = CreateObject ("ADODB.Connection")
Set objCom = CreateObject ("ADODB.Command")
objCon.Provider = "ADsDSOObject"
objCon.Open "Active Directory Provider"
Set objCom.ActiveConnection = objCon
objCom.CommandText = "<LDAP://" & OU & ">;(&(objectClass=User)(objectCategory=person));ADSPath;onelevel"
Set objRS = objCom.Execute
Do Until objRS.EOF
Set objUser = GetObject(objRS.Fields("adspath"))
objUser.SetPassword PWD
objRS.MoveNext
Loop