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