VB.Net by API/System.Security.Principal/WindowsIdentity

WindowsIdentity.GetCurrent

<source lang="vbnet"> 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

 </source>

WindowsIdentity.IsGuest

<source lang="vbnet"> 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

 </source>