如何获取WINDOWS当前用户！

Question

Dim SI1 As New ActiveDs.WinNTSystemInfo
Msgbox SI1.Username

Answer 1

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
    Dim s As String * 80
    Dim l As Long
    l = 80
    GetUserName s, l
    MsgBox (Trim(Replace(s, Chr(0), "")))
    
End Sub

Answer 2

使用API
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'调用
dim sysusername as string    If GetUserName(SysUserName, 255) <= 0 Then
        SysUserName = ""
    Else
        SysUserName = Trim(SysUserName)
    End If

Answer 3

可以不用API吧：）！第一个多简单