[Visual Basic]
Public Shared Function GetDomainMembers(ByVal AuthenticationTicket As String, _
                                        Byval DomainName as string) as xmldocument

AuthenticationTicket

infoRouter Authentication Ticket

DomainName

The domain name of the members to be listed

Public Sub GetDomainMembers()
        Const IRAuthenticationTicket As String = "sid-xxxxxxxxxxxx"
        Const IR_DomainName As String = "Accounting"
 
        Dim IR_Obj As InfoRouter.srv
        Dim xmlResponse As System.Xml.XmlElement
        Try
 
            IR_Obj = New InfoRouter.srv
            xmlResponse = IR_Obj.GetDomainMembers(IRAuthenticationTicket, _
                                                  IR_DomainName)
 
            If xmlResponse.GetAttribute("success") = "true" Then
                Dim xmlelem As System.Xml.XmlElement
                'list users
                Console.WriteLine("------- [Member Users] ----------")
 
                Dim xmlusersElem As System.Xml.XmlElement
                xmlusersElem = xmlResponse.ChildNodes(0)
                For Each xmlelem In xmlusersElem.ChildNodes
                    Console.WriteLine(xmlelem.GetAttribute("UserName"))
                Next
                xmlusersElem = Nothing
 
                'list usergroups
                Console.WriteLine("------- [Member Groups] ---------")
                Dim xmlusergroupsElem As System.Xml.XmlElement
                xmlusergroupsElem = xmlResponse.ChildNodes(0)
                For Each xmlelem In xmlusergroupsElem.ChildNodes
                    Console.WriteLine(xmlelem.GetAttribute("GroupName"))
                Next
                xmlusergroupsElem = Nothing
 
            Else
                Console.WriteLine("Domain members cannot be reached.")
                Console.WriteLine("server response:" & xmlResponse.GetAttribute("error"))
            End If
            xmlResponse = Nothing
 
        Catch ex As Exception
            Console.WriteLine("error:" & ex.Message)
        Finally
            IR_Obj = Nothing
        End Try
 
    End Sub