Схемы управления питанием и не только, их настройка через реестр

[alexrus]

Часто нужно менять схему управления питанием. Т. к. через интерфейс ОС делать это хоть и удобно, но все же медленно. Поэтому хотелось бы создать, например, reg-файлы и ими менять профили. Никто не подскажет, где эти настройки кроются? Вдогонку хотелось бы узнать те же реестровые настройки заставки. Приму с благодарностью ссылку на источники на англ. и русском языках.
Спасибо.

[Petya V4sechkin]

alexrus, Cmd-скриптом, с помощью команды Powercfg (http://technet2.microsoft.com/WindowsServer/ru/Library/0d90be55-cc9d-423d-8e49-8a79a4d6bcd41049.mspx?mfr=true) (параметр /setactive - выбор схемы).

[alexrus]

Petya V4sechkin, спасибо, то, что нужно. Остается открытым вопрос про отключение заставки.

[Petya V4sechkin]

alexrus, параметр ScreenSaveActive раздела реестра HKEY_CURRENT_USER\Control Panel\Desktop.
Можно проверить, будет ли действовать изменение реестра без перезагрузки.

[alexrus]

Petya V4sechkin, не будет, но все же спасибо. Буду думать, как извратиться.

[Blast]

alexrus, а если для вступления в силу требуется не перезагрузка, а лишь завершение сеанса? Тогда будет достаточно перезапуска оболочки (explorer.exe)
И параметр другой попробуйте. Можно в vbs это все запихнуть. Он и параметр пропишет и explorer перезапустит, пример: Message = Message & "Будет перезапущена оболочка (Windows Explorer shell)." & vbCR
Message = Message & "Продолжить?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then

On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCU\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive", "0"

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Изменения внесены успешно." & vbcr, 4096, "Завершено"

Else

MsgBox "Изменения не внесены." & vbcr & vbcr, 4096, "Отменено пользователем"

End If

[alexrus]

Blast, спасибо, то, что нужно. Осталось проверить, будет ли еще и на Vista работать.

[Blast]

alexrus, скрипт работать будет, а вот приведет ли к ожидаемому результату.. проверить надо :)