adsi problem

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?!?!?

Request.ServerVariables("HTTP_REFERER")

Eller?

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