返回当前用户的用户名（NT登录）的函数

最新推荐文章于 2021-03-21 23:02:14 发布

cxygs5788

最新推荐文章于 2021-03-21 23:02:14 发布

阅读量631

点赞数

文章标签：数据库

此函数返回当前登录的NT用户的用户名。


' This library must be declared
Declare Function GetUserName& _
                     Lib "advapi32.dll" Alias _
                     "GetUserNameA" (ByVal lpBuffer As String,
                                     nSize As Long) 
Function sys_OrigUserID() As String
Dim s$, cnt&, dl&
Dim max_String As Integer
Dim username As String 
    max_String = 30
    cnt& = 199
    s$ = String$(max_String, 1)
    dl& = GetUserName(s$, cnt)
    username = Trim$(Left$(s$, cnt))
    username = UCase(Mid(username, 1, Len(username) - 1))
    sys_OrigUserID = username 
End Function