AFSecurityIdentity Class

<SerializableAttribute>
Public NotInheritable Class AFSecurityIdentity
	Inherits AFObject
	Implements IAFTransactable, IAFChangedEvent, IAFSecurable, IComparable(Of AFSecurityIdentity)

Dim instance As AFSecurityIdentity

[SerializableAttribute]
public ref class AFSecurityIdentity sealed : public AFObject, 
	IAFTransactable, IAFChangedEvent, IAFSecurable, IComparable<AFSecurityIdentity^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFSecurityIdentity =  
    class
        inherit AFObject
        interface IAFTransactable
        interface IAFChangedEvent
        interface IAFSecurable
        interface IComparable<AFSecurityIdentity>
    end

' This example shows how to create and configure Security Identities
' and Security Mappings.

' Get the PISystem
Dim myPISystems As New PISystems()
Dim myPISystem As PISystem = myPISystems.DefaultPISystem

' Add a new Security Identity
Dim myIdentity As AFSecurityIdentity = myPISystem.SecurityIdentities.Add("MyTestUser")
myIdentity.Description = "Test User Identity"
myIdentity.CheckIn()

' Add a new Security Mapping for current user to the new Security Identity
Dim myMapping1 As AFSecurityMapping = myPISystem.SecurityMappings.Add(Nothing, Nothing, myIdentity)
myMapping1.Description = "Current User Mapping"

' Add a new Security Mapping for a different account to the new Security Identity
Dim account As New NTAccount("Guest")
Dim myMapping2 As AFSecurityMapping = myPISystem.SecurityMappings.Add("MyGuest", account, myIdentity)
myMapping2.Description = "My Guest Mapping"
myPISystem.CheckIn()

' Display each Security Mapping
Dim securityMappingCount As Integer = myPISystem.SecurityMappings.Count
Console.WriteLine("Security Mapping Count = {0}", securityMappingCount)
For Each CurMapping As AFSecurityMapping In myPISystem.SecurityMappings
    Console.WriteLine("  Name = {0}", CurMapping.Name)
    Console.WriteLine("  Description = {0}", CurMapping.Description)
    Console.WriteLine("  Account = {0}", CurMapping.Account)
Next

' Display each Security Identity
Dim securityIdentityCount As Integer = myPISystem.SecurityIdentities.Count
Console.WriteLine("Security Identity Count = {0}", securityIdentityCount)
For Each CurIdentity As AFSecurityIdentity In myPISystem.SecurityIdentities
    Console.WriteLine("  Name = {0}", CurIdentity.Name)
    Console.WriteLine("  Description = {0}", CurIdentity.Description)
Next

' Remove the new Security Identity which will remove the new Security Mappings.
myPISystem.SecurityIdentities.Remove(myIdentity)
myPISystem.CheckIn()

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.