Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› API › 查看内容

获取Windows用户登录名

1970-1-1 08:00| 发布者: 未知请作者联系我| 查看: 1775| 评论: 0

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserName() As String
Dim cn As String
Dim ls As Long
Dim res As Long

cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
UserName = ""
End If
End Function

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

获取Windows用户登录名

最新评论

相关分类