使用vba获取用户名

2016年8月10日 作者： 来源：

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"                                         (ByVal lpBuffer As String, nSize As Long) As Long
 
Sub Get_User_Name()

'获得当前用户名
    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
        MsgBox "当前用户名：" & UserName, vbOKOnly, "WINAK"
    End Sub