Private Sub GetConnectionsCount(MyDomain$, MyProject$)
'The following Visual Basic example counts the connections
' to all projects in the MyDomain domain.
Dim sDomainName As String
Dim sProjectName As String
Dim sReply As String
Dim ReturnVal As String
On Error GoTo err
sDomainName = MyDomain
sProjectName = MyProject
ReturnVal = m_SAClient.GetConnectionsCount _
(sDomainName, sProjectName)
MsgBox "Number of connections: " + ReturnVal
Exit Sub
err:
MsgBox "Program failed:" + err.Description
End Sub