PrivateSub GetAllDomains()
'The following Visual Basic example gets all the domains
' and their properties.
Dim sReply AsStringOnErrorGoTo err
sReply = m_SAClient.GetAllDomains
MsgBox sReply
Exit Sub
err:
MsgBox"Program failed:" + err.Description
End Sub