Map lecteurs et imprimantes
j ai un script que je lance à chaques ouverture de session des utilisateurs pour remonter les lecteurs mappe et imprimantes en fonction de leur appartenance à un groupe dans l'AD.
Mais il marche pas, il affiche le groupe auquel appartient l'utilisateur mais ne remonte pas les lecteurs et imprimantes.
ce script est le suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| ' GroupMap.vbs
' VBScript pour voir les membres d’un groupe et leurs affecter un lecteur mapper
' sur un dossier partagé et installer des imprimantes.
' -----------------------------------------------------------------'
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
' Initialisation des Groupes avec Const
Const Datu_Group = "cn=DATU"
Const Managers_Group = "cn=managers"
Const Users_Group = "cn=users"
Const Admin_Group = "cn=admin"
Const dsi_Group = "cn=dsi"
' Créer les objects et relever le contenu de strGroup
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))
' Si le test des groupes est concluant il affiche les noms des groupes
' auquels appartient l'utilisateur et mappe le lecteur réseau pour les partages ci dessous
' et enfin installe les imprimantes ci dessous.
If InStr(strGroup, lcase(admin_Group)) Then
'WScript.Echo "admin "
objNetwork.MapNetworkDrive "O:", "\\serv1\tech\" _
& objNetwork.UserName
objNetwork.AddWindowsPrinterConnection "\\serv1\hp8500"
objNetwork.SetDefaultPrinter "\\serv1\COPDATU"
ElseIf InStr(strGroup, lcase(dsi_Group)) Then
WScript.Echo " dsi "
objNetwork.MapNetworkDrive "h:", "\\serv1\tech\"_
& objNetwork.UserName
End If
Wscript.Echo "Finished Testing for Groups "
WScript.Quit |
Pouvez vous m'orienter dans les modifications à apporter.
merci
