Private Sub GetDomain()
'The following Visual Basic example gets the properties
' and projects of a domain.
Dim sDomainName As String
Dim sReply As String
On Error GoTo err
sDomainName = "MyDomain"
sReply = m_SAClient.GetDomain(sDomainName)
MsgBox sReply
Exit Sub
err:
MsgBox "Program failed:" + err.Description
End Sub