VB.Net/Windows System/User
Версия от 19:40, 26 мая 2010; (обсуждение)
Current User Identity
<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>
Get User Name
<source lang="vbnet"> Imports System
Public Class MainClass
Shared Sub Main() Console.WriteLine("UserName: " & System.Environment.UserName) End Sub
End Class
</source>
Is User Interactive
<source lang="vbnet"> Imports System
Public Class MainClass
Shared Sub Main() Console.WriteLine("UserInteractive: " & System.Environment.UserInteractive) End Sub
End Class
</source>