\"IF INGROUP\" funktion i WSH

Hmmm - stadig ikke meget run på denne side.
Her er svaret på min egen forespørgsel (igen), håber formateringen holder nogenlunde.

/KAX



On Error Resume Next
Dim network, ArrayDict

\'--------------------------------------------------------------------
\'OBJECTS
\'--------------------------------------------------------------------
Set network = CreateObject(\"Wscript.Network\")


\'--------------------------------------------------------------------
\'STANDARD NETWORKSMAPPINGS
\'--------------------------------------------------------------------
network.MapNetworkDrive \"k:\", \"\\\\server1\\helefirmaet\"
network.MapNetworkDrive \"p:\", \"\\\\mos-nt-server\\prg\"


\'--------------------------------------------------------------------
\'NETWORKSMAPPINGS EFTER GRUPPER
\'--------------------------------------------------------------------
If IsMember(\"IT\") Then                          \' der returneres sand / falsk (CBool)
    network.MapNetworkDrive \"i:\", \"\\\\server1\\alleit\"
    network.MapNetworkDrive \"h:\", \"\\\\server2\\users\\\" & network.Username
End If


\'--------------------------------------------------------------------
\'FUNKTION GENNEMSØG OG LED EFTER GRUPPE
\'--------------------------------------------------------------------
Function IsMember(sGroup)
    Dim AdsPath, oUser, oGroup

    If IsEmpty(ArrayDict) Then                        \'IsEmpty betyder kørsel kun hvis ArrayDict er tom
        Set ArrayDict = CreateObject(\"Scripting.Dictionary\")    \'Oprettelse af Array (ArrayDict)
        ArrayDict.CompareMode = vbTextCompare            \'Sammenligner tekst i Key området (dvs.ikke 2 ens poster tilladt)

        AdsPath  = network.UserDomain & \"/\" & network.UserName  \'AdsPath sættes til f.eks. TELIAINFOMEDIA\\KAX

        Set oUser = GetObject(\"WinNT://\" & AdsPath )        \'Laver et Object fra andre programmer eller programerings tools

        For Each oGroup In oUser.Groups                \'For hver gruppe oGroup får fra oUser.Groups (som er grupper under kax)
            ArrayDict.Add oGroup.Name, \"-\"            \'lægges disse ind i key området i ArrayDict. Items området indsættes \"-\"
        Next
       
        Set oUser = Nothing                    \'Objectet nulstilles.
    End If

    IsMember = CBool(ArrayDict.Exists(sGroup))                \'eksistere key\'en returneres enten sand / falsk (0) samme med CBOOL
End Function