Try reversing the order you set the drive letter and path, and put a .setinfo between them.
-------------------------------------------------------------- Roger D. Seielstad - MTS MCSE MS-MVP Sr. Systems Administrator Inovis Inc. > -----Original Message----- > From: Gasper, Rick [mailto:[EMAIL PROTECTED] > Sent: Friday, August 08, 2003 11:13 AM > To: [EMAIL PROTECTED] > Subject: RE: [ActiveDir] changing home drive problem > > > I made those changes and I found an article about scripting home > folders. I can not find the article here, but I have it > booked marked at > home. The article said something about making sure the folders exist > before attempting to set the home folder. So I changed the code to > below. > > I still need to touch the home folder path in order for the folder to > map. > > Clients are win 2k and XP. Production Servers are win2k and win03. > My test domain is win 2003. The same effect happens on both test and > production. > > > > 'script to create home folders on new server > 'Rick Gasper > 'Copyright (c) 2003 > '8-8-2003 v2 > ' 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=UserAccts,DC=home,DC=test";) > Set objFSO = CreateObject("Scripting.FileSystemObject") > > 'startloop > For Each Usr In Ulist > 'set useracct variable so that the > > > useracct = usr.samaccountname > > strpath = "\\fs01\test$\" & usr.samaccountname > > 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 > ' pause to see if permissions kick in. > Wscript.Sleep 2000 > > strpath = "\\server1\test$\" & usr.samaccountname > > usr.HomeDirectory = trim(strpath) > usr.HomeDrive = "z" > usr.SetInfo > > Next > > Rick Gasper > Manager of Network Services > King's College > Wilkes-Barre PA 18706 > Phone: 570-208-5845 > Fax: 570-208-5989 > [EMAIL PROTECTED] > > > -----Original Message----- > From: Roger Seielstad [mailto:[EMAIL PROTECTED] > Sent: Friday, August 08, 2003 7:02 AM > To: '[EMAIL PROTECTED]' > Subject: RE: [ActiveDir] changing home drive problem > > Try making this change: > usr.HomeDirectory = strpath > To > usr.HomeDirectory = trim(strpath) > Not sure if that will do it, but I wonder if there isn't a trailing > character being stuck in there. > > Also, move your objFSO = create... Outside the For...Next loop - that > object > only needs to be instantiated once. It also looks like the struser= is > an > orphan statement - it never gets used, and that's a fairly costly > statement > to execute for ever iteration. Comment it out and see if that speeds > things > up. > > > -------------------------------------------------------------- > Roger D. Seielstad - MTS MCSE MS-MVP > Sr. Systems Administrator > Inovis Inc. > > > > -----Original Message----- > > From: Gasper, Rick [mailto:[EMAIL PROTECTED] > > Sent: Thursday, August 07, 2003 11:24 PM > > To: [EMAIL PROTECTED] > > Subject: [ActiveDir] changing home drive problem > > > > > > 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/ > > > 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/ > 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/ > 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/
