AFSecurityMappings Class

Public Class AFSecurityMappings
	Inherits AFNamedCollection(Of AFSecurityMapping)

Dim instance As AFSecurityMappings

public ref class AFSecurityMappings : public AFNamedCollection<AFSecurityMapping^>

type AFSecurityMappings =  
    class
        inherit AFNamedCollection<AFSecurityMapping>
    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.