// Shows how to refresh own certificate stores using current trust lists for the application from the certificate manager.
using System;
using Microsoft.Extensions.DependencyInjection;
using OpcLabs.EasyOpc.UA;
using OpcLabs.EasyOpc.UA.Application;
using OpcLabs.EasyOpc.UA.Application.Extensions;
using OpcLabs.EasyOpc.UA.Extensions;
using OpcLabs.EasyOpc.UA.Gds;
using OpcLabs.EasyOpc.UA.OperationModel;
namespace UADocExamples.Application._IEasyUAClientApplication
{
class RefreshTrustLists
{
public static void Main1()
{
// Define which GDS we will work with.
UAEndpointDescriptor gdsEndpointDescriptor =
((UAEndpointDescriptor)"opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer")
.WithUserNameIdentity("appadmin", "demo");
// Obtain the client application service.
var client = new EasyUAClient();
IEasyUAClientApplication clientApplication = client.GetService<IEasyUAClientApplication>();
// Display which application we are about to work with.
Console.WriteLine("Application URI string: {0}",
clientApplication.GetApplicationElement().ApplicationUriString);
// Refresh own certificate stores using current trust lists for the application from the certificate manager.
UATrustListMasks refreshedTrustLists;
try
{
refreshedTrustLists = clientApplication.RefreshTrustLists(gdsEndpointDescriptor);
}
catch (UAException uaException)
{
Console.WriteLine("*** Failure: {0}", uaException.GetBaseException().Message);
return;
}
// Display results
Console.WriteLine("Refreshed trust lists: {0}", refreshedTrustLists);
}
}
}
// Shows how to refresh own certificate stores using current trust lists
// for the application from the certificate manager.
class procedure RefreshTrustLists.Main;
var
Client: _EasyUAClient;
ClientApplication: _EasyUAClientApplication;
GdsEndpointDescriptor: _UAEndpointDescriptor;
RefreshedTrustLists: UATrustListMasks;
begin
// Define which GDS we will work with.
GdsEndpointDescriptor := CoUAEndpointDescriptor.Create;
GdsEndpointDescriptor.UrlString := 'opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer';
GdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.UserName := 'appadmin';
GdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.Password := 'demo';
// Obtain the client application service.
Client := CoEasyUAClient.Create;
ClientApplication := IInterface(Client.GetServiceByName('OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA')) as _EasyUAClientApplication;
// Display which application we are about to work with.
WriteLn('Application URI string: ', ClientApplication.GetApplicationElement.ApplicationUriString);
// Refresh own certificate stores using current trust lists for the application from the certificate manager.
try
RefreshedTrustLists := clientApplication.RefreshTrustLists(gdsEndpointDescriptor);
except
on E: EOleException do
begin
WriteLn(Format('*** Failure: %s', [E.GetBaseException.Message]));
Exit;
end;
end;
// Display results
WriteLn('Refreshed trust lists: ', RefreshedTrustLists);
end;
// Shows how to refresh own certificate stores using current trust lists
// for the application from the certificate manager.
// Define which GDS we will work with.
$GdsEndpointDescriptor = new COM("OpcLabs.EasyOpc.UA.UAEndpointDescriptor");
$GdsEndpointDescriptor->UrlString = "opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer";
$GdsEndpointDescriptor->UserIdentity->UserNameTokenInfo->UserName = "appadmin";
$GdsEndpointDescriptor->UserIdentity->UserNameTokenInfo->Password = "demo";
// Obtain the client application service.
$Client = new COM("OpcLabs.EasyOpc.UA.EasyUAClient");
$ClientApplication = $Client->GetServiceByName("OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA");
// Display which application we are about to work with.
printf("Application URI string: %s\n", $ClientApplication->GetApplicationElement->ApplicationUriString);
// Refresh own certificate stores using current trust lists for the application from the certificate manager.
try
{
$RefreshedTrustLists = $ClientApplication->RefreshTrustLists($GdsEndpointDescriptor);
}
catch (com_exception $e)
{
printf("*** Failure: %s\n", $e->getMessage());
exit();
}
// Display results
printf("Refreshed trust lists: %s\n", $RefreshedTrustLists);
Rem Shows how to refresh own certificate stores using current trust lists
Rem for the application from the certificate manager.
Private Sub IEasyUAClientApplication_RefreshTrustLists_Main_Command_Click()
OutputText = ""
' Define which GDS we will work with.
Dim gdsEndpointDescriptor As New UAEndpointDescriptor
gdsEndpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer"
gdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.UserName = "appadmin"
gdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.Password = "demo"
' Obtain the client application service.
Dim client As New EasyUAClient
Dim clientApplication As AbstractEasyUAClientApplication
Set clientApplication = client.GetServiceByName("OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA")
' Display which application we are about to work with.
OutputText = OutputText & "Application URI string: " & clientApplication.GetApplicationElement.applicationUriString & vbCrLf
' Refresh own certificate stores using current trust lists for the application from the certificate manager.
On Error Resume Next
Dim refreshedTrustLists As UATrustListMasks
refreshedTrustLists = clientApplication.RefreshTrustLists(gdsEndpointDescriptor)
If Err.Number <> 0 Then
OutputText = OutputText & "*** Failure: " & Err.Source & ": " & Err.Description & vbCrLf
Exit Sub
End If
On Error GoTo 0
' Display results
OutputText = OutputText & "Refreshed trust lists: " & refreshedTrustLists & vbCrLf
End Sub
' Shows how to refresh own certificate stores using current trust lists for the application from the certificate manager.
Imports Microsoft.Extensions.DependencyInjection
Imports OpcLabs.EasyOpc.UA
Imports OpcLabs.EasyOpc.UA.Application
Imports OpcLabs.EasyOpc.UA.Application.Extensions
Imports OpcLabs.EasyOpc.UA.Extensions
Imports OpcLabs.EasyOpc.UA.Gds
Imports OpcLabs.EasyOpc.UA.OperationModel
Namespace UADocExamples.Application._IEasyUAClientApplication
Friend Class RefreshTrustLists
Public Shared Sub Main1()
' Define which GDS we will work with.
Dim gdsEndpointDescriptor As UAEndpointDescriptor =
New UAEndpointDescriptor("opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer") _
.WithUserNameIdentity("appadmin", "demo")
' Obtain the client application service.
Dim client = New EasyUAClient()
Dim clientApplication = client.GetService(Of IEasyUAClientApplication)()
' Display which application we are about to work with.
Console.WriteLine("Application URI string: {0}",
clientApplication.GetApplicationElement().ApplicationUriString)
' Refresh own certificate stores using current trust lists for the application from the certificate manager.
Dim refreshedTrustLists As UATrustListMasks
Try
refreshedTrustLists = clientApplication.RefreshTrustLists(gdsEndpointDescriptor)
Catch uaException As UAException
Console.WriteLine("*** Failure: {0}", uaException.GetBaseException.Message)
Exit Sub
End Try
' Display results
Console.WriteLine("Refreshed trust lists: {0}", refreshedTrustLists)
End Sub
End Class
End Namespace