Fonction : IsMember verifie appartenance groupe AD

Une fonction VBS pour vérifier la présence d’un utilisateur dans un groupe Active Directory

La fonction renvoie True ou False

Function IsMember(groupName, UserName)
	If IsEmpty(groupListD) then
		Set groupListD = CreateObject("Scripting.Dictionary")
		groupListD.CompareMode = 1
		ADSPath = EnvString("userdomain") & "/" & UserName
		On error resume next
		Set userPath = GetObject("WinNT://" & ADSPath & ",user")
		If err.number <> 0 Then
			IsMember = False
		Else
			For Each listGroup in userPath.Groups
				groupListD.Add listGroup.Name, "-"
			Next
		End If
		On Error Goto 0
	End if
	IsMember = CBool(groupListD.Exists(groupName))
End Function

Function IsMember(groupName, UserName)

If IsEmpty(groupListD) then

Set groupListD = CreateObject("Scripting.Dictionary")

groupListD.CompareMode = 1

ADSPath = EnvString("userdomain") & "/" & UserName

On error resume next

Set userPath = GetObject("WinNT://" & ADSPath & ",user")

If err.number <> 0 Then

IsMember = False

Else

For Each listGroup in userPath.Groups

groupListD.Add listGroup.Name, "-"

End If

On Error Goto 0

End if

IsMember = CBool(groupListD.Exists(groupName))

End Function

Laisser un commentaire Annuler la réponse.

david on 9 août 2018 à 19 h 13 min

Cet article a été créé par david le 27 décembre 2016.