[kslawy]

السلام عليكم ورحمة الله وبركاته

أولا لازم تضيف مرجع System.DirectoryServices من قائمة المراجع

ثم تستورده أعلى الفورم:

PHP كود :

Imports System.DirectoryServices 


PHP كود :

using System.DirectoryServices; 


دالة استخراج الاسم الكامل للمستخدم:

PHP كود :

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 


PHP كود :

 public static string GetUserFullName(string domain, string userName)
        {
            DirectoryEntry userEntry = new DirectoryEntry("WinNT://" + domain + "/" + userName + ",User");
            return (string)userEntry.Properties["fullname"].Value;
        } 


طريقة الاستخدام:

PHP كود :

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 


PHP كود :

private void button1_Click(object sender, EventArgs e)
        {
            label1.Text = GetUserFullName(Environment.UserDomainName, Environment.UserName);
        } 


المتغير الثاني Environment.UserName يأتي بالمستخدم النشط الحالي يمكنك أن تضع بدله أي اسم لمستخدم آخر في الحاسوب مع مراعاة أن يكون الاسم صحيحاً املائيا حتى لا يحدث خطأ.

****
***
**
*