Mega Code Archive

 

Categories / VB.Net by API / System Security 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