Vb6 知道基于用户名的计算机名
我使用此代码从连接到access数据库的用户检索caompuetr名称和其他信息:Vb6 知道基于用户名的计算机名,vb6,ldapconnection,Vb6,Ldapconnection,我使用此代码从连接到access数据库的用户检索caompuetr名称和其他信息: Sub ShowUsers(strDatabase As String) Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabase & ";Persist Security Info=Fal
Sub ShowUsers(strDatabase As String)
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabase & ";Persist Security Info=False"
Set rst = cnn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Debug.Print rst.Fields(0).Name, rst.Fields(1).Name, rst.Fields(2).Name, rst.Fields(3).Name
Do While Not rst.EOF
Debug.Print rst.Fields(0), rst.Fields(1), rst.Fields(2), rst.Fields(3)
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub
现在我需要从计算机名中知道usernameiduser是否可行?Google告诉我们,使用这种模式查询,可以在结果中同时获得计算机名和用户名。你到底有什么问题?返回的用户名是数据库登录用户,很多人只是让每个人都以管理员身份登录,所以这是他们唯一会看到的名称。我怀疑他希望看到每个用户的Windows登录名,Jet没有跟踪,因为它没有理由这样做。