怎样用vb读取系统登陆名

Question

要读取的是登陆域的帐号，机器名和帐号不一定一样，要读取登陆域的帐号

Answer 1

Private Sub Command1_Click()
MsgBox Environ("USERNAME")
'MsgBox Environ("LOGONSERVER")
End Sub

Answer 2

Private Declare Function ApiGetWindowsUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongDim strBuffer As String
    Dim lngSize As Long
        
    strBuffer = Space$(255)
    lngSize = Len(strBuffer)
    Call ApiGetWindowsUserName(strBuffer, lngSize)
    If lngSize > 0 Then
        GetWinUserName = Left$(strBuffer, lngSize)
    Else
        GetWinUserName = ""
    End If