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/
