Disable /Enable Screen Saver With QTP

Disable /Enable Screen Saver with QTP

Dim WshShell



Const REG_KEY_SCREEN_SAVE_DESKTOP = "HKEY_CURRENT_USER\Control Panel\DesktopScreenSaveActive"

Const REG_KEY_SCREEN_SAVE_POLICY  = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive"



Sub DisableScreenSaver

   WshShell.RegWrite REG_KEY_SCREEN_SAVE_POLICY,  "0", "REG_SZ"

   WshShell.RegWrite REG_KEY_SCREEN_SAVE_DESKTOP, "0", "REG_SZ"

End Function



Sub EnableScreenSaver

   WshShell.RegWrite REG_KEY_SCREEN_SAVE_POLICY,  "0", "REG_SZ"

   WshShell.RegWrite REG_KEY_SCREEN_SAVE_DESKTOP, "0", "REG_SZ"

End Sub



Set WshShell = CreateObject( "WScript.Shell" )



DisableScreenSaver



'Do Some Stuff



EnableScreenSaver