Примеры скриптов для работы с 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
Для вопросов, обсуждений, замечаний, предложений и т. п. можете использовать раздел форума этого сайта (требуетс¤ регистраци¤).
