Цитата Iska:
|
Пример работы: Работа с базами данных при помощи ADO из vbscript: самостоятельная работа - AskIt.RU. »
|
Честно говоря, что то про базы MS Access я даже не подумал.
Цитата Iska:
|
P.S. Я не очень представляю себе, какой конечный формат текстового файла Вам нужен, равно как и зачем. Посему за него судить не берусь. »
|
Конечный формат исходного файла, я приводил в самом первом посте. Нужно это, для для удобства просмотра логов lightsquid.
Не могли бы Вы помочь в реализации, а то в vbs я не силён, а уж с базами это вообще темнота...
Вот пытаюсь сделать по той ссылке, что Вы дали. Создал файл .mdb. Создал там таблицу со столбцами DataTime | IP | UserName. Поправил код:
Код:
Dim cn, rs, strComputer
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source=D:\scripts\vbs\Ip2Name.mdb"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "Ip2Name", cn
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
ip = IPConfig.IPAddress(0)
End If
Next
Dim objADSystemInfo, objComp, objUser
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)
strUserName = objUser.sn + " " + objUser.GivenName
rs.Feilds("DataTime").Value = Date
rs.Feilds("IP").Value = ip
rs.Feilds("UserName").Value = strUserName
но при запуске получаю ошибку:
Цитата:
Строка: 6
Символ: 1
Ошибка: Не удаётся найти указанны йпоставщик. Вероятно, он установлен неправильно.
Код: 800A0E7A
Источник: ADODB.Connection
|
