Modifying user account information

[markwilliamson2001]

It is to do with line 8 char 1 around this area i guess, but objuser is not explicitly defined as such:

objUser.Description = strDisplayName
objUser.SetInfo

which is part of:

For each objUser in objOU
' Get the user's display name
strDisplayName = objUser.displayName
' Set the user's discription = user's display name
objUser.Description = strDisplayName
objUser.SetInfo
Next

Hope this helps,

Thanks for all the help so far! This seems like a tedious thing, but the network manager wants it!

Mark

[markwilliamson2001]

I also checked out the struserOU, and it matches with a ou called TESTBATCH in an existing OU called Pupil. Not sure if this makes a difference!

Ta
Mark

[Iain]

Line 8 Char 1 corresponds to

Set objOU = GetObject ("LDAP://" & strUserOU)

Which means there is an error when trying to bind to the users OU.
If you do a WScript.Echo strUserOU, it should display:

ou=TESTBATCH,ou=Pupil,<rest of default naming context e.g. dc=xxx,dc=yyy etc.>

[Assuming the user objects to be modified are in and OU called TESTBATCH which is in an OU called Pupil which is in the domain root]

[markwilliamson2001]

It only displays ou=TESTBATCH,DC=CHASE,DC=local, even though the TESTBATCH ou is inside an existing ou called pupil, which is in the domain root!

after the echo, it still crashes, at the same point, line 8 (now line 9).

Thanks
Mark

[markwilliamson2001]

I have included my current script, modified for your perusa

Set objRootDSE = GetObject("LDAP://rootDSE")

' Define the Distinguished Name of the Organizational Unit
' containing the users to modify
strUserOU = "ou=TESTBATCH," & objRootDSE.Get("defaultNamingContext")
WScript.Echo strUserOU

' Bind to the users OU
Set objOU = GetObject ("LDAP://" & strUserOU)

' Set the filter to only return user objects
objOU.Filter = Array("user")

' Iterate through the user objects setting the required 
' attributes
For each objUser in objOU
	' Get the user's display name
	strDisplayName = objUser.displayName
	' Set the user's discription = user's display name
	objUser.Description = strDisplayName
	objUser.SetInfo
Next

' Clean up
Set objOU = Nothing
Set objRootDSE = Nothing

Thanks
mark

[Iain]

Thought that may be the case, strUserOU needs to point to the correct OU of the user objects.

Probably my fault for not adding sufficient comments to the script, but objRootLDAP.Get("defaultNamingContext") only returns the distinguished name for the root of the directory, which in your case is DC=CHASE,DC=local

So, if you chnage the line

strUserOU = "ou=TESTBATCH," & objRootDSE.Get("defaultNamingContext")

To read

strUserOU = "ou=TESTBATCH,ou=Pupil," & objRootDSE.Get("defaultNamingContext")

Hopefully is should work.

Iain.

[markwilliamson2001]

Still crashes at Line 9!! Think I am going to give up on this!

Thanks for all the help anyway.

Mark

[Iain]

Did you make sure there was a comma after ou=Pupil ?

[markwilliamson2001]

Thanks that worked a treat!

Mark