Знать имя пользователя на основе имени компьютера

Я использую этот код для получения имени 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=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

теперь мне нужно знать имя пользователя (iduser) из имени компьютера возможно?

0 ответов

Другие вопросы по тегам