Просмотр параметров скринсейвера

On Error Resume Next
WScript.Echo("running script " & Now)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Desktop")
For Each objItem in colItems
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "ScreenSaverActive: " & objItem.ScreenSaverActive
    Wscript.Echo "ScreenSaverExecutable: " & objItem.ScreenSaverExecutable
    Wscript.Echo "ScreenSaverSecure: " & objItem.ScreenSaverSecure
    Wscript.Echo "ScreenSaverTimeout: " & objItem.ScreenSaverTimeout
Next