PIServers Class

Public NotInheritable Class PIServers
	Implements IList(Of PIServer), ICollection(Of PIServer), 
	IEnumerable(Of PIServer), IEnumerable, IAFList, IList, 
	ICollection, IAFChangedEvent

Dim instance As PIServers

public ref class PIServers sealed : IList<PIServer^>, 
	ICollection<PIServer^>, IEnumerable<PIServer^>, IEnumerable, 
	IAFList, IList, ICollection, IAFChangedEvent

[<SealedAttribute>]
type PIServers =  
    class
        interface IList<PIServer>
        interface ICollection<PIServer>
        interface IEnumerable<PIServer>
        interface IEnumerable
        interface IAFList
        interface IList
        interface ICollection
        interface IAFChangedEvent
    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.