Dim oContainer
Set oContainer=GetObject("LDAP://OU=Ouname,DC=Domain,DC=com")

ModifyUsers oContainer

'cleanup
Set oContainer = Nothing

WScript.Echo "Finished"

Sub ModifyUsers(oObject)
Dim oUser
oObject.Filter = Array("user")
For Each oUser in oObject
oUser.SetPassword "12345678"
oUser.SetInfo
Next
End Sub