// Shows how to obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
using System;
using Microsoft.Extensions.DependencyInjection;
using OpcLabs.BaseLib.Security.Cryptography.PkiCertificates;
using OpcLabs.EasyOpc.UA;
using OpcLabs.EasyOpc.UA.Application;
using OpcLabs.EasyOpc.UA.Application.Extensions;
using OpcLabs.EasyOpc.UA.Extensions;
using OpcLabs.EasyOpc.UA.OperationModel;
namespace UADocExamples.Application._IEasyUAClientApplication
{
partial class ObtainNewCertificate
{
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);
// Obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
IPkiCertificate certificate;
try
{
certificate = clientApplication.ObtainNewCertificate(gdsEndpointDescriptor);
}
catch (UAException uaException)
{
Console.WriteLine("*** Failure: {0}", uaException.GetBaseException().Message);
return;
}
// Display results
Console.WriteLine("Certificate: {0}", certificate);
}
}
}
// Shows how to obtain a new application certificate from the certificate manager (GDS),
// and store it for subsequent usage.
class procedure ObtainNewCertificate.Main;
var
ApplicationElement: _UAApplicationElement;
Certificate: _PkiCertificate;
Client: _EasyUAClient;
ClientApplication: _EasyUAClientApplication;
GdsEndpointDescriptor: _UAEndpointDescriptor;
Parameters: _UAObtainNewCertificateParameters;
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.
ApplicationElement := ClientApplication.GetApplicationElement;
WriteLn('Application URI string: ', ClientApplication.GetApplicationElement.ApplicationUriString);
// Obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
Parameters := CoUAObtainNewCertificateParameters.Create;
try
Certificate := ClientApplication.ObtainNewCertificate(GdsEndpointDescriptor, Parameters);
except
on E: EOleException do
begin
WriteLn(Format('*** Failure: %s', [E.GetBaseException.Message]));
end;
end;
// Display results
WriteLn('Certificate: ', (Certificate as _PKICertificate).ToString);
end;
// Shows how to obtain a new application certificate from the certificate manager (GDS),
// and store it for subsequent usage.
// 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.
$ApplicationElement = $ClientApplication->GetApplicationElement;
printf("Application URI string: %s\n", $ClientApplication->GetApplicationElement->ApplicationUriString);
// Obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
$Parameters = new COM("OpcLabs.EasyOpc.UA.Application.UAObtainNewCertificateParameters");
try
{
$Certificate = $ClientApplication->ObtainNewCertificate($GdsEndpointDescriptor, $Parameters);
}
catch (com_exception $e)
{
printf("*** Failure: %s\n", $e->getMessage());
exit();
}
// Display results
printf("Certificate: %s\n", $Certificate);
Rem Shows how to obtain a new application certificate from the certificate manager (GDS),
Rem and store it for subsequent usage.
Private Sub IEasyUAClientApplication_ObtainNewCertificate_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
' Obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
Dim parameters As New UAObtainNewCertificateParameters
On Error Resume Next
Dim certificate As PkiCertificate
Set certificate = clientApplication.ObtainNewCertificate(gdsEndpointDescriptor, parameters)
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 & "Certificate: " & certificate & vbCrLf
End Sub
' Shows how to obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
Imports Microsoft.Extensions.DependencyInjection
Imports OpcLabs.BaseLib.Security.Cryptography.PkiCertificates
Imports OpcLabs.EasyOpc.UA
Imports OpcLabs.EasyOpc.UA.Application
Imports OpcLabs.EasyOpc.UA.Application.Extensions
Imports OpcLabs.EasyOpc.UA.Extensions
Imports OpcLabs.EasyOpc.UA.OperationModel
Namespace UADocExamples.Application._IEasyUAClientApplication
Partial Friend Class ObtainNewCertificate
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)
' Obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
Dim certificate As PkiCertificate
Try
certificate = clientApplication.ObtainNewCertificate(gdsEndpointDescriptor)
Catch uaException As UAException
Console.WriteLine("*** Failure: {0}", uaException.GetBaseException.Message)
Exit Sub
End Try
' Display results
Console.WriteLine("Certificate: {0}", certificate)
End Sub
End Class
End Namespace
Rem Shows how to obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
Option Explicit
' Define which GDS we will work with.
Dim GdsEndpointDescriptor: Set GdsEndpointDescriptor = CreateObject("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.
Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.UA.EasyUAClient")
Dim ClientApplication: Set ClientApplication = Client.GetServiceByName("OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA")
' Display which application we are about to work with.
Dim ApplicationElement: Set ApplicationElement = ClientApplication.GetApplicationElement
WScript.Echo "Application URI string: " & ClientApplication.GetApplicationElement.ApplicationUriString
Rem Obtain a new application certificate from the certificate manager (GDS), and store it for subsequent usage.
Dim Parameters: Set Parameters = CreateObject("OpcLabs.EasyOpc.UA.Application.UAObtainNewCertificateParameters")
On Error Resume Next
Dim Certificate: Set Certificate = ClientApplication.ObtainNewCertificate(GdsEndpointDescriptor, Parameters)
If Err.Number <> 0 Then
WScript.Echo "*** Failure: " & Err.Source & ": " & Err.Description
WScript.Quit
End If
On Error Goto 0
' Display results
WScript.Echo "Certificate: " & Certificate