Posted to microsoft.public.excel.programming
|
|
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
|