请问VB.NET WinForm怎么获取当前域用户名

请教VB.NET WinForm如何获取当前域用户名？
请教VB.NET WinForm如何获取当前域用户名？
望指教，谢谢！
------解决方案--------------------
引用System.Management.dll
把c#转vb.net

using System.Diagnostics;

using System.Management;

namespace WorkRecord

{

class CurrentUser

{

public static string GetCurrentUser()

{

string currentUser = null;

foreach (Process p in Process.GetProcesses())

{

currentUser = GetProcessUserName(p.Id);

if (currentUser != "SYSTEM" && currentUser != null && currentUser != string.Empty)

break;

}

return currentUser;

}

private static string GetProcessUserName(int pID)

{

string theUser = null;

SelectQuery query1 = new SelectQuery("Select * from Win32_Process WHERE processID=" + pID);

ManagementObjectSearcher searcher1 = new ManagementObjectSearcher(query1);

try

{

foreach (ManagementObject disk in searcher1.Get())

{

ManagementBaseObject inPar = null;

ManagementBaseObject outPar = null;

inPar = disk.GetMethodParameters("GetOwner");

outPar = disk.InvokeMethod("GetOwner", inPar, null);

theUser = outPar["User"].ToString();

break;

}

}

catch

{

theUser = "SYSTEM";

}

return theUser;

}

}