MsgBox(System.Environment.UserName)MsgBox(Environment.UserDomainName & "\" & Environment.UserName)
Imports System.DirectoryServices
using System.DirectoryServices;
Private Function GetUserFullName(ByVal domain As String, ByVal userName As String)
Dim userEntry As DirectoryEntry = New DirectoryEntry("WinNT://" + domain + "/" + userName + ",User")
Return CStr(userEntry.Properties("fullname").Value)
End Function
public static string GetUserFullName(string domain, string userName)
{
DirectoryEntry userEntry = new DirectoryEntry("WinNT://" + domain + "/" + userName + ",User");
return (string)userEntry.Properties["fullname"].Value;
}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = GetUserFullName(Environment.UserDomainName, Environment.UserName)
End Sub
private void button1_Click(object sender, EventArgs e)
{
label1.Text = GetUserFullName(Environment.UserDomainName, Environment.UserName);
}
