Principal.WindowsPrincipal : Principal « System.Security.Principal « VB.Net by API

1. VB.Net by API
2. System.Security.Principal
3. Principal

Principal.WindowsPrincipal

  


Imports System.Windows.Forms
Imports System.Security.Principal
Imports System.Security.Permissions

Public Class SymEnc

    Public Shared Sub Main(ByVal CmdArgs() As String)
        Dim objIdentity As WindowsIdentity = WindowsIdentity.GetCurrent
        Dim objPrincipal As New Security.Principal.WindowsPrincipal(objIdentity)
        Console.WriteLine(objPrincipal.Identity.IsAuthenticated.ToString())
        Console.WriteLine(objIdentity.IsGuest.ToString())
        Console.WriteLine(objIdentity.ToString())
    End Sub

End Class

   
    
  

Related examples in the same category