功能是读取当前系统用户名.可用途于记录用户操作记录。

功能是读取当前系统用户名.可用途于记录用户操作记录。

Public Function get_username() As String

On Error Resume Next
    Dim lpBuff As String * 15
    Dim ret As Integer
        
    ret = GetUserName(lpBuff, 15)
    get_username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
   
End Function