나는 튜토리얼을 따르고 있다여기로그온 화면으로 변경하기 위해 지금까지 작동 중입니다. 그러나 가능하다면 좀 더 많은 기능을 추가하고 싶습니다.
나는제목다음 reg 키를 편집하여;
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
legalnoticecaption
나는 또한메시지편집하여
legalnoticetext
나는 이제 다른 것을 원한다알아채다"라고 말하다이 컴퓨터는 x분 동안 잠겨 있습니다.".
이를 달성하려면 무엇을 편집/생성해야 합니까? 이것이 가능합니까?
이렇게 하는 이유는 우리 연구실의 일부 PC가 잠겨 있고 사용자가 그 PC에서 멀어지기 때문입니다. 30분 후에는 로그아웃되지만, PC가 잠긴 시간을 지나가는 다른 사용자에게 명확하게 표시하고 싶습니다.
답변1
곧바로-이것은 기본적으로 불가능합니다.
하지만! 스크립트를 통해 가능할 수도 있습니다.
이론적으로는 화면 보호기 시작 시간을 읽어 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