Const VAL_SCR_STATUS = "HKCU\Control Panel\Desktop\ScreenSaveActive"

Set sh = CreateObject("WScript.Shell")
status = sh.RegRead(VAL_SCR_STATUS)

If status = "0" Then
	status = "1"
Else
	status = "0"
End If

sh.RegWrite VAL_SCR_STATUS, status, "REG_SZ"