ad-fig10

Sub ModifyUsers(ByVal TheObject)
Dim TheUser
For Each TheUser In TheObject
Select Case TheUser.Class
Case "user"
TheUser.Put("DefaultPrinter", "LDNLGHNPXXX")
TheUser.Setinfo()
Case "organizationalUnit", "container"
ModifyUsers(TheUser)
End Select
Next
End Sub

Dim TheDomain
Set TheDomain=GetObject(LDAP://OU=AddingPrinters,DC=depicus,DC=com)
ModifyUsers(TheDomain)
Set TheDomain = Nothing
MsgBox "Finished"
WScript.Quit