[الوادي]

يا المخلفي،
أنت تقصد الاسم الترحيبي،
هذا الكود يحتاج إضافة المكتبة System.DirectoryServices

PHP كود :

Dim userFullName As String = New DirectoryServices.DirectoryEntry("WinNT://" & My.User.Name.Replace("\", "/")).Properties("FullName").Value