Rem This example shows information available about OPC event condition.
Option Explicit
Const AEEventTypes_All = 7
Dim ServerDescriptor: Set ServerDescriptor = CreateObject("OpcLabs.EasyOpc.ServerDescriptor")
ServerDescriptor.ServerClass = "OPCLabs.KitEventServer.2"
Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.AlarmsAndEvents.EasyAEClient")
On Error Resume Next
Dim CategoryElements: Set CategoryElements = Client.QueryEventCategories(ServerDescriptor, AEEventTypes_All)
If Err.Number <> 0 Then
WScript.Echo "*** Failure: " & Err.Source & ": " & Err.Description
WScript.Quit
End If
On Error Goto 0
Dim CategoryElement: For Each CategoryElement In CategoryElements
WScript.Echo "Category " & CategoryElement & ":"
With CategoryElement
Dim ConditionElement: For Each ConditionElement In .ConditionElements
WScript.Echo Space(4) & "Information about condition """ & ConditionElement & """:"
With ConditionElement
WScript.Echo Space(8) & ".Name: " & .Name
WScript.Echo Space(8) & ".SubconditionNames:"
Dim subconditionNames: subconditionNames = .SubconditionNames
' Note: In VBScript, cannot directly write .SubconditionNames(i); it considers it an indexed property instead.
Dim i: For i = LBound(subconditionNames) To UBound(subconditionNames)
WScript.Echo Space(12) & subconditionNames(i)
Next
End With
Next
End With
Next