Lister les utilisateurs d'un groupe AD
Bonjour,
suite à ceci
J'aimerais avoir plus de précision concernant mon script VBS.
Mon script doit m'affiché tous les groupes pour un utilisateur connecté sur un réseau. En gros, sa donne : "CN=.....,OU=....,OU=...,DC=.....,DC=local"
a partir de la liste, j'aimerais extraire tout les CN de l'utilisateur pour pouvoir les comparer. Sa devrait donné quelque chose dans ce genre :
Parmi les CN que j'ai trouvé si un CN est égale à sa alors action.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| If strCnName = "Accueil" Then
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\Server\Imprimante_Accueil"
Set net = CreateObject("WScript.Network")
net.SetDefaultPrinter "\\Server\Imprimante_Accueil"
ElseIf strCnName = "Direction"
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\Server\Imprimante_Direction"
Set net = CreateObject("WScript.Network")
net.SetDefaultPrinter "\\Server\Imprimante_Direction"
Else
'Dans le sens ou l'utilisateur n'est pas dans l'AD
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\Server\Imprimante_Accueil"
Set net = CreateObject("WScript.Network")
net.SetDefaultPrinter "\\Server\Imprimante_Accueil"
End If |
Merci d'avance