![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Tell if the Screen Saver is Active
|
||
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process") For Each objProcess in colProcesses If Right(objProcess.Name, 4) = ".scr" Then Wscript.Echo "The screen saver " & objProcess.Name & " is running." Wscript.Echo "Screen saver start time: " & objProcess.CreationDate Wscript.Quit End If Next Wscript.Echo "The screen saver is not running." | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |