

'Declaration<CLSCompliantAttribute(False)> <ComVisibleAttribute(True)> <GuidAttribute("3306C0FE-3AEE-47F7-A6C3-2185787D9665")> <InterfaceTypeAttribute(ComInterfaceType.InterfaceIsDual)> Public Interface _AECategoryElement
'UsageDim instance As _AECategoryElement
[CLSCompliant(false)] [ComVisible(true)] [Guid("3306C0FE-3AEE-47F7-A6C3-2185787D9665")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface _AECategoryElement
[CLSCompliant(false)] [ComVisible(true)] [Guid("3306C0FE-3AEE-47F7-A6C3-2185787D9665")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface class _AECategoryElement
This member or type is for use from COM. It is not meant to be used from .NET or Python. Refer to the corresponding .NET member or type instead, if you are developing in .NET or Python.
Rem This example shows information available about OPC event category. Rem Rem Find all latest examples here: https://www.doc-that.com/files/onlinedocs/OPCLabs-ConnectivityStudio/Latest/examples.html . Rem OPC client and subscriber examples in VBScript on GitHub: https://github.com/OPCLabs/Examples-ConnectivityStudio-VBScript . Rem Missing some example? Ask us for it on our Online Forums, https://forum.opclabs.com/forum/index ! You do not have to own Rem a commercial license in order to use Online Forums, and we reply to every post. 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 "Information about category " & CategoryElement & ":" With CategoryElement WScript.Echo Space(4) & ".CategoryId: " & .CategoryId WScript.Echo Space(4) & ".Description: " & .Description WScript.Echo Space(4) & ".ConditionElements:" Dim ConditionElement: For Each ConditionElement In .ConditionElements: WScript.Echo Space(8) & ConditionElement: Next WScript.Echo Space(4) & ".AttributeElements:" Dim AttributeElement: For Each AttributeElement In .AttributeElements: WScript.Echo Space(8) & AttributeElement: Next End With Next