0

Всем привет. У меня есть задание ознакомиться с примерами скриптов WMI и запустить их. Проблемы следующие:

  1. На сайте с примером объяснений вообще нету. Пробовал разобраться, но мне кажется, что для первого раза да и вообще первого примера, немного сложновато что-то понять без толковых объяснений. Кое-что пытался понять но увы...
  2. Решил хотя бы посмотреть, как будет работать код с примера (переносить записи из журнала событий System на локальном компьютере в базу данных EventLog.mdb с полями ComputerName, EventType, EventCode, Message и TimeWritten; после окончания переноса журнал событий System очищается). У меня выбывает ошибку: введите сюда описание изображения А говорили, что скрипты будут выполняться в PowerShell без проблем. Или это из-за отсутсвия базы данных?
Option Explicit // это начало подключения к WMI
Dim cn, rs, oLocator, oSvc, oColEvents, oColEventLog, Item, oLogFile // создание переменных оболочек объектов?
Set cn = CreateObject("ADODB.Connection") // создаем объект используя оболочку cn (как в Java)?
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data  // видимо делаем преобразовываем в строчку что-то????   
Source=C:\EventLog.mdb" // указыаем источких для обработки данных
cn.Open // не понятно что открываем
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = 3
rs.LockType = 3
rs.Open "Events", cn
Set oLocator = CreateObject("wbemScripting.Swbemlocator")
Set oSvc = oLocator.ConnectServer()
Set oColEvents = oSvc.ExecQuery _
("Select * from Win32_NTLogEvent WHERE Logfile = 'System'")
For Each Item In oColEvents
        rs.AddNew
        rs("ComputerName") = Item.ComputerName
        rs("EventType") = Item.Type
        rs("EventCode") = Item.EventCode
        rs("Message") = Item.Message
        rs("TimeWritten") = Item.TimeWritten
        rs.Update
Next
Set oColEventLog = oSvc.ExecQuery _
("Select * from Win32_NTEventLogFile WHERE LogFileName = 'System'")
For Each oLogFile In oColEventLog
        oLogFile.ClearEventLog
Next
WScript.Echo "Done"

В общем прошу о помощи с разъяснением.

7
  • Попробуйте в одну строку написать Set oColEventLog = oSvc.ExecQuery _ ("Select * from Win32_NTEventLogFile WHERE LogFileName = 'System'") 22 ноя 2016 в 13:24
  • @AlbertFomin, Вы знаете попробовал сделать это и в других пунктах - помогло. Вот только теперь ошибка не может найти файл EventLog.mdb, я его так и создал текстовій, и поменял расширение на нужное. Но это ведь неправильно? Или можно, исходя из данного условия делать запись в обычный текстовый файл, ведь у меня нету самой базы данных описанной в примере, точнее нету диска с ней? 22 ноя 2016 в 13:31
  • @AlbertFomin, а видимо не можна там ведь не просто текстовый документ нужен, и методы не для него используются 22 ноя 2016 в 13:33
  • Нужна таблица с колонками, такого же типа,как Вы писать будете.MDB - это MS Access база. Можно создать в Access 22 ноя 2016 в 13:37
  • @AlbertFomin, а еще какможно сделать? MySQL ведь не подойдет? 22 ноя 2016 в 13:39

1 ответ 1

1

Dim cn, rs, oLocator, oSvc, oColEvents, oColEventLog, Item, oLogFile // создание переменных Set cn = CreateObject("ADODB.Connection") // Здесь CreateObject создает объект Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Для Connection прописывается Connection Strings с помощью которых он соединяется с базой MS Access Source=C:\EventLog.mdb" // указываем путь к базе (источник данных) cn.Open // Открываем Connection, теперь мы можем работать с базой Set rs = CreateObject("ADODB.Recordset") - Создаем объект RecordSet rs.CursorType = 3 rs.LockType = 3 rs.Open "Events", cn // открываем таблицу events в нашем Connection, то есть сейчас при помощи rs управляем этой таблицей Set oLocator = CreateObject("wbemScripting.Swbemlocator") //Создаем объект Swbemlocator Set oSvc = oLocator.ConnectServer() // соединяемся с сервером Set oColEvents = oSvc.ExecQuery ("Select * from Win32_NTLogEvent WHERE Logfile = 'System'") // выполняем запрос: выбор все записей для логфайла System For Each Item In oColEvents // цикл обработки по записям rs.AddNew // добавили новую строку в таблицу rs("ComputerName") = Item.ComputerName rs("EventType") = Item.Type rs("EventCode") = Item.EventCode rs("Message") = Item.Message rs("TimeWritten") = Item.TimeWritten rs.Update // присвоили и обновили, Next // цикл завершен Set oColEventLog = oSvc.ExecQuery _ ("Select * from Win32_NTEventLogFile WHERE LogFileName = 'System'") For Each oLogFile In oColEventLog oLogFile.ClearEventLog // чистим eventlog Next WScript.Echo "Done"

9
  • премного вам благодарен буду разбираться. Если, что-то все таки не пойму - спрошу еще 22 ноя 2016 в 13:46
  • а что такое "ADODB" это тип пожключения? и где делся "Option Explicit"? 22 ноя 2016 в 13:52
  • Алгоритм примерно таков. Открывается база, открывается таблица, создается объект подключения к WMI, через WMI запросы получаются данные, которые пишутся в таблицу. Чтобы открыть базу используется Connection strings для каждой СУБД они свои. Работа с данными идёт при помощи ado 22 ноя 2016 в 13:53
  • ADO - грубо говоря интерфейс от Microsoft для доступа к базе. Option Explicit - это примочка Basic 22 ноя 2016 в 13:55
  • спасибо, разбираюсь дальше 22 ноя 2016 в 13:55

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.