'========================================================================== ' ' NAME: ' ' AUTHOR: Ed Wilson , MS ' DATE : 6/13/2006 ' ' COMMENT: ' '========================================================================== 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