'==========================================================================
'
' NAME: <ModifyUserProfile.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 6/13/2006
'
' COMMENT: <Uses adsi to user profile page>
'
'==========================================================================
Option Explicit
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 "profilePath", "\\London\profiles\myNewUser"
objUser.put "scriptPath", "logon.vbs"
objUser.Put "homeDirectory", "\\london\users\myNewUser"
objUser.Put "homeDrive", "H:"
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