---
title: "adsi problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44385-adsi-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "clown"
published: "2002-05-23T08:41:15.000Z"
updated: "2002-05-23T11:47:12.000Z"
replies: 1
views: 161
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/44385-adsi-problem"
---

# adsi problem

## #1 — clown, 2002-05-23T08:41Z

Hej,

jag listar ut en massa användare från en lokal grupp mha ADSI,
 men jag undrar hur man tar reda på vilken domän som användaren kommer från?

```
'function to list the users and groups within a specific user group.
'Function must be supplied with two arguments:
'sDomainName: The domain name or computer name
'sGroupName: The name of the user group
Function ListUsers(sDomainName, sGroupName)

   Dim sUserList
   Dim sMyParent

   Set Group = GetObject("WinNT://" & sDomainName & "/" & sGroupName)

   For Each Member in Group.Members

      On Error Resume Next

      sMyParent = Member.Parent
      sMyParent = Right(sMyParent, Len(sMyParent) - InStrRev(sMyParent, "/"))
   
      If Member.Class = "User" Then
	 	 Set userClass = GetObject(member.Schema)
		 sUserList = sUserList & "<b>" & Member.Name & "</b><br>"
         sUserList = sUserList & "  Full Name: " & Member.FullName & "<br>"
         sUserList = sUserList & "  Description: " & Member.Description & "<br>"
         sUserList = sUserList & "  Account Disabled: " & Member.AccountDisabled & "<br>"
         sUserList = sUserList & "  Domain: " & "<br>" ' [red]***HJÄLP BEHÖVS HÄR***[/red]
		 
		 For Each property In userClass.MandatoryProperties
		    sUserList =sUserList & property & " : " &  member.Get(property) & "<br>"
 		 Next
		
		 For Each property In userClass.OptionalProperties
		    sUserList =sUserList & property & " : " &  member.Get(property) & "<br>"
		 Next
         sUserList = sUserList & "<p>"

      ElseIf Member.Class = "Group" Then

         sUserList = sUserList & Member.Name & "< br>"
         sUserList = sUserList & "  Description: " & Member.Description & "<br>"
         sUserList = sUserList & "<p>"

      End If
         
   Next

   If sUserList = "" Then
      sUserList = "<p>This group does not contain any users</p>"
   End If

   ListUsers = sUserList

End Function
```

Någon som har en aning?!?!?

Permalänk: https://www.webforum.nu/p/44385

## #2 — Ekström, 2002-05-23T11:47Z

Request.ServerVariables("HTTP_REFERER")

Eller?

Förstår inte riktigt vad du menar...

Permalänk: https://www.webforum.nu/p/681000

---

Tråden på webben: https://www.webforum.nu/amne/asp/44385-adsi-problem