Use the ICIServer interface ARMServerName property to retrieve the name of the server on which the Auditing and Reporting database is located.
Signature:
HRESULT ARMServerName([out, retval] BSTR *pVal);
HRESULT ARMServerName([in] BSTR newVal);
Example:
Dim strServerName: strServerName = oServer.ARMServerName
oServer. ARMServerName = "localhost\GlobalSCAPE"