呼叫 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 的「使用者名稱」