Ok, detta plockar fram grupptillhörighet från AD't och lagrar det i en semikolonseparerad sträng:

Dim objNetwork,objUser,group

Dim UserName ' Användarnamn
Dim UserDomain ' Användardomän
Dim UserGroups ' Användargrupper (Semikolonseparerad sträng)

Set objNetwork = CreateObject("WScript.Network")
UserDomain = objNetwork.UserDomain
UserName = objNetwork.UserName
Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
For Each group In objUser.Groups
  UserGroups = UserGroups & group.Name & ";"
Next
UserGroups = Left(UserGroups,Len(UserGroups)-1)
Set objNetwork = Nothing
Set objUser = Nothing

Tackar,

Jag fick en lista på de grupper som finns på maskinen som scriptet ligger på men det jag egentligen vill är att kolla i en annan...

Sen fick jag lägga till UserDomain "hårdkodat, APOLLO" enligt nedan för att få det att funka.

<%

Dim objNetwork,objUser,group

Dim UserName ' Användarnamn
Dim UserDomain ' Användardomän
Dim UserGroups ' Användargrupper (Semikolonseparerad sträng)

Set objNetwork = CreateObject("WScript.Network")
UserDomain = objNetwork.UserDomain
UserName = objNetwork.UserName
'Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Set objUser = GetObject("WinNT://APOLLO/" & UserName & ",user")
For Each group In objUser.Groups
UserGroups = UserGroups & group.Name & ";"
Next
UserGroups = Left(UserGroups,Len(UserGroups)-1)
Set objNetwork = Nothing
Set objUser = Nothing

response.write UserGroups

%>

Jag får testa vidare.

Kollade du vad som stod på sidan jag länkade till?

Jag flyttade skriptet till IIS:en på min arbetsstation och fick ungefär samma problem som dig. Det funkar dock i IIS:en på våra domänkontrollanter... jag misstänker att AD't måste ligga på maskinen i fråga..(?)

Ok, jag får kanske använda mig av lokal grupp i så länge...
Tack för hjälpen!
/Henrik