PIIdentity Class

Public NotInheritable Class PIIdentity
	Implements IComparable, IComparable(Of PIIdentity), 
	IEquatable(Of PIIdentity)

Dim instance As PIIdentity

public ref class PIIdentity sealed : IComparable, 
	IComparable<PIIdentity^>, IEquatable<PIIdentity^>

[<SealedAttribute>]
type PIIdentity =  
    class
        interface IComparable
        interface IComparable<PIIdentity>
        interface IEquatable<PIIdentity>
    end

' Get the PIIdentities from the PIServer on the local computer
Dim myPISystems As New PISystems
Dim myPISystem As PISystem = myPISystems.DefaultPISystem
Dim myPIServer As PIServer = PIServer.FindPIServer(myPISystem, piServerName)

' Display information about each PIIdentity and its properties
Dim identities As PIIdentities = myPIServer.Identities
Console.WriteLine("Found {0} identities", identities.Count)
For Each identity As PIIdentity In identities
    Console.WriteLine(identity.Name)
    Console.WriteLine("  IdentityType: {0}", identity.IdentityType)
    Console.WriteLine("  Description: {0}", identity.Description)
    Console.WriteLine("  AllowExplicitLogin: {0}", identity.AllowExplicitLogin)
    Console.WriteLine("  AllowMappings: {0}", identity.AllowMappings)
    Console.WriteLine("  AllowTrusts: {0}", identity.AllowTrusts)
    Console.WriteLine("  IsEnabled: {0}", identity.IsEnabled)
    Console.WriteLine()
Next

' Add an identity of PIIdentity type, if it does not yet exist.
Dim newIdName As String = "PIIdentityTestExample"
Dim newId As PIIdentity
If (Not identities.Contains(newIdName)) Then
    ' Note that adding or editing an identity requires 'CheckIn' in order to commit it to the PI Data Archive.
    newId = identities.Add(newIdName, PIIdentityType.PIIdentity)
    newId.CheckIn()
Else
    newId = identities(newIdName)
End If

Console.WriteLine(newId.Name)
Console.WriteLine("  IdentityType: {0}", newId.IdentityType)
Console.WriteLine("  Description: {0}", newId.Description)
Console.WriteLine("  AllowExplicitLogin: {0}", newId.AllowExplicitLogin)
Console.WriteLine("  AllowMappings: {0}", newId.AllowMappings)
Console.WriteLine("  AllowTrusts: {0}", newId.AllowTrusts)
Console.WriteLine("  IsEnabled: {0}", newId.IsEnabled)
Console.WriteLine()

' Edit an identity.
newId.Description = "This is a PIIdentity for Test Example"
newId.CheckIn()

Console.WriteLine(newId.Name)
Console.WriteLine("  Description: {0}", newId.Description)
Console.WriteLine()

' Delete an identity. 
' Note that the 'Remove' call will be directly committed to the PI Data Archive.
identities.Remove(newId)

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.