IsMember

' Controleer of een gebruiker lid is van een AD-groep.
Function IsMember(groupName)
	
	If IsEmpty(groupListD) Then
		Set groupListD = CreateObject("Scripting.Dictionary")
		groupListD.CompareMode = 1
		ADSPath = EnvString("userdomain") & "/" & EnvString("username")
		Set userPath = GetObject("WinNT://" & ADSPath & ",user")
		For Each listGroup In userPath.Groups
			groupListD.Add listGroup.Name, "-"
		Next
	End If
	
	IsMember = CBool(groupListD.Exists(groupName))
	
End Function

' Zoek een systeemvariabele.
Function EnvString(variable)
	variable = "%" & variable & "%"
	EnvString = objShell.ExpandEnvironmentStrings(variable)
End Function