VBA 如何访问windows当前用户名

Question

我想根据windows2000(XP)登陆的当前用户名来设置ACCESS登陆权限

Answer 1

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                    (ByVal lpBuffer As String, nSize As Long) As Long

Answer 2

搞定了
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongSub GetWinName()
Dim s$, cnt&, dl&
cnt& = 256
s$ = String$(256, 0)
dl& = GetUserName(s$, cnt)
MsgBox "Windows用户名:" & Left$(s$, cnt)
End Sub

Answer 3

Sub GetWinName()
MsgBox "Windows用户名:" & Environ("username")
End Sub