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
