Imports Microsoft.VisualBasic.ApplicationServices
Imports System
Imports System.Security
Imports System.Runtime.InteropServices

<ComClass(GroupClass.ClassId, GroupClass.InterfaceId, GroupClass.EventsId)> _
Public Class GroupClass
    Implements System.Security.Principal.IIdentity


#Region "COM GUIDs"
    ' These  GUIDs provide the COM identity for this class 
    ' and its COM interfaces. If you change them, existing 
    ' clients will no longer be able to access the class.
    Public Const ClassId As String = "ab0fe70d-3d1f-4720-9da4-ec15394ac8aa"
    Public Const InterfaceId As String = "9b49c316-2ed8-4311-a148-996efe0481d7"
    Public Const EventsId As String = "c8e3f0d9-68ec-411f-8249-21baeb040539"
#End Region

    ' A creatable COM class must have a Public Sub New() 
    ' with no parameters, otherwise, the class will not be 
    ' registered in the COM registry and cannot be created 
    ' via CreateObject.
    Public Sub New()
        MyBase.New()
    End Sub

    Public nameValue As String
    Public authenticatedValue As Boolean
    Public roleValue As ApplicationServices.BuiltInRole

    Public ReadOnly Property AuthenticationType() As String Implements System.Security.Principal.IIdentity.AuthenticationType
        Get
            Return "Windows Authentication"
        End Get
    End Property

    Public ReadOnly Property IsAuthenticated() As Boolean Implements System.Security.Principal.IIdentity.IsAuthenticated
        Get
            Return authenticatedValue
        End Get
    End Property

    Public ReadOnly Property Name() As String Implements System.Security.Principal.IIdentity.Name
        Get
            Return nameValue
        End Get
    End Property

    Public ReadOnly Property Role() As ApplicationServices.BuiltInRole
        Get
            Return roleValue
        End Get
    End Property
   
End Class