Rem This example shows information available about OPC event attribute.
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 AttributeElement: For Each AttributeElement In .AttributeElements
WScript.Echo Space(4) & "Information about attribute " & AttributeElement & ":"
With AttributeElement
WScript.Echo Space(8) & ".AttributeId: " & .AttributeId
WScript.Echo Space(8) & ".Description: " & .Description
WScript.Echo Space(8) & ".DataType: " & .DataType
End With
Next
End With
Next