Active Directory | un petit script qui connecte tes lecteurs réseau, tes imprimantes, te change la moquette et te refait la tapisserie

On a tous besoin d'un script (et de Tennessee aussi) dans nos environnement AD qui permet, selon l'appartenance de l'utilisateur à un groupe, de connecter tel ou tel partage réseau ou imprimante. Il effectue aussi un nettoyage des connexions au lancement mais en laissant le choix de ne pas en supprimer certaines (dans notre cas U:).

Et comme on est toujours à le recherche de ce genre de script (au fonctionnement vérifié et validé par mes soins), je vous propose donc ce code à mettre dans un fichier VBS afin de l'utiliser dans vos GPO ou dans NETLOGON.
--------------------------------------------------------------------------------->
For Each strGroup in objUser.MemberOf

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
Set clDrive = objNetwork.EnumNetworkDrives
Set clPrinters = objNetwork.EnumPrinterConnections
On Error Resume Next
For i = 0 to clPrinters.Count - 1 Step 2
    objNetwork.RemovePrinterConnection clPrinters.Item(i+1), true
Next
On Error Resume Next
For i = 0 to clDrive.Count - 1 Step 2
    If clDrive.Item(i) <> "U:" Then
                objNetwork.RemoveNetworkDrive clDrive.Item(i), true
    ENd If
Next
objNetwork.mapnetworkdrive "Z:","\\domain.com\profiles$\"&objUser.sAMAccountName&"\My Documents"
objNetwork.mapnetworkdrive "X:","\\domain.com\public$"

objNetwork.AddWindowsPrinterConnection ("\\domain.com\XEROX-OPENSPACE")
objNetwork.AddWindowsPrinterConnection ("\\domain.com\XEROX-BOARDROOM")
objNetwork.setdefaultprinter "\\domain.com\XEROX-OPENSPACE"


On Error Resume Next

    strGroupPath = "LDAP://" & strGroup
    Set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN
    Select Case strGroupName
  Case "Company-Direction-Group"
   objNetwork.mapnetworkdrive "Y:","\\domain.com\direction$"
   objNetwork.AddWindowsPrinterConnection ("\\domain.com\XEROX-DIRECTION")
   objNetwork.setdefaultprinter "\\domain.com\XEROX-DIRECTION"

  Case "Company-Technique-Group"
   objNetwork.mapnetworkdrive "Y:","\\domain.com\technique$"
   objNetwork.AddWindowsPrinterConnection ("\\domain.com\XEROX-TECHNIQUE")
   objNetwork.setdefaultprinter "\\domain.com\XEROX-TECHNIQUE"
   
    End Select
next

--------------------------------------------------------------------------------->