Private Sub GetAllUsers() 'The following Visual Basic example gets all the users ' and their properties. Dim sReply As String On Error GoTo err sReply = m_SAClient.GetAllUsers MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub