Clearing AD user account attribute using Dictionary Array 2

[Brycspain]

Hello,

Trying to clear the office field in the user account properties in AD. Since I have about 400 users I started with the script to clear one account and am trying to iterate through all the accounts by using the dictionary object, however, I'm getting an error in line 13:

VScript runtime error: Object required: 'objUser'

Any help would be appreciated thanks.

Const ADS_PROPERTY_CLEAR = 1
Dim objDictionary, objOU, ObjUser, ObjItem
Set objDictionary = CreateObject("Scripting.Dictionary")
i = 0
Set objOU = GetObject("LDAP://OU=Users-Test-Scripts, OU=Users-ALL, DC=microsoft, DC=com")
objOU.Filter = Array("User")
For Each objUser In objOU
    objDictionary.Add i, objUser.CN
    i = i + 1
Next
For Each objItem in objDictionary

objUser.PutEx ADS_PROPERTY_CLEAR, "physicalDeliveryOfficeName", 0
objUser.SetInfo
Next

 

[dm4ever]

Why not just clear the field as you iterate through the users instead of adding them to a dictionary?


--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[Brycspain]

That sounds like a good suggestion but I have no idea how to do it that way. If you have a snipet I can review that would be great. Thanks

 

[dm4ever]

I haven't tried this, but don't see why this would work.

Const ADS_PROPERTY_CLEAR = 1
Dim objOU, ObjUser, ObjItem

Set objOU = GetObject("LDAP://OU=Users-Test-Scripts, OU=Users-ALL, DC=microsoft, DC=com")
objOU.Filter = Array("User")

For Each objUser In objOU
	objUser.PutEx ADS_PROPERTY_CLEAR, "physicalDeliveryOfficeName", 0
	objUser.SetInfo
Next

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[Brycspain]

Thanks a bunch dm4ever, are you a new guru to these parts? Never seen you post here before.

Another question: How could I iterate through several Sub Ou's? I have a main user OU and several subOU's...and even a few subs of the subs. For example:

MainOU
SubOU1
SubOUa
SubOU2
SubOU3
SubOUa

Would I use a dictionary object to store all the subOU's or would I have to list them somehow..like in a text file?

 

[dm4ever]

You could try something like this. (haven't really tested it)

GetADUsers("OU=Users-Test-Scripts, OU=Users-ALL, DC=microsoft, DC=com")

Function GetADUsers(strRoot)
' 	On Error Resume Next

	Dim objOU, objItem
	
	Const ADS_PROPERTY_CLEAR = 1
	
	Set objOU = GetObject("LDAP://" & strRoot)
	
	For Each objItem In objOU
		If UCase(objItem.Class) = "USER" Then
			WScript.Echo objItem.CN
' 			objUser.PutEx ADS_PROPERTY_CLEAR, "physicalDeliveryOfficeName", 0
'     		objUser.SetInfo
		ElseIf UCase(objItem.Class) = "ORGANIZATIONALUNIT" Then
			GetADUsers(objItem.DistinguishedName)
		End If
	Next 
End Function

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[PHV]

Anyway, if you want to use the Dictionary object:
For Each objItem in objDictionary
obj[!]Item[/!].PutEx ADS_PROPERTY_CLEAR, "physicalDeliveryOfficeName", 0
obj[!]Item[/!].SetInfo
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Brycspain]

Thanks PHV....it's always something really simple however, I find a way to miss it. Any input on my second question?