براي پيدا كدن نام كاربر جاري كه داره برناغمه شما تو اكانت اون اجرا ميه از تابع زير استفاده كنيد:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ByVal lpBuffer As String, nSize As Long) As Long
رشته اول به روش ارسال با مرجع نام كاربر رو بر ميگردونه در واقع يه جور بافره.
عدد دوم طول رشته بازگشتي رو نشون ميده اگر بازگشت موفقيت آميز باشه غير صفر در غير اين صورت صفر خواهد بود.البته اين تابع تقريبا هميشه جواب ميده.
بافر رو قبل از ارسال با دستور زير آماده كن:
Dim UserName As String
UserName = Space(40)
با با يه ستور مث دستور زير صداش كن:
GetUserName UserName, Len(UserName)
