'==========================================================================
'
'
' NAME: <ModifyUserAddressTab.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 6/17/2006
'
' COMMENT: <Uses adsi to modify the second page information of user object>
'
'==========================================================================
Option Explicit
On Error Resume Next
Dim strProvider 'Defines how will talk. 
Dim strOU 			'Path to where new object will be created
Dim strDomain 	'Name of domain connecting to
Dim strOUName 	'User name
Dim objUser 		'Holds connection to adsi

strProvider = "LDAP://"
strOU = "ou=mred,"
strDomain = "dc=nwtraders,dc=msft"
strOUName = "CN=myNewUser,"

Set objUser = GetObject(strProvider & strOUName & strOU & strDomain)
WScript.echo strProvider & strOUName & strOU & strDomain ' debug info
objUser.Put "streetAddress", "123 main st"
objUser.Put "postOfficeBox", "po box 12"
objUser.Put "l", "Bedrock"
objUser.Put "st", "Arkansas"
objUser.Put "postalCode" , "12345"
objUser.Put "c", "US"
objUser.Put "co", "United States"
objUser.Put "countryCode", "840"
objUser.SetInfo

If Err.Number = 0 Then
WScript.Echo("User " & strOUName & " was modified") 
Else
WScript.echo "An error occurred. it was: " & Err.Number
End If