HI all,
I am moving home folders to a new server. Since I have thousands of
users I need to script this.
The script works fine, however the new home folders don't map until I go
into aduc, make a change to the home folders (add a space to the end of
the path then delete it) ) and hit apply. I am working with the connect
to line.
Does anyone have any ideas why this is and more important: how do I get
around it? I really don't want to have to open 3000 accts.
The script is below:
'********************************************************
'script to create home folders on new server
'Rick Gasper
'Copyright (c) 2003
'8-7-2003
' You may use, modify, reproduce, and
' distribute this script in any way you find useful, provided that
' you agree that the copyright owner above has no warranty, obligations,
' or liability for such use.
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'get users from ad
Set Ulist = GetObject("LDAP://OU=test,ou=User-Accts,DC=home,DC=test";)
'startloop
For Each Usr In Ulist
'set useracct variable so that the
useracct = usr.samaccountname
struser = "WinNT://server1/" & usr.samaccountname & ",user"
strpath = "\\server1\staff$\" & usr.samaccountname
usr.HomeDirectory = strpath
usr.HomeDrive = "S"
usr.SetInfo
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strpath)
Set wshShell = WScript.CreateObject("Wscript.Shell")
'create xcalcs scripts
struserperms = useracct & ":rwc /y"
stradminperms = " /G administrators:f " & useracct & ":f /y"
strperms = "xcacls " & strpath & stradminperms
wshShell.Run strperms
Next
'end here
Rick Gasper
Manager of Network Services
King's College
Wilkes-Barre PA 18706
Phone: 570-208-5845
Fax: 570-208-5989
[EMAIL PROTECTED]
List info : http://www.activedir.org/mail_list.htm
List FAQ : http://www.activedir.org/list_faq.htm
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
