如何获得windows2000/xp的当前用户名（帐号名），急！在线等

Question

如何获得windows2000/xp的当前用户名（帐号名），急！在线等

Answer 1

日期:2001.11.17 三剑侠 重庆 
主题:如何得知登录 Windows的[使用者名称]？ 
内容:
呼叫 Windows API 的 GetUserName 即可， 细节如下：
1. API 的声明：
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"_
(ByVal lpBuffer As String, nSize As Long) As Long
注:如果以上的声明放在「一般模块」底下，应将 Declare 之前的 Private 保留字去掉,
并且在 Const 之前加上 Public 保留字。
2.呼叫范例：
Dim S As String 
S = String(80, 0) 
Call GetUserName(S, 80) 
UserName = Left(S, InStr(S, Chr(0)) - 1)
' UserName 即为登录 Windows 的「使用者名称」