vbs延迟注销

Question

我想在vbscript中延迟注销我的电脑。这是我到目前为止所尝试的：

Dim ObjShell
Set ObjShell = CreateObject("WScript.Shell")
ObjShell = msgbox("Wollen Sie den Computer herunterfahren ?", +vbYesNo+vbExclamation, "")
If ObjShell = 6 then
Set ShellObject = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each sys In ShellObject
Sys.Win32Shutdown 0
Next
End if

我确实想知道如何制造延迟。

Answer 1

您可以使用WScript.Exec "shutdown.exe -L -F -t 30"让关机完成，或者在执行下一个语句之前使用Wscript.Sleep 30000启动等待。

在这个例子中，两次都是30秒。