Система WindowsXP SP3 32bit, с установленным КВ4012598.
Версия Eset Nod32 Antivirus 3.0.684.0.
После выполнения скрипта имею Your computer is NOT patched agaist EternalBlue.
Что я должен сделать, или что изменить???
Спасибо.
Наш форум переведен в режим работы "только для чтения", публикация новых тем и сообщений недоступна. Мы искренне благодарны вам за то, что были с нами, но пришло время двигаться дальше. После официального ухода компании ESET с российского рынка мы приступили к разработке новых продуктов вместе с новыми партнёрами. Приглашаем вас присоединиться к нашему новому форуму PRO32.
Мы более не являемся эксклюзивным дистрибьютором программных продуктов словацкого разработчика ESET в России, Республике Беларусь, Казахстане, Азербайджане, Узбекистане, Кыргызстане, Таджикистане, Туркменистане, Молдове, Грузии и Армении.
Купить и продлить лицензии ESET на нашем сайте больше нельзя.
Предлагаем вам попробовать новые продукты компании PRO32.
PRO32 — это технологичные решения, надежная защита от киберугроз и максимальная производительность устройств. Для действующих клиентов ESET мы предлагаем промокод на скидку в размере 15% — ESET15. Скопируйте его и после добавления товара в корзину, не забудьте его применить в корзине.
| Цитата |
|---|
| После выполнения скрипта имею Your computer is NOT patched agaist EternalBlue. |
| Цитата |
|---|
| Вадим Верстак написал: SP4, что это.??? |
| Цитата |
|---|
| Checks if the computer is vulnerable to EternalBlue ' ' Author: Cassius Puodzius Dim KBList Set KBList = CreateObject("System.Collections.ArrayList") KBList.Add "4012212" KBList.Add "4012213" KBList.Add "4012214" KBList.Add "4012215" KBList.Add "4012216" KBList.Add "4012217" KBList.Add "4012598" KBList.Add "4012606" KBList.Add "4013198" KBList.Add "4013429" Set WshShell = CreateObject("WScript.Shell") CreateObject("WScript.Shell").Popup "Fetching list of installed KBs" & vbcrlf & vbcrlf & "This may take some minutes...", 5, "Vulnerable to EternalBlue?", vbOKOnly 'Dim HotFixList : Set HotFixList = WshShell.Exec("wmic qfe list") WshShell.Run "cmd /c wmic qfe list | clip", 0, True For Each kb In KBList If InStr(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"), "KB" + kb) = 0 Then MsgBox("Your computer is patched against EternalBlue (KB" + kb + ")") WScript.Quit End If Next MsgBox("Your computer is NOT patched agaist EternalBlue") |
| Цитата |
|---|
| Мартынов Николай написал: в скрипте используется WMI, на некоторых ОС данный инструментарий может отсутствовать или же может находиться в нерабочем состоянии. |