[Petya V4sechkin]

alexrus, Cmd-скриптом, с помощью команды Powercfg (параметр /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, скрипт работать будет, а вот приведет ли к ожидаемому результату.. проверить надо