I have got the following script:
Set oContainer = GetObject("LDAP://OU=junior,OU=PHS
Students,DC=harvester,DC=pampaisd,DC=net")
ModifyUsers oContainer
'cleanup
Set oContainer = Nothing
WScript.Echo "Finished"
Sub ModifyUsers(oObject)
Dim oUser
oObject.Filter =...