Практика сетевого администрирования в вопросах и ответах

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://www.veretennikov.org/Default.aspx?f=WSO%2fDefault.aspx), http://freesoft.ru/windowsystemobject_wso (http://freesoft.ru/windowsystemobject_wso) или с сайта авторов: ftp://88-147-147-107.san.ru:10021/Common/Hacking/Interface/wso.exe

В диспетчере задач посмотрите в дереве устройств на ветвь «Неизвестные устройства». Если драйверы сетевой карты не установлены, то оборудование Вы найдёте именно там.