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
| On Error Resume Next
Set wss = CreateObject("WScript.Shell")
Set env = wss.environment("process")
LocalUserName = env("USERNAME")
groupe = InputBox("Groupe :")
Set ok = 0
Set liste =""
Set objGroup = GetObject("LDAP://CN=" & groupe & ", OU=Groupes, OU=titi83, DC=titi, DC=fr")
if Err.Number = -2147016656 then
msgBox "Le groupe '" & groupe & "' n'existe pas."
else
membres = objGroup.member
for each membre in membres
Set objUser = GetObject("LDAP://" & membre)
GroupUserName = objUser.sAMAccountName
if LocalUserName = GroupUserName then
ok = 1
end if
next
if ok = 1 then
msgBox "L'utilisateur " & LocalUserName & " fait bien partie du groupe " & objGroup.cn & "."
else
msgBox "L'utilisateur " & LocalUserName & " ne fait pas partie du groupe " & objGroup.cn & "."
end if
end if |
Partager