局域网中如何获得用户的名字呢？

jiangshan197

局域网中如何获得用户的名字呢？指的是用户自己登陆局域网的名字，而不是安全机制中的名字。谢谢指教！

marco2

獲取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

ljwei692

高手就指点指点我们吧！

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

南国红豆

顶!!

wxf

我也想知道？

cnnod

我也很想知道，请教高手