论坛 › Office办公软件使用交流 › 功能是读取当前系统用户名.可用途于记录用户操作记录。

lnxxnchzyl 发表于 2009-10-19 10:02:29

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

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

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

查看完整版本: 功能是读取当前系统用户名.可用途于记录用户操作记录。