如何取到当前我是用什么用户名登录windows系统的..多谢

Question

如何取到当前我是用什么用户名登录windows系统的..多谢机器名是什么?等要用什么API

Answer 1

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'
'取当前WINDOWS用户名
'函数:UserName
'参数:
'返回值:当前WINDOWS用户名．
'例子：
Public Function UserName() As String
    Dim Cn As String
    Dim Ls As Long
    Dim res As Long    Cn = String$(255, Chr$(0))
    Ls = 255
    res = GetUserName(Cn, Ls)
    If res <> 0 Then
        UserName = Mid$(Cn, 1, InStr(Cn, Chr$(0)) - 1)
    Else
        UserName = ""
    End If
End Function

Answer 2

如何获得当前Windows登录的用户名？ 
'声明：
Private Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _ As Long 
'使用代码如下：
Private Sub Form_Load()
Dim s As String,cnt As Long ,dl As Long,CurUser As String cnt = 199 
s = String$(200, 0) 
dl = GetUserName(s, cnt) 
Debug.Print(dl <> 0,"当前用户=" & Left$(s,cnt),"当前用户=")
End Sub