[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