login script skal tjekke brugergruppe

Du kan bruge en funktion ala:

Function GetGroupMemberships()
    Set objNetwork = CreateObject("WScript.Network")
    strDomain = objNetwork.UserDomain
    strUser = objNetwork.UserName
   
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)
    For Each objGroup In objUser.Groups
        If objGroup.Name <> "Domain Users" Then
        strResponse = strResponse & "," & objGroup.Name
        End If
    Next
   
    GetGroupMemberships = strResponse
End Function

I dette tilfælde lægges alle grupper, der ikke er Domain Users, som brugeren er medlem af, ind i en string som kommaseparerede værdier.

Du kan ændre det til et array, hvor du så kalder metoden som fx:

mitArray = GetGroupMemberships()

Og du kan så køre dette array igennem i en løkke ala:

For intCounter = 0 To UBound(mitArray) -1
' Gør noget ud fra den givne gruppe her...
Loop

Håber det hjalp dig i den rigtige retning.

mange tak

Fik du det til at spille?