Практика сетевого администрирования. Юрий Александрович Денисов

Чтение книги онлайн.

      dim f, t, mmc_box, Button_Open

      dim WshShell, WSO

      '***********************************

      ' создаем ссылки на объекты

      set WshShell = WScript.CreateObject("Wscript.Shell")

      set WSO = WScript.CreateObject("Scripting.WindowSystemObject")

      '***********************************

      ' создаем форму

      set f = WSO.CreateForm(0, 0, 0, 0, WSO.Translate("WS_CONTROLBOX |

      WS_MINIMIZEBOX"))

      f.Text = "Открытие оснастки Windows"

      f.ClientWidth = 400

      f.ClientHeight = 100

      f.CenterControl()

      '***********************************

      ' элементы формы

      ' текстовая метка

      f.TextOut 10,10,"Список оснасток:"

      ' список

      set mmc_box = f.CreateComboBox(120,10,140,20,WSO.Translate("CBS_DROPDOWNLIST"))

      mmc_box.add("диспетчер устройств")

      mmc_box.add("управление компьютером")

      mmc_box.add("дефрагментация диска")

      mmc_box.add("журнал событий")

      mmc_box.add("службы Windows")

      mmc_box.ItemIndex=0

      'кнопка открытия оснастки, например,

      ' диспетчер устройств из командной строки

      set Button_Open = f.CreateButton(280,10,100,25,"Открыть")

      Button_Open.OnClick = Getref("Open_mmc")

      set t = f.CreateHyperLink(130,40,250,25,"www.scriptcoding.ru")

      f.Show()

      WSO.Run()

      '***********************************

      ' функция для открытия оснастки, например

      ' диспетчер устройств через командную строку

      '***********************************

      function Open_mmc()

      dim mmc

      select case(mmc_box.ItemIndex)

      case 0

            mmc = "devmgmt.msc"

      case 1

            mmc = "compmgmt.msc"

      case 2

            mmc = "dfrg.msc"

      case 3

            mmc = "eventvwr.msc"

      case else

            mmc = "services.msc"

      end select

      WshShell.Run "mmc " & mmc

      end function

      (Данный скрипт выбирает и запускает в графическом интерфейсе оснастки «диспетчер устройств», «управление компьютером», «дефрагментация диска», «журнал событий» и «локальные службы». Вы можете написать свой список инструментов).

      Рис. 2. Диспетчер устройств Windows 10

      Примечание. Данный скрипт для своей работы требует установленного пакета Windows Script Object (WSO), который отсутствует в менеджере пакетов chocolatey. Скачать данные библиотеки можно по ссылке: http://www.veretennikov.org/Default.aspx?f=WSO%2fDefault.aspx, http://freesoft.ru/windowsystemobject_wso или с сайта авторов: ftp://88-147-147-107.san.ru:10021/Common/Hacking/Interface/wso.exe

      В диспетчере задач посмотрите в дереве устройств на ветвь «Неизвестные устройства». Если драйверы сетевой карты не установлены, то оборудование Вы найдёте именно там. Щёлкнув правой клавишей мыши и посмотрев на вкладку «Свойства -> ИД Устройства», ВЫ можете найти буквенно-цифровой идентификатор устройства, для которого нужно будет найти драйвер.

      Если драйвер сетевой карты установлен, то сетевая карта, вместе со своим наименованием и характеристиками, окажется в ветви «Сетевые адаптеры». Здесь возможно несколько вариантов:

      Драйвер установлен, устройство функционирует нормально. Перед названием карты будет отображаться значок сети, и больше никаких СКАЧАТЬ