如何从计算机获取UserName？

Question

我正在寻找红色区块上的字符串。

我已经尝试过以下代码：

Environment.UserName
My.User.Name
SystemInformation.UserName
System.Security.Principal.WindowsIdentity.GetCurrent().Name
Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Environment.GetFolderPath(Environment.GetEnvironmentVariable("%USERNAME%"))

但是这段代码不起作用，因为我公司的计算机使用域名，而我需要的字符串与用户不同。 用户仅由名称组成，字符串由员工的姓名和名字组成。

事先谢谢你，
ElFranchoute

Answer 1

您可以尝试使用

HttpContext.Current.Server.MachineName

或

System.Environment.MachineName;

Answer 2

我终于找到了我需要的东西here

我们必须导入：

  

“System.DirectoryServices.AccountManagement”
  “的System.DirectoryServices”

并写下这两行以取回红色块。

Dim currentADUser As System.DirectoryServices.AccountManagement.UserPrincipal
currentADUser = System.DirectoryServices.AccountManagement.UserPrincipal.Current