Hej!

Jag använder grupper för att ge användare rättigheter i mina program (Access-program).
Det är inga problem för mig att kontrollera om användaren är medlem i en viss grupp.

Men jag vill skriva ett gränssnitt för programrättighetshanteringen så att det är möiligt att ge en användare rättigheter i ett progam utan att använda AD't.

Problemet jag har är att lista möjliga grupper.
Jag skulle vilja lista alla grupper i ett specifikt OU gruppernas beskrivning och anteckning (notes).
Kan man göra det här med ett script?

Jag använder följande kod / script för att se om användaren är medlem i en sepcifik grupp:
<code>Function KollGrp(Domän, grupp) As Boolean
Dim oNet, strUser, User, Group
' Ta reda på vem som är inloggad i Domänen
Set oNet = CreateObject("WScript.Network")
strUser = oNet.Username
' Ta reda på om användaren tillhör gruppen
Set User = GetObject("WinNT://" & Domän & "/" & strUser & ",user")

For Each Group In User.Groups
If Group.Name = grupp Then
KollGrp = True
Exit Function
End If
Next
KollGrp = False
End Function</code>