我试图让弹出窗口在机器关闭时询问我是否要更改自动登录注册表，将“是”更改为“值 1”，将“否”更改为“值 0”。VB 脚本正在执行这项工作，但是当我在任务计划程序或本地组策略上运行文件时，弹出窗口没有出现。机器将关闭/重新启动。
脚本：
Set Shell = CreateObject("WScript.Shell")
Dim WshShell
Answer = MsgBox("Do You Want To" & vbNewLine & "change reg value on Your Computer?",vbYesNo,"Change:")
If Answer = vbYes Then
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\" _
& "CurrentVersion\Winlogon\AutoAdminLogon", "1", "REG_SZ"
Set WshShell=Nothing
Ending = 1
ElseIf Answer = vbNo Then
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\" _
& "CurrentVersion\Winlogon\AutoAdminLogon", "0", "REG_SZ"
Set WshShell=Nothing
If Stopping = vbYes Then
WScript.Quit 0
End If
End If
答案1
一旦关机开始，您就无法暂停它来处理问题。
创建一个批处理文件来提示问题，处理问题，通过退出代码返回批处理文件，然后发出shutdown /s
另一种方法（对我来说更好）是将两件事分开：处理你的问题，然后单独关闭。