create home directory while adding user to AD

[napoleon]

Can anyone tell me how people are adding new users to AD? Lets say for example: ADUC or VBScripts or any other third party tools? I dont have any issues adding users using AD except for when it came time to change the name of my file server that host each users home directory. I wanted to go to each one of my users account properties and modify the profile tab to change the name of the home directory server. After that simply creating a DNS record for the old server that maps to the ip of the new server would have been my solution except for the old server name needed to be used for another purpose, which is why I wanted to migrate home directories in the first place. Any ideas?

[Gonzo]

You should be able to take advantage of multi-object edit capability in ADUC. Apart from that, the script below will handle it by retrieving the list of subfolders of the root home folder on the new server, with assumption that their names match corresponding user accounts, and modify the home directory property of their AD objects accordingly:

Const ADS_SCOPE_SUBTREE = 2

sSrvOld = "OldServer"
sSrvNew = "NewServer"
sShare = "Users"
sDomainDN = "'LDAP://dc=domain,dc=com'"

Set oConn = CreateObject("ADODB.Connection")
Set oCommand = CreateObject("ADODB.Command")
oConn.Provider = "ADsDSOObject"
oConn.Open "Active Directory Provider"
Set oCommand.ActiveConnection = oConn

oCommand.Properties("Page Size") = 1000
oCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("\\" & sSrvOld & "\" & sShare)
Set cSubFolders = oFolder.Subfolders

For Each oSubFolder in csubFolders
Wscript.Echo oSubFolder.Name
oCommand.CommandText = "SELECT Name, HomeDirectory, ADsPath FROM " &
sDomainDN & _
" WHERE objectCategory ='user'" & _
" AND samAccountName='" & oSubFolder.Name & "'"
Set oRecordSet = oCommand.Execute
oRecordSet.MoveFirst
Do Until oRecordSet.EOF
Set oUser = GetObject(oRecordSet.Fields("ADsPath").Value)
oUser.HomeDirectory = Replace(oRecordSet.Fields("HomeDirectory").Value,
sSrvOld, sSrvNew, vbTextCompare)
oUser.SetInfo
oRecordSet.MoveNext
Loop
Next

You can also find some sample scripts at
http://www.microsoft.com/technet/scr....mspx?mfr=true