Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Windows Vista (http://forum.oszone.net/forumdisplay.php?f=66)
-   -   Схемы управления питанием и не только, их настройка через реестр (http://forum.oszone.net/showthread.php?t=96372)

alexrus 18-12-2007 21:20 699563

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

Petya V4sechkin 18-12-2007 21:48 699578

alexrus, Cmd-скриптом, с помощью команды Powercfg (параметр /setactive - выбор схемы).

alexrus 18-12-2007 21:59 699583

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

Petya V4sechkin 18-12-2007 22:03 699585

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

alexrus 18-12-2007 22:44 699606

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

Blast 19-12-2007 12:56 699851

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 07-01-2008 02:48 710785

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

Blast 07-01-2008 10:47 710924

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


Время: 02:29.

Время: 02:29.
© OSzone.net 2001-