اسم مستخدم ويندوز

السلام عليكم

علي ما أتذكر معلومات الUser ونسخة الويندوز تخزن في مفتاح التسجيل

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion

في نسخ ويندوز 9x

لكن تقريبا اختلف المكان في عائلة NT ليصبح بدل Windows في المفتاح السابق يكون ًWindows NT

إذا لم تجدي معلومات هناك اذهبي إلي

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon

لقيمةDefaultUserName

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

Msgbox WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")

حل أخر باستخدام كائن Wscript :

Dim ObjNet,ComputerName,UserName

Set ObjNet = CreateObject("WScript.Network")

MSgbox ObjNet.ComputerName & " : " & ObjNet.UserName

وممكن أيضا ايجاد الأسم باستخدام WMI .

جزاك الله الف خير

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

Wscript

وكانت اكثر من رائعة شكرا لتعاونك

إذا كيف يمكنني تغيره من الفيجوال ؟