Je souhaite modifier le champ "office" pour tous les utilisateurs de mon OU. J'ai a le faire pour un utilisateur mais je ne sais pas comment "boucler" sur tous les utilisateurs de mon OU.
- Code: Tout sélectionner
strContainer = "OU=Users,OU=FR"
strName = "Pierre"
On Error Resume Next
'***********************************************
'* Connect to an object *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & objRootDSE.Get("defaultNamingContext"))
'Set objItem = GetObject("LDAP://"& strContainer & "," & objRootDSE.Get("defaultNamingContext"))
'***********************************************
'* End connect to an object *
'***********************************************
strphysicalDeliveryOfficeName = objItem.Get("physicalDeliveryOfficeName")
'REMPLACEMENT DE "A" PAR "B"
NEWstrphysicalDeliveryOfficeName = replace(strphysicalDeliveryOfficeName,"B","A")
objItem.Put "physicalDeliveryOfficeName", NEWstrphysicalDeliveryOfficeName
objItem.SetInfo
Avez vous une idée ?
