View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
NickHK[_3_] NickHK[_3_] is offline
external usenet poster
 
Posts: 415
Default Group policy screensaver - turn it off!

Ralph,
Unless I'm missing something, if the group policy bars the OP from changing
the settings manually, how will the OP have permission to those keys ?

NickHK

"Ralph" ...
Create a vb script with the following:

Option Explicit
Dim WSHShell, regVal

Set WSHShell = WScript.CreateObject("WScript.Shell")

regVal = "HKCU\Software\Policies\Microsoft\Windows\Cont rol Panel\Desktop\"
regVal=regVal & "ScreenSaveTimeOut"
WSHShell.RegDelete regVal

regVal = "HKCU\Software\Policies\Microsoft\Windows\Cont rol Panel\Desktop\"
regVal=regVal & "ScreenSaverIsSecure"
WSHShell.RegDelete regVal

Set WSHShell=Nothing


" wrote:

Actually, I've just tried that code and it didn't work! Any other
ideas?

Cheers,

Chris




On Jun 5, 6:51 pm, wrote:
Hi,

I have a rather restricitve group policy set on my machine. I look
after a monte carlo simulation model, written in VBA, which annoying
breaks whenever the screensaver kicks in. They won't let me turn the
screensaver off. I have tried.

I have the following programming tools available:

1. VBA
2. Python compiler

and, er, that's it...

Does anyone know any vba hacks (or at a stretch a python hack) which
could stop my screensaver locking every 15 minutes, breaking my model?

I don't care how it does it - simulate a mouse movement, type a key,
turn the screensaver off... anything - it's becoming desperate!

I found the following in this newsgroup, but not sure it would work
with a group policy screensaver (Don Bardner, original author)...

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
_
lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub SetScreenSaver(OnOff As Long)
'From Don Bradner
Dim templong As Long
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPIF_UPDATEINIFILE = 1
Const SPIF_SENDWININICHANGE = 2
templong = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, OnOff,
ByVal
0&, _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

Sub MySub()
SetScreenSaver 0
'your code here
SetScreenSaver 1
End Sub