' 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