박쥐를 똑바로 뽑아 내십시오 - 이것은 기본적으로 가능하지 않습니다.
하나! 스크립트를 통해 가능할 수도 있습니다.
이론적으로는 화면 보호기 시작 시간을 읽음으로써 레지스트리 키를 1 분 또는 2 분마다 새로운 값으로 업데이트하는 작은 VBScript를 작성할 수 있습니다.
이 스크립팅 녀석 게시물은 스크린 세이버가 시작된 시간을 읽는 방법을 보여줍니다. 날짜 / 시간 차이를 확인하고 경과 시간을 찾으려면 다음을 수행 할 수 있어야합니다. 레지스트리 키를 업데이트하십시오. "스크린 세이버는 x 분 동안 실행되었습니다".
이것은 합법적 인 통지 키가 나타날 때마다 읽혀지는 것을 전제로합니다. - 여분의 키트 나 분당 테스트 할 시간이 없지만 올바른 방향으로 당신을 알려야합니다.
이것은 1 ~ 2 분마다 실행되도록 예약 된 작업으로 설정할 수 있습니다.
정확히는 깨끗하지는 않지만 작동 할 수 있습니다.
다음과 같이 시도해보십시오.
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 "Screen saver start time: " & DateDiff("n",WMIDateStringToDate(objProcess.CreationDate),now())
'Set Registry Key to "x mins"
End If
Next
Wscript.Echo "The screen saver is not running."
'Set Registry Key to "0 minutes"
Function WMIDateStringToDate(dtmStart)
WMIDateStringToDate = CDate(Mid(dtmStart, 5, 2) & "/" & Mid(dtmStart, 7, 2) & "/" & Left(dtmStart, 4) & " " & Mid (dtmStart, 9, 2) & ":" & Mid(dtmStart, 11, 2) & ":" & Mid(dtmStart,13, 2))
End Function