Checke AD Group medlemskab

Tusind tak for de mange forslag :)
Her er løsningen hvis nogen kan bruge det.




Set oRootDSE         = GetObject("LDAP://RootDSE")
sDomainADsPath        = "LDAP://" & oRootDSE.Get("defaultNamingContext")
Set oRootDSE         = Nothing
Set oCon         = Server.CreateObject("ADODB.Connection")
sUser            = "NET\ACCOUNT"
sPassword        = "PASSWORD"
oCon.Provider         = "ADsDSOObject"
oCon.Open "ADProvider", sUser, sPassword
Set oCmd        = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
sProperties        = "name,ADsPath,description,member"
sGroup            = "AD GROUP"
oCmd.CommandText    = "<" & sDomainADsPath & ">;(&(objectCategory=group)(name=" & sGroup & "));" & sProperties & ";subtree"
oCmd.Properties("Page Size") = 100
Set oRecordSet = oCmd.Execute(STRad)
While Not oRecordSet.EOF

aMember = oRecordSet.Fields("member")
SESSION("USER_ACCESS") = "FALSE"
If Not IsNull(aMember) Then
For icount = 0 to UBound(aMember)
       
NameStr = aMember(iCount)
TEMPA = Split(NameStr, "=")
TEMPB = Split(TEMPA(1), ",")
USER_INIT = UCASE(TEMPB(0))

If USER_INIT = LOGON_USER then
SESSION("USER_ACCESS") = "TRUE"
End if

Next
End If
oRecordSet.MoveNext
Wend

oRecordSet.Close
oCon.Close

Set oRecordSet = Nothing
Set oCon = Nothing