Ik heb een werkend scriptje ondertussen:
Code: Selecteer alles
Option Explicit
Dim objOU, objUser, objRootDSE, intCounter
Dim strContainer, strLastUser, strDNSDomain
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
'LDAP verbinding
strContainer = "OU=users,OU=OU-TEST ,"
strContainer = strContainer & strDNSDomain
set objOU =GetObject("LDAP://" & strContainer )
intCounter = 0
'doorloop users
For each objUser in objOU
If objUser.class="user" Then
objUser.HomeDirectory = "\\dummy\users\" & objUser.Get("sAMAccountName")
objUser.HomeDrive = "Z"
objUser.SetInfo
intCounter = intCounter +1
End if
next
WScript.Echo intCounter & " homedirs naar \\dummy\users\%username% gezet!"
WScript.Quit
Probleem is dat blijkbaar de usermappen dan NIET gemaakt worden op de server, men moet deze handmatig maken en security settings doen. Volgens Microsoft is er geen manier om homedirs te scripten zodat de mappen ook effectief aangemaakt worden, dit wordt enkel gedaan als men handmatig de properties aanpast en op OK drukt :-S