Use the ICIServer interface ARMUserName property to retrieve or set the username used to connect to the Auditing and Reporting database.
Signature:
HRESULT ARMServerName([out, retval] BSTR *pVal);
HRESULT ARMServerName([in] BSTR newVal);
Example:
Dim strUserName : strUserName = oServer.ARMUserName
oServer. ARMUserName = "admin"