Changement du répertoire de base d’utilisateurs dans la base Active Directory

' Set SetInfo.vbs
' VBScript to Set Descriptions and Departments in a named OU
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.3 - September 27th 2004
' Adapted by Luc Santeramo - April 2006
' Now
' Version 4 -
' -----------------------------------------------------------------'
Option Explicit
Dim obj, objOU, objUser, objRootDSE, intCounter
Dim strContainer, strDNSDomain, strMyOU
Dim homeDir
strMyOU="OU=CI"
' Connection à AD
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
'Recuperation des données AD du domaine
set objOU = GetObject("LDAP://" & strDNSDomain )
intCounter = 0
For each obj in objOU
' on ne traite que les objets de type "OU"
if obj.class="organizationalUnit" Then
' on ne traite que l'OU choisie
if obj.name=strMyOU Then
Wscript.Echo obj.name
Set objOU = GetObject("LDAP://OU=Users," & obj.name & "," & strDNSDomain )
' pour chaque objet de l'OU on effectue le traitement
For each objUser in objOU
' traitement
homeDir = Split(objUser.homeDirectory, "")
if UBound(homeDir) > 0 Then
' changement du repertoire de base de l'utilisateur
objUser.Put "homeDirectory", "\seac-pdcusers%username%"
objUser.SetInfo
Wscript.Echo objUser.sAMAccountName
end if
' fin traitement
intCounter = intCounter + 1
next
End if
End if
next
Wscript.Echo intCounter
WScript.Quit

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *