VBScript change in AD accounts the existing path Userfolder and profile path.

strOutputfile = "Users_ProfilePaths.csv"
 
If Right(LCase(WScript.FullName), 11) = "wscript.exe" Then
      Set objShell = CreateObject("WScript.Shell")
      objShell.Run "cmd /k cscript """ & WScript.ScriptFullName & """", 1, False
      Set objShell = Nothing
      WScript.Quit
End If
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
adoCommand.ActiveConnection = adoConnection
 
 ' Search entire Active Directory domain.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
 
strDetails = """User Name"",""Full Name"",""AdsPath"",""Script Path"",""Old Home Directory"",""New Home Directory"",""Old Profile Path"",""New Profile Path"""
 
strOldPath = "\\server1\profiles\"
strNewPath = "\\server2\profiles\"
strOldHomeDirectory = "\\server1\user$\"
strNewHomeDirectory = "\\server2\user$\"
strOU = "OU=Users,OU=MainOffice,"
 
If Trim(strOU) <> "" Then
	If Right(strOU, 1) <> "," Then strOU = strOU & ","
Else
	strOU = ""
End If
strBase = "<LDAP://" & strOU & strDNSDomain & ">"
strFilter = "(&(objectCategory=person)(objectClass=user)(profilePath=" & Replace(strOldPath, "\", "\5c") & "*))"
'(profilePath=" & strOldPath & "*)
'strFilter = "(&(objectClass=computer)(cn=" & strComputer & "))"
 
' Comma delimited list of attribute values to retrieve.
'strAttributes = "sAMAccountName,cn"
strAttributes = "samAccountName,cn,adsPath,ScriptPath,homeDirectory,profilePath"
 
' Construct the LDAP syntax query.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 100
adoCommand.Properties("Timeout") = 30
adoCommand.Properties("Cache Results") = False
 
' Run the query.
Set adoRecordset = adoCommand.Execute
 
' Enumerate the resulting recordset.
Do Until adoRecordset.EOF
    ' Retrieve values and display.
      strUserName = adoRecordset.Fields("samAccountName").Value
      strFullName = adoRecordset.Fields("cn").Value
      strOUPath = Replace(adoRecordset.Fields("adsPath").Value, "LDAP://CN=" & strFullName & ",", "")
      strScriptPath = adoRecordset.Fields("ScriptPath").Value
      strOldHomeDirectory = adoRecordset.Fields("homeDirectory").Value
      strProfilePath = adoRecordset.Fields("profilePath").Value
      strNewProfile = strNewPath & Mid(strProfilePath, InStrRev(strProfilePath, "\") + 1)
      WScript.Echo "Processing " & strFullName
      Set objUser = GetObject(adoRecordset.Fields("adsPath").Value)
      objUser.profilePath = strNewProfile
      objUser.homeDirectory = strNewHomeDirectory & Mid(strOldHomeDirectory, InStrRev(strOldHomeDirectory, "\") + 1)
      objUser.SetInfo
      Set objUser = Nothing
      strDetails = strDetails & VbCrLf &_
            """" & strUserName & """" &_
            ",""" & strFullName & """" &_
            ",""" & strOUPath & """" &_
            ",""" & strScriptPath & """" &_
            ",""" & strOldHomeDirectory & """" &_
            ",""" & strNewHomeDirectory & Mid(strOldHomeDirectory, InStrRev(strOldHomeDirectory, "\") + 1) & """" &_
            ",""" & strProfilePath & """" &_
            ",""" & strNewProfile & """"
    ' Move to the next record in the recordset.
    adoRecordset.MoveNext
Loop
 
' Clean up.
adoRecordset.Close
Set adoRecordset = Nothing
 
adoConnection.Close
 
Set objOutputFile = objFSO.CreateTextFile(strOutputFile, True)
objOutputFile.Write strDetails
objOutputFile.Close
Set objOutputFile = Nothing
 
WScript.Echo "Done"
MsgBox "Done"

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95: