Modify the User Profile Path

Description
Configures the user profile path for a user.

Script Code

Set objUser = GetObject _
  ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")

objUser.GetInfoEx Array("profilePath"), 0
strCurrentProfilePath = objUser.Get("profilePath")

intStringLen = Len(strCurrentProfilePath)
intStringRemains = intStringLen - 11
strRemains = Mid(strCurrentProfilePath, 12, intStringRemains)
strNewProfilePath = "\\fabrikam" & strRemains

objUser.Put "profilePath", strNewProfilePath
objUser.SetInfo

The System Administration Scripting Guide, part of the Windows .NET Server Resource Kit. For more information, contact scripter@microsoft.com.