Passwort-Reset Batch für User in einer OU und direkt auch alles Unter-OU eingebunden

Set objOU = GetObject("LDAP://ou=abteilung01,dc=firma,dc=ch")  

WScript.Echo "Bei folgenden User Accounts wurde das Passwort auf test-01 zurueckgestellt:" & vbCrLF  
EnumUsers(objOU)

Sub EnumUsers(objParent)
objParent.Filter = Array("user")  

For Each objUser In objParent
    WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")"  
    objUser.SetPassword "test-01"  
Next

objParent.Filter = Array("organizationalUnit")  
For Each objChild In objParent
    EnumUsers(objChild)
Next
End Sub