// This example shows how to write a value into a single node, specifying a type code explicitly.

//

// Reasons for specifying the type explicitly might be:

// - The data type in the server has subtypes, and the client therefore needs to pick the subtype to be written.

// - The data type that the reports is incorrect.

// - Writing with an explicitly specified type is more efficient.

//

// TypeCode is easy to use, but it does not cover all possible types. It is also possible to specify the .NET Type, using

// a different overload of the WriteValue method.

//

// Find all latest examples here: 
    opclabs.doc-that.com/files/onlinedocs/OPCLabs-ConnectivityStudio/Latest/examples.html
 .

// OPC client and subscriber examples in VBScript on GitHub: 
    github.com/OPCLabs/Examples-QuickOPC-VBScript
 .

// Missing some example? Ask us for it on our Online Forums, 
    www.opclabs.com/forum/index
 ! You do not have to own

// a commercial license in order to use Online Forums, and we reply to every post.

 

var typeCode_Int32 = 9

 

var endpointDescriptor =

"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";

//'"
    opcua.demo-this.com:51211/UA/SampleServer
";

//'"
    opcua.demo-this.com:51212/UA/SampleServer/
";

 

// Instantiate the client object

var Client = new ActiveXObject("OpcLabs.EasyOpc.UA.EasyUAClient");

 

// Prepare the arguments

var WriteValueArguments1 = new ActiveXObject("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments");

WriteValueArguments1.EndpointDescriptor.UrlString = endpointDescriptor

WriteValueArguments1.NodeDescriptor.NodeId.ExpandedText = "nsu=http://test.org/UA/Data/ ;i=10221"

WriteValueArguments1.Value = 12345

WriteValueArguments1.ValueTypeCode = typeCode_Int32

 

var dictionary = new ActiveXObject("Scripting.Dictionary");

dictionary.Add(0, WriteValueArguments1);

var items = dictionary.Items();

 

// Modify value of a node

var results = Client.WriteMultipleValues(items);

 

var jsArray = results.toArray();

var WriteResult = jsArray[0]

if (WriteResult.Succeeded)

WScript.Echo("Success");

else {

WScript.Echo("*** Failure: " + WriteResult.Exception.GetBaseException().Message);

}