Visual Basic |
---|
Public Function GetAllDomains() As String |
On success, returns an XML string containing the domain properties.
- DOMAIN_ID - The domain ID.
- DOMAIN_NAME - The domain name.
- PASSWORD - Not in use.
- ADMIN_PASSWORD - Not in use.
- PHYSICAL_DIRECTORY - The physical directory of the domain.
- COMPANY_NAME - The company name.
- CONTACT_NAME - The contact name.
- CONTACT_EMAIL - The contact email.
- USERS_QUOTA - The maximum number of concurrent connections to all Projects in domain. -1 indicates an unlimited number of connections.
- DEFECTS_QUOTA - Not in use.
- PROJECTS_QUOTA - Not in use.
- FILESYSTEM_QUOTA - Not in use.
- USERS_VERSION - For internal use.
- PROJECTS_LIST XML Root The domain projects are in this list.
If a domain includes projects, the following project properties are displayed:
- PROJECT_NAME - The project name.
- PR_IS_ACTIVE - Indicates if the project is active (Y/N).
- SAQ_IS_ACTIVE - Indicates if SEND ALL QUALIFIED is active (Y/N).
<GetAllDomains>
<TDXItem>
<DOMAIN_ID>1</DOMAIN_ID>
<DOMAIN_NAME>DEFAULT</DOMAIN_NAME>
<PASSWORD></PASSWORD>
<PHYSICAL_DIRECTORY>
C:\ProgramData\HP\ALM\Repository\qc\Default\
</PHYSICAL_DIRECTORY>
<COMPANY_NAME></COMPANY_NAME>
<CONTACT_NAME></CONTACT_NAME>
<CONTACT_EMAIL></CONTACT_EMAIL>
<DEFAULT_DBSERVER_NAME>dbServer06</DEFAULT_DBSERVER_NAME>
<DEFAULT_DBSERVER_TYPE>2</DEFAULT_DBSERVER_TYPE>
<USERS_QUOTA>-1</USERS_QUOTA>
<DEFECTS_QUOTA>0</DEFECTS_QUOTA>
<PROJECTS_QUOTA>0</PROJECTS_QUOTA>
<FILESYSTEM_QUOTA>0</FILESYSTEM_QUOTA>
<PROJECTS_LIST>
<TDXItem>
<PROJECT_NAME>project</PROJECT_NAME>
<PR_IS_ACTIVE>Y</PR_IS_ACTIVE>
<SAQ_IS_ACTIVE>N</SAQ_IS_ACTIVE>
</TDXItem>
<TDXItem>
<PROJECT_NAME>test</PROJECT_NAME>
<PR_IS_ACTIVE>Y</PR_IS_ACTIVE>
<SAQ_IS_ACTIVE>N</SAQ_IS_ACTIVE>
</TDXItem>
</PROJECTS_LIST>
</TDXItem>
</GetAllDomains>
Private Sub GetAllDomains() 'The following Visual Basic example gets all the domains ' and their properties. Dim sReply As String On Error GoTo err sReply = m_SAClient.GetAllDomains MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub