Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Moving the Home folders for users in Active directory

Posted on 2008-06-18
4
Medium Priority
?
351 Views
Last Modified: 2010-08-05
I have copied the Home folders for our active directory users to a new location.
Is there a possible way to make all the users map to the new location without changing each one from the active directory users profile?
0
Comment
Question by:haftrine
  • 2
4 Comments
 
LVL 3

Expert Comment

by:GlobalStrata
ID: 21816503
Assuming that the directories you created for the users uses the User name, highlight all the users accounts and open properties.  Go to the profile Home Directory field and type \\SERVER_NAME\%USERNAME%

%USERNAME% will replace the Directory with the appropiate user name.

If the directory does not exist, AD will create it and provide the proper permissions.

Cheers,

Gladys I. Rodriguez
0
 
LVL 30

Expert Comment

by:LauraEHunterMVP
ID: 21817008
Not reasonably, no.

Assuming that everyone's pathname is in the format \\servername\%username%, download ADMODIFY.NET and make bulk modificaitons there instead of in ADUC.
0
 
LVL 7

Accepted Solution

by:
ms-pro earned 375 total points
ID: 21817906
try this http://manageengine.adventnet.com/products/ad-manager/active-directory-user-profile-settings.html
or use a vbs script, put it on a logon gpo.
Dim objNetwork, objFSO
Dim strDriveLetter, strUNCPath, strUser
 
On Error Resume Next
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork= CreateObject("Wscript.Network")
strUser =objNetwork.UserName
strUNCPath = "\\servername\profiles"
strNewName = "Home-Drive"
 
if objFSO.FolderExists(strUNCPath) then
 
  if objFSO.FolderExists(strUNCPath & "\" & strUser) then
 
  else
    objFSO.CreateFolder(strUNCPath & "\" & strUser)
  end if
end if
strDriveLetter = "H:"
objNetwork.RemoveNetworkDrive strDriveLetter, True
objNetwork.MapNetworkDrive strDriveLetter,strUNCPath & "\" & strUser
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
 
WScript.Quit

Open in new window

0
 
LVL 3

Expert Comment

by:GlobalStrata
ID: 21850974
The script provided does exactly the same thing that I explained above.  The problem with this is that you have no way to select the users you want to do this with.  All user profiles are changed.  

Cheers,

Gladys I. Rodriguez
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This process allows computer passwords to be managed and secured without using LAPS. This is an improvement on an existing process, enhanced to store password encrypted, instead of clear-text files within SQL
Microsoft Office 365 is a subscriptions based service which includes services like Exchange Online and Skype for business Online. These services integrate with Microsoft's online version of Active Directory called Azure Active Directory.
This tutorial will walk an individual through the process of transferring the five major, necessary Active Directory Roles, commonly referred to as the FSMO roles to another domain controller. Log onto the new domain controller with a user account t…
This tutorial will walk an individual through the process of configuring their Windows Server 2012 domain controller to synchronize its time with a trusted, external resource. Use Google, Bing, or other preferred search engine to locate trusted NTP …

783 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question