Discussion :

[kev0631]

bonjour j'ai un code vbs que j'aimerai retranscrire en vba pour intégrer à une macro excel

le code vbs est le suivant , j'ai essayé mais sans y parvenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

déjà ce code fonctionne t'il en VBS ..?
ils sont bizarre tes Set OK .... set liste...