Средства для работы с WMI

Примеры скриптов для работы с WMI

Определить время ожидания системы перед запуском screen saver

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" ValueName = "ScreenSaveTimeout" objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue If IsNull(strValue) Then Wscript.Echo "Specify how long the system waits before starting the screen saver:" & _ "The value is either Null or could not be found in the registry." Else Wscript.Echo _ "Specify how long the system waits before starting the screen saver: ", strValue End If


Установить время ожидания системы перед запуском screen saver (900 сек)

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "ScreenSaveTimeout" strValue = "900" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue


Определить, требуется ли пароль для разблокирования скринсэйвера

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer &_ "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" ValueName = "ScreenSaverIsSecure" objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue If IsNull(strValue) Then Wscript.Echo "Password-protect the screen saver:" &_ "The value is either Null or could not be found in the registry." Else Wscript.Echo "Password-protect the screen saver: ", strValue End If




Установить требование ввода пароль для разблокирования скринсэйвера

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "ScreenSaverIsSecure" strValue = "1" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue


Определить имя скринсэйвера

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer &_ "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" ValueName = "ScrnSave.exe" objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue If IsNull(strValue) Then Wscript.Echo "Set the name of the screen saver:" &_ "The value is either Null or could not be found in the registry." Else Wscript.Echo "Set the name of the screen saver: ", strValue End If




Установить имя скринсэйвера

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "ScrnSave.exe" strValue = "C:\WINDOWS\System32\logon.scr" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue


Определить есть привязка указателя мыши к кнопке по умолчанию в активном приложении (1).

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Mouse" ValueName = "SnapToDefaultButton" objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue If IsNull(strValue) Then Wscript.Echo "Cause the mouse pointer to snap to the default button in a window: " &_ "The value is either Null or could not be found in the registry." Else Wscript.Echo "Cause the mouse pointer to snap to the default button in a window: ", strValue End If




Установить привязку указателя мыши к кнопке по умолчанию в активном приложении.

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Mouse" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "SnapToDefaultButton" strValue = "1" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue




Определить степень подсветки движения указателя мыши (след мыши). В зависимости от интенсивности подсветки это значение находится в интервале от 2 до 7. Если свойство отключено - значение - 0.

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Mouse" ValueName = "MouseTrails" objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue If IsNull(strValue) Then Wscript.Echo "Display mouse pointer trails: The value is either Null or could not be found in the registry." Else Wscript.Echo "Display mouse pointer trails: ", strValue End If




Установить степень подсветки движения указателя мыши (след мыши). В зависимости от интенсивности подсветки это значение находится в интервале от 2 до 7. Если свойство отключено - значение - 0. Вступит в силу после перезагрузки.

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Mouse" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "MouseTrails" strValue = "4" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue


Установить количество строк, которые прокручивается с каждым вращением колеса мыши. Чтобы отключить прокрутку, установите это значение в 0. Чтобы заставить колесо действовать как клавиши Page Up / Page Down, установите это значение в 0xffffffff.

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer &_ "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "WheelScrollLines" strValue = "5" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue


Определить настройку количества строк, которые прокручивается с каждым вращением колеса мыши.

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Desktop" ValueName = "WheelScrollLines" objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue If IsNull(strValue) Then Wscript.Echo "Configure the number of lines scrolled " & _ "with each rotation of the mouse wheel: "& _ "The value is either Null or could not be found in the registry." Else Wscript.Echo "Configure the number of lines "& _ "scrolled with each rotation of the mouse wheel: ", strValue End If




Поменять местами кнопки мыши. (не физически) Чтобы поменять кнопки мыши, установите значение 1. В противном случае, установите это значение в 0. Этот параметр не вступит в силу, пока вы не выйдите из системы и войдите

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Control Panel\Mouse" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "SwapMouseButtons" strValue = "1" objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue


Группировать сходные задачи в одну кнопку на панели задач

On Error Resume Next HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer &_ "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "TaskbarGlomming" dwValue = 1 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue




Скрывать неиспользуемые иконки на панели задач

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & _ "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "EnableAutoTray" dwValue = 1 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue




Закрепить панель задач. Чтобы заблокировать панель задач, установите значение в 0. Чтобы разблокировать панель задач (позволяет перемещать), установите значение в 1. Этот параметр не вступит в силу, пока вы не выйдите из системы и войдите обратно.

HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath ValueName = "TaskBarSizeMove" dwValue = 1 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue




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






  TopList Rambler Top100 own counter Valid XHTML 1.0 Strict Valid CSS Rambler Top100

Фитотерапия Молитвы Водолечение Юмор Форум Кладовка link О авторе

Фитотерапия Молитвы Водолечение Юмор Форум Кладовка Ссылки О авторе Отправить сообщение Карта сайта Поиск по сайту Главная страница

Copyright © 1999 - 2017  Бронислав Краснер