Rem This example shows how change the update rate of an existing subscription.
Option Explicit
Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.DataAccess.EasyDAClient")
WScript.ConnectObject Client, "Client_"
WScript.Echo "Subscribing..."
Dim handle: handle = Client.SubscribeItem("", "OPCLabs.KitServer.2", "Simulation.Random", 1000)
WScript.Echo "Waiting for 10 seconds..."
WScript.Sleep 10*1000
WScript.Echo "Changing subscription..."
Client.ChangeItemSubscription handle, 100
WScript.Echo "Waiting for 10 seconds..."
WScript.Sleep 10*1000
WScript.Echo "Unsubscribing..."
Client.UnsubscribeAllItems
WScript.Echo "Waiting for 10 seconds..."
WScript.Sleep 10*1000
WScript.DisconnectObject Client
Set Client = Nothing
Sub Client_ItemChanged(Sender, e)
If Not (e.Succeeded) Then
WScript.Echo "*** Failure: " & e.ErrorMessageBrief
Exit Sub
End If
WScript.Echo e.Vtq
End Sub