Public Function AddUsergroupMember()
Const RAuthenticationTicket As String = "sid-xxxxxxxxxx"
Const IR_DomainName As String = "Knowledge Base"
Const IR_UserGroup As String = "Authors"
Const IR_UserName As String = "JoeD"
Dim IR_Obj As InfoRouter.srv
Dim xmlResponse As System.Xml.XmlElement
Try
IR_Obj = New InfoRouter.srv
xmlResponse = IR_Obj.AddUsergroupMember(IRAuthenticationTicket, _
IR_PWD, _
IR_DomainName, _
IR_UserGroup, _
IR_UserName)
If xmlResponse.GetAttribute("success") = "true" Then
Console.WriteLine("The user added to the user group")
Else
Console.WriteLine("The User cannot be added to the group.")
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
|