☰

如何在登入後“x”時間後鎖定計算機

tag-icon • tag-icon windows batch-file windows-task-scheduler task-scheduler lock-screen
如何在登入後“x”時間後鎖定計算機

雖然有一個非常類似的問題：如何在登入後一定時間後鎖定我的電腦？我認為它不適合我的需求。我需要我的電腦鎖定不關機。

我做了什麼：使用以下腳本製作了一個bat文件

shutdown -l /t 1800

當我在任務規劃程序中放置任務時，它根本沒有鎖我的電腦。 bat 檔案本身不起作用。我不知道為什麼。

如果我做。

shutdown -l

它工作完美。但我不希望這種事發生。我希望它在特定時間後執行此操作。

我確實明白 WinKey + L 和登出是不同的。

還有有沒有辦法每天都這樣做，除了周六和周日，我這段時間必須工作。

答案1

  1. 運行任務計劃程序。
  2. 建立一個排程任務，該任務在登入後在給定的時間內啟動 - 在「觸發器」標籤上，有一個登入觸發器和事件後延遲操作的選項 - 您可以在此輸入時間。
  3. 查看以最高權限運行（特別是如果沒有此選項鎖定不起作用）。
  4. 將您的 BAT 檔案作為可運行的操作。

完畢。

您無法將週末例外新增至 UI 中，但可以直接在批次檔或 ps1 檔案中測試工作日。或測試檔案“do-not-lock”是否存在。如果存在，則結束批次而不鎖定。使用排程任務（在工作日/週末運行）建立/刪除該檔案。

答案2

參考這個舊的vb腳本自動鎖定_On_Idle_TimeOut.vbs

我對它做了一些更改，以便循環運行，並且每 30 分鐘計算機就會被鎖定一次。

Auto-Lock_After_Amount_of_Time_Defined_by_User.vbs

'#################################################################################
'#       Script Name : Auto-Lock_After_Amount_of_Time_Defined_by_User.vbs        #
'#################################################################################
Option Explicit
Dim Copyright,Msg
Dim Timeout,strCommand,VbsPath,ShortcutName
Timeout = 30 '30 minutes : You can modify this variable as your convenience
Msg = Lang
Copyright = Msg(0) & ChrW(169) &" Hackoo 2022"
If AppPrevInstance() Then 
    MsgBox Msg(1) & VbCrLF & CommandLineLike(WScript.ScriptName),VbExclamation,Copyright
    WScript.Quit
Else 
    Do
        strCommand = "CMD /C Shutdown -L"
        VbsPath = Wscript.ScriptFullName
        ShortcutName = "Auto-Lock_TimeOut"
        Call Shortcut(VbsPath,ShortcutName)
        Wscript.Sleep 1000 * 60 * Timeout
        CreateObject("Wscript.Shell").Run strCommand,0,True
    Loop
End If
'---------------------------------------------------------------------------------------------------------------
Sub Shortcut(PathApplication,ShortcutName)
    Dim objShell,StartFolder,objShortCut,MyTab
    Set objShell = CreateObject("WScript.Shell")
    MyTab = Split(PathApplication,"\")
    If ShortcutName = "" Then
        ShortcutName = MyTab(UBound(MyTab))
    End if
    StartFolder = objShell.SpecialFolders("Startup")
    Set objShortCut = objShell.CreateShortcut(StartFolder & "\" & ShortcutName & ".lnk")
    objShortCut.TargetPath = DblQuote(PathApplication)
    ObjShortCut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,44"
    objShortCut.Save
End Sub
'---------------------------------------------------------------------------------------------------------------
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'---------------------------------------------------------------------------------------------------------------
Function AppPrevInstance()   
    With GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")   
        With .ExecQuery("SELECT * FROM Win32_Process WHERE CommandLine LIKE " & CommandLineLike(WScript.ScriptFullName) & _
            " AND CommandLine LIKE '%WScript%' OR CommandLine LIKE '%cscript%'")   
            AppPrevInstance = (.Count > 1)   
        End With   
    End With   
End Function    
'----------------------------------------------------------------------------------------------------------------
Function CommandLineLike(ProcessPath)   
    ProcessPath = Replace(ProcessPath, "\", "\\")   
    CommandLineLike = "'%" & ProcessPath & "%'"   
End Function
'----------------------------------------------------------------------------------------------------------------
Function OSLang()
    Dim dtmConvertedDate,strComputer,objWMIService,oss,os
    Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
    For Each os in oss
        OSLang = os.OSLanguage
    Next
End Function
'----------------------------------------------------------------------------------------------------------------
Function Lang()
Dim MsgFR,MsgEN

MsgFR = Array("Verrouillage automatique en cas d'inactivité " ,"ATTENTION ! Il y a une autre instance en cours d'exécution !",_
"Attention ! Votre Session va être verrouillé dans 20 secondes !`n`n Voulez-vous confirmer le Verrouillage de votre session ?","`n`n OUI ou NON ?")

MsgEN = Array("Automatic Lock Session On Idle TimeOut ","ATTENTION ! There is another instance running !",_
"Warning ! Your Session will be locked in 20 seconds !`n`n Do you want to confirm the Locking of your session ?","`n`n YES or NO ?")

'Vérifiez si le système est français pour définir le tableau français comme message, sinon définissez-le comme anglais
'Check if the system is french to set the French array as message otherwise set it as English

If Oslang = 1036 Then
    Lang = MsgFR ' French Array Message to be set
Else
    Lang = MsgEN ' English Array Message to be set
End If
End Function
'----------------------------------------------------------------------------------------------------------------

答案3

只需將其複製並貼上到您的蝙蝠中即可：

call timeout /t 1800 && Rundll32.exe user32.dll,LockWorkStation

如果你想讓你的球棒安靜地跑，請跟隨本指南在將其新增至任務規劃程式之前

答案4

感謝大家的回复，你們每個人都給了我一份可以合作的作品。這是完整的答案：

$i = 0
$sTime = 0;
$day = (Get-Date).DayOfWeek

if ($day -match "Saturday|Sunday") {
    $sTime = 6000
} else {
    <#Whatever you need to do#>
}

Write-Host "Screen time allocation on a $day : $sTime"

while($i -ne $sTime)
{
    $remainSTime = $sTime - $i
    $ts =  [timespan]::fromseconds($remainSTime)
    Write-Host $ts
    Start-Sleep -Seconds 1
    $i++
}
Rundll32.exe user32.dll,LockWorkStation

這就是完整的答案。 @Hackoo 答案很好，但 vbs 腳本非常冗長且難以理解。作為關心安全性的用戶，我決定嘗試理解該腳本:)

相關內容