Get Screen Saver 

The following example shows getting screen saver by reading windows registry.

File Name  :   source/VBS/advanced/screen_saver.vbs  Author  :   Sudhakar KV Email  :   kvenkatasudhakar@gmail.com

view sourceprint? 1 Dim WSHShell, RegKey, ScreenSaver 2 Set WSHShell = CreateObject("WScript.Shell") 3   4 deskTopRegKey = "HKCU\Control Panel\Desktop\" 5   6 'Read the registry key of screen saver 7 ScreenSaver = WSHShell.RegRead(deskTopRegKey & "SCRNSAVE.EXE") 8   9 WScript.echo "Screen Saver: " & ScreenSaver