1
2
3
4
5
6
7
8
9
10
11
Sub

    Dim key
    Dim myComment
     
    key = "0000000034"
    myComment = "Hello, World!"
     
    AudClient.AddAuditComment key, myComment

End Sub

1
2
3
4
5
Sub 

    AudClient.AddAuditTransactionComment 56, "Hello, World!"

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub 

    Dim strTransactionId
    strTransactionId = AudClient.CreateAuditTransaction("MY_OPERATION", "My operation description", "My comment")
     
    Dim strDbKey
    strDbKey = AudClient.AssociateFacilityWithTransaction(strTransactionId, "CYGDEMO.UIS::20230303")
     
    MsgBox strDbKey
     
    strDbKey = AudClient.AssociatePointWithTransaction(strTransactionId, "CYGDEMO.SVCMON.00000294")
     
    MsgBox strDbKey

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub 

    Dim strTransactionId
    strTransactionId = AudClient.CreateAuditTransaction("MY_OPERATION", "My operation description", "My comment")
     
    Dim strDbKey
    strDbKey = AudClient.AssociateFacilityWithTransaction(strTransactionId, "CYGDEMO.UIS::20230303")
     
    MsgBox strDbKey
     
    strDbKey = AudClient.AssociatePointWithTransaction(strTransactionId, "CYGDEMO.SVCMON.00000294")
     
    MsgBox strDbKey

End Sub

1
2
3
4
5
6
7
8
Sub AudConnect()

    'Connect to an AUD
    Dim AudClient
    Set AudClient = CreateObject("CxAud.AudClient")
    AudClient.Connect("[5410]CYGDEMO.AUD")

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub 

    Dim strTransactionId
    strTransactionId = AudClient.CreateAuditTransaction("MY_OPERATION", "My operation description", "My comment")
     
    Dim strDbKey
    strDbKey = AudClient.AssociateFacilityWithTransaction(strTransactionId, "CYGDEMO.UIS::20230303")
     
    MsgBox strDbKey
     
    strDbKey = AudClient.AssociatePointWithTransaction(strTransactionId, "CYGDEMO.SVCMON.00000294")
     
    MsgBox strDbKey

End Sub

1
2
3
4
5
6
7
8
9
10
11
Sub Svc.Disconnect()
 
    <SvcClient>.Disconnect()
    MsgBox "Service has disconnected."
    
    If <SvcClient>.Disconnect <> 0 
    Then
        MsgBox "Failed to disconnect."
    End If

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub
    Dim aryText, aryAttr, nRet
    nRet = <NameofServiceClientObject>.GetConsoleData(aryText, aryAttr)
 
    ' Write text attributes to CSV file
    Dim i, j, strMsg
        For i = 0 To UBound(aryText, 1)
        For j = 0 To UBound(aryText, 2)
            strMsg = strMsg + CStr(aryText(i, j)) + ","
        Next
            strMsg = strMsg + vbCr
    Next
 
    dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("c:\console_text_attrs.csv", 2, True)
    file.WriteLine(strMsg)
    file.Close 
 
    strMsg = ""
 
    ' Write display attributes to CSV file
        For i = 0 To UBound(aryAttr, 1)
        For j = 0 To UBound(aryAttr, 2)
            strMsg = strMsg + CStr(aryAttr(i, j)) + ","
        Next
            strMsg = strMsg + vbCr
    Next
 
    Set file = fso.OpenTextFile("c:\console_disp_attrs.csv", 2, True)
    file.WriteLine(strMsg)
    file.Close 
 
    MsgBox nRet
End Sub

1
2
3
4
5
6
Sub GetReferences()
 
    <NameofServiceClientObject>.GetReferences
    MsgBox "Services references retrieved"

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub readComments()

    Dim key
    Dim commentsXml
    key = "0000000034"
     
    commentsXml = AudClient.ReadAuditComments(key)
     
    'Save header records as XML
    Set xmlDoc = CreateObject("Msxml2.DOMDocument.5.0")
    xmlDoc.loadXML(commentsXml)
    xmlDoc.save("C:\AudComments.xml")

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub readRecords()

    Dim Keys(1)
    Dim headersXml
     
    Keys(0) = "0000000034"
    Keys(1) = "0000000036"
     
    headersXml = AudClient.ReadAuditRecords(Keys)
     
    'Save header records as XML
    Set xmlDoc = CreateObject("Msxml2.DOMDocument.5.0")
    xmlDoc.loadXML(headersXml)
    xmlDoc.save("C:\HeaderRecords.xml")

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim AudClient

    Dim arrFlags
     
    'Create the Aud Client Object
    AudClient = CreateObject("CxAud.AudClient" )
     
    'Connect to the appropriate AUD
    AudClient.Connect "MYSITE.AUD"
     
    'Read the current user flags on DbKey 0000000282
    arrFlags  = m_AudClient.ReadUserFlags( "0000000282")
     
    'Now show the current flag value for UserFlag07
    If arrFlags(6) Then
        MsgBox "UserFlag07 is Set"
    Else
        MsgBox "UserFlag07 is not Set"
    End If

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim AudClient

    'Create the Aud Client Object
    AudClient = CreateObject("CxAud.AudClient" )
     
    'Connect to the appropriate Aud
    AudClient.Connect "MYSITE.AUD"
    'Clear UserFlag01 on DbKey 0000000282
    m_AudClient.UpdateUserFlag( "0000000282", 1, False)
    ...
    ...
    'Set UserFlag05 0000000283
    m_AudClient.UpdateUserFlag( "0000000283", 1, True)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim AudClient
Dim arrFlags
Dim iIndex
 
'Create the Aud Client Object
 
AudClient = CreateObject("CxAud.AudClient" )
 
'Connect to the appropriate Aud
AudClient.Connect "MYSITE.AUD"
 
    'allocate the array, Redim is the upperbound based so subtract 1
    'from the number of flags.
     
    Redim arrFlags(AudClient.UserFlagCount - 1)
     
    'Clear UserFlag01, set UserFlag05, and leave all the rest alone
    arrFlags(0) = False
    arrFlags(4) = True
     
    'Update the flags on dbkey 0000000282
    m_AudClient.UpdateUserFlags( "0000000282, arrFlags)
    ...
    ...
    'Now Clear all the flags on 0000000283 except UserFlag07
    'Clear all the flags
    For iIndex = LBound(arrFlags) to UBound(arrFlags )
    arrFlags(iIndex) = False
    Next
    'Retain the value for UserFlag07
    arrFlags(6) = Empty
    'Now update the flags
    m_AudClient.UpdateUserFlag( "0000000283", arrFlags)