Is there a way to execute the user's screen saver using vbscript?

Microsoft had a button in an old version of office (office 97?) that had a
window shade icon on the quicklaunch toolbar which executed the screen saver
- i would like to emulate that functionality.

thanks

Re: Screen Saver - Execute by Alex

Alex
Fri May 09 11:29:54 CDT 2008

The simplest way is probably to look up which screensaver they use and then
invoke it directly. On my system it's stored under the key
HKEY_CURRENT_USER\Control Panel\Desktop
in a value named
SCRNSAVE.EXE

The following script does the job:

'StartScreensaver.vbs
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
ss = WshShell.RegRead("HKCU\Control Panel\Desktop\SCRNSAVE.EXE")
WshShell.Run ss



"PK" <PK@discussions.microsoft.com> wrote in message
news:22F826ED-F01D-478E-B97A-E9D7F3CDA259@microsoft.com...
> Is there a way to execute the user's screen saver using vbscript?
>
> Microsoft had a button in an old version of office (office 97?) that had a
> window shade icon on the quicklaunch toolbar which executed the screen
> saver
> - i would like to emulate that functionality.
>
> thanks


Re: Screen Saver - Execute by Luuk

Luuk
Fri May 09 11:47:32 CDT 2008

PK schreef:
> Is there a way to execute the user's screen saver using vbscript?
>
> Microsoft had a button in an old version of office (office 97?) that had a
> window shade icon on the quicklaunch toolbar which executed the screen saver
> - i would like to emulate that functionality.
>
> thanks

c:\windows\system32\scrnsave.scr /s

--
Luuk

Re: Screen Saver - Execute by PK

PK
Fri May 09 11:52:01 CDT 2008

Perfect!

Thanks Alex!



"Alex K. Angelopoulos" wrote:

> The simplest way is probably to look up which screensaver they use and then
> invoke it directly. On my system it's stored under the key
> HKEY_CURRENT_USER\Control Panel\Desktop
> in a value named
> SCRNSAVE.EXE
>
> The following script does the job:
>
> 'StartScreensaver.vbs
> Dim WshShell
> Set WshShell = CreateObject("WScript.Shell")
> ss = WshShell.RegRead("HKCU\Control Panel\Desktop\SCRNSAVE.EXE")
> WshShell.Run ss
>
>
>
> "PK" <PK@discussions.microsoft.com> wrote in message
> news:22F826ED-F01D-478E-B97A-E9D7F3CDA259@microsoft.com...
> > Is there a way to execute the user's screen saver using vbscript?
> >
> > Microsoft had a button in an old version of office (office 97?) that had a
> > window shade icon on the quicklaunch toolbar which executed the screen
> > saver
> > - i would like to emulate that functionality.
> >
> > thanks
>
>

Re: Screen Saver - Execute by PK

PK
Fri May 09 11:54:03 CDT 2008

... and thank you Luuk - that works in a batch file as well!

"Luuk" wrote:

> PK schreef:
> > Is there a way to execute the user's screen saver using vbscript?
> >
> > Microsoft had a button in an old version of office (office 97?) that had a
> > window shade icon on the quicklaunch toolbar which executed the screen saver
> > - i would like to emulate that functionality.
> >
> > thanks
>
> c:\windows\system32\scrnsave.scr /s
>
> --
> Luuk
>