Bonjour tout le monde !
je fais appel aux star du VBS ! apparement c'est pas compliqué j'ai trouver moultes exemples mais aucun ne fonctionne, j'ai essayer de comprendre d'adapter mais rien a faire !
voila mon but est de tester l'appartenance a un group d'un utilisateur connecter a un controleur de domain !
voici mon script
Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer, samere
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
MsgBox strUserDN
Set UserName = GetObject("LDAP://" & strUserDN)
MsgBox UserName
For Each UserGroup In UserName.groups
Select Case UserGroup.name
Case "Admin":
MsgBox "administrateurs"
End Select
Next
MimS