Office中国论坛/Access中国论坛

标题: 局域网中如何获得用户的名字呢？ [打印本页]

作者: jiangshan197 时间: 2003-8-26 05:59
标题: 局域网中如何获得用户的名字呢？
局域网中如何获得用户的名字呢？指的是用户自己登陆局域网的名字，而不是安全机制中的名字。谢谢指教！

作者: cnnod 时间: 2003-9-14 01:30
我也很想知道，请教高手

作者: wxf 时间: 2003-9-16 05:29
我也想知道？

作者: 南国红豆 时间: 2003-9-16 05:44
顶!!

作者: ljwei692 时间: 2003-9-16 16:58
高手就指点指点我们吧！

[此贴子已经被作者于2003-9-16 10:39:59编辑过]

作者: marco2 时间: 2003-9-17 18:38
獲取WINDOWS登錄名
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)