Performance counters for screensaver activity

Hi all,

I have a strange problem where a couple of people's screensavers do not kick in after a set time.
I have investigated the issue and GPO results and the screensaver settings seems to be applied to the machines,
however a random couple of machines will not start the screensaver after the set amount of user inactivity on the machine.
I was wondering if someone could point me in the right direction as I would like to find out what performance monitors I can run to
check wether something is interupting the idle time?
What monitors can I set up to specifically monitor in-activity on the machine and perhaps also or even monitor the screensaver process itself?

Thanks,
queens2007Asked:
Who is Participating?
 
queens2007Connect With a Mentor Author Commented:
Hi all. I have sorted this out myself, I have writen a script to monitor the SCR file when the process starts.
Here is teh code, thanks to you all however for your comments.
Regards,

strComputer = "."
Set objNetwork = CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent Within 5 WHERE TargetInstance Isa ""Win32_Process"" And TargetInstance.Name = 'scrnsave.scr'")
Do While True
	Set objProcess = colMonitoredProcesses.NextEvent
	' Email variables:
	strServer = "xxx.xxx.xxx.xxx"
	strTo = "user@domain.com"
	strFrom = "monitor@domain.com"
	strSubject = "scrnsave.scr Detected on " & objNetwork.ComputerName & " by user " & objNetwork.UserName
	strBody = "Screensaver started OK. This is a live monitor that has triggered this e-mail once the scrnsave.scr sreensaver was triggered as a starting process" & VbCrLf
	SendEmail strServer, strTo, strFrom, strSubject, strBody, ""
Loop

Sub SendEmail(strServer, strTo, strFrom, strSubject, strBody, strAttachment)
        Dim objMessage
        
        Set objMessage = CreateObject("CDO.Message")
        objMessage.To = strTo
        objMessage.From = strFrom
        objMessage.Subject = strSubject
        objMessage.TextBody = strBody
  		If strAttachment <> "" Then objMessage.AddAttachment strAttachment
  		
        '==This section provides the configuration information for the remote SMTP server.
        objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Name or IP of Remote SMTP Server
        objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
        'Server port (typically 25)
        objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25      
        objMessage.Configuration.Fields.Update
        '==End remote SMTP server configuration section==
 
        objMessage.Send
        Set objMessage = Nothing
End Sub

Open in new window

0
 
andreizzCommented:
You should unplug the mouse to check if maybe that moves and disturbs the idle time.
0
 
queens2007Author Commented:
I have indeed tried this and it was down to that on one of the machines, it was using a wireless mouse and it all came down to the drivers. That machine is sorted now, however the others do not have the same mouse nor drivers, so I am not quite sure what it could be.
0
Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

 
andreizzCommented:
normally if you don't have any input devices it should go to the screensaver, try setting a smaller time to wait for the screenserver.
0
 
queens2007Author Commented:
I have tried that I am afraid, I am thinking that it could perhaps be the drivers of the graphics card? But I will confirm this shortly.
0
 
thomasd04Commented:
Hi queens2007. Perhaps running the command line tool POWERCFG -ENERGY could help point you in the right direction. Be sure to run it with elevated privileges.
0
 
queens2007Author Commented:
This solution works best for me in my situation
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.