如何使用 VBScript 强制重启 Windows 机器？答案

【问题标题】：How to force restart a Windows box using VBScript?如何使用 VBScript 强制重启 Windows 机器？
【发布时间】：2010-09-16 08:40:51
【问题描述】：

我正在尝试寻找一种方法来强制 Windows 重新启动，但我遇到了问题。我试过了

Set OpSysSet = GetObject("winmgmts:{authenticationlevel=Pkt," _
     & "(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where "_
     & "Primary=true")
for each OpSys in OpSysSet
    retVal = OpSys.Reboot()
next

我也尝试过使用shutdown -f -r 命令，在这两种情况下我有时都没有得到响应，如果我再试一次，我会收到一个错误消息“操作无法完成，因为系统正在关闭”，即使没有无论我离开它多久，它都不会关闭，它仍然允许我启动新程序，并且执行shutdown -a 会给出相同的错误。如何使用脚本强制 Windows 重启？

【问题讨论】：

标签： windows vbscript reboot

【解决方案1】：

嗯，这使用了 VBScript——尽管它确实调用了与您尝试执行相同的命令行关闭操作。我已经测试过了，它可以工作。

Dim oShell 
Set oShell = CreateObject("WScript.Shell")

'restart, wait 5 seconds, force running apps to close
oShell.Run "%comspec% /c shutdown /r /t 5 /f", , TRUE

您运行的是什么操作系统？这个测试是针对 XP 的。我想知道服务器操作系统是否需要关闭代码...

【讨论】：

【解决方案2】：

尝试替换：

retVal = OpSys.Reboot()

与：

retVal = OpSys.Win32Shutdown(6)

【讨论】：

我假设你的意思是 Win32ShutDown？
我和马特在一起，这是要走的路。 MSDN 详细信息：msdn.microsoft.com/en-us/library/aa394058(VS.85).aspx

【解决方案3】：

您还可以尝试 Sysinternals now Microsoft 的 psShutdown 命令行实用程序。 http://technet.microsoft.com/en-us/sysinternals/bb897541.aspx

【讨论】：

【解决方案4】：

'*********************************************************

Option Explicit

Dim objShell

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"

'*********************************************************

这个小脚本会在 0 秒后重新启动本地计算机。

【讨论】：

【解决方案5】：

Set Reset= WScript.CreateObject ("WScript.Shell")

Reset.run "shutdown -r -t 00", 0, True

或者..

Shell "shutdown -r -t 00"   ' for restart

Shell "shutdown -s -t 00"  ' for Shutdown

Shell "shutdown -l -t 00"   ' for log off

Shell "shutdown -a -t 00"  ' for abort

【讨论】：