[求助]获取当前访问计算机名时遇到的问题

Y9X

为了获取当前访问的电脑名称，我使用了论坛内成功的模块，但是我发现，当数台电脑短时间内登录时，表只能记录第一个访问者电脑的名字（如果时间略微岔开，则能完全记录每一台访问电脑的名字），我不知道错在哪里，附上源码，请高手教一下。谢谢。

发生错误的记录（实际上每个用户都使用了不同的电脑房访问的，但只记录到一个名字）：
id        后台时间                              用户    访问的计算机 成功否
149        2009-9-10 16:18:39        应新华        张剑        验证通过
150        2009-9-10 16:18:39        邹玲玉        张剑        验证失败
151        2009-9-10 16:18:47        吴立红        张剑        验证通过
152        2009-9-10 16:19:35        张剑        张剑        验证通过


获取电脑名字的源码：
Public Function ReturnUsers() As String
    On Error GoTo HandleErr
    Dim cn    As ADODB.Connection
    Dim rs    As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set cn = CurrentProject.Connection
    Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    rs.MoveFirst
    Do Until rs.EOF
        ReturnUsers = rs.Fields(0) & ";" & ReturnUsers
        rs.MoveNext
    Loop
ExitHere:
    cn.Close
    Set cn = Nothing
    Set rs = Nothing
    Exit Function
HandleErr:
    MsgBox Err.Number & ":" & Err.Description, , "出错"
    Resume ExitHere
End Function

使用函数获得电脑名字的事件：
Dim strUsers As String
strUsers = ReturnUsers
Me.访问的计算机 = strUsers

ui

cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
这句不好使吧
最好用API取电脑名

Y9X

cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
这句不好使吧
最好用API取电脑名
ui 发表于 2009-9-10 17:05

前辈，可否详细点啊，API我不会用

Y9X

谁能帮我解决一下？谢谢了