PIServer Class

<SerializableAttribute>
Public NotInheritable Class PIServer
	Inherits AFObject
	Implements IAFTimeSource, IAFChangedEvent, ISerializable, IPIPersist, 
	IComparable(Of PIServer), IEquatable(Of PIServer)

Dim instance As PIServer

[SerializableAttribute]
public ref class PIServer sealed : public AFObject, 
	IAFTimeSource, IAFChangedEvent, ISerializable, IPIPersist, IComparable<PIServer^>, 
	IEquatable<PIServer^>

[<SealedAttribute>]
[<SerializableAttribute>]
type PIServer =  
    class
        inherit AFObject
        interface IAFTimeSource
        interface IAFChangedEvent
        interface ISerializable
        interface IPIPersist
        interface IComparable<PIServer>
        interface IEquatable<PIServer>
    end

Dim myPIServers As New PIServers()

' Display information for Default PIServer
Dim myConnectionInfo As PIConnectionInfo = myPIServers.DefaultPIServer.ConnectionInfo
Console.WriteLine("Name of Default PIServer = {0}", myPIServers.DefaultPIServer.Name)
Console.WriteLine("Host used to connect to Default PIServer = {0}", myConnectionInfo.Host)
Console.WriteLine("Port used to connect to Default PIServer = {0}", myConnectionInfo.Port)
Console.WriteLine()

' Display the number of PIServers
Console.WriteLine("PIServer count = {0}", myPIServers.Count)

' Display PIServer information
For Each server As PIServer In myPIServers
    Console.WriteLine("   Name of PIServer = {0}", server.Name)
    If server.UniqueID <> "" Then
        Console.WriteLine("   UniqueID of PIServer = {0}", server.UniqueID)
    Else
        Console.WriteLine("   UniqueID of PIServer = n/a")
    End If
    If server.ServerVersion <> "" Then
        Console.WriteLine("   Version of PIServer = {0}", server.ServerVersion)
    Else
        Console.WriteLine("   Version of PIServer = n/a")
    End If
    Console.WriteLine()
Next

' Get the PIServer on the specified computer
Dim myPIServer As PIServer = PIServer.FindPIServer(piServerName)

' Display information about the PIServer
Console.WriteLine("Name of the local PIServer = {0}", myPIServer.Name)
Console.WriteLine("ID of the PIServer = {0}", myPIServer.ID)
Console.WriteLine("PIServer Current Time = {0}", myPIServer.ServerTime)
Console.WriteLine("PIServer TimeZone = {0}", myPIServer.ServerTimeZone)
Console.WriteLine()

' Remove PIServer if it exists
If myPIServers("NewPIServer") IsNot Nothing Then
    myPIServers.Remove("NewPIServer")
End If

' Add a new PIServer without validating host address
PIServers.DirectoryOptions = PISystems.AFDirectoryOptions.None
Dim newPIServer As PIServer = myPIServers.Add("NewPIServer")
newPIServer.ConnectionInfo.Host = "NewHostAddress"

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.