求助：哪位大侠可以给个VBS写的重启电脑脚本啊

[viviam_3026]

哪位大侠可以给个VBS写的重启电脑脚本啊，本人新手上路，所以写代码遇到不少问题，自己写的在vista，xp,都可以运行，但是不知道为什么2003运行就没有效果。代码如下:
Dim ws
Set ws = CreateObject("wscript.shell")
ws.run "cmd /c shutdown -r -t 0", 0

大侠们最好有脚本提供哦，谢谢，分肯定会多多的给！！

[viviam_3026]

有没有哪位大侠可以帮忙一下，谢谢啦~

[西蒙君霸占阿花]

我要怎么给你呢,我的直接就是一个EXE文件.

你用的时候直接就可以重启电脑.

[西蒙君霸占阿花]

我的那个在 WIN 7 上也是一样的效果的.

我的邮箱 [e-mail]

[viviam_3026]

我自己的脚本如下：
dim strComputer
strComputer = "."
'wscript.echo "Rebooting "&strComputer
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,authenticationLevel=Pkt,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
可是WINDOWS 2003是没有反应的，我在cmd里面运行了一下shutdown -r -t 0报错如下：
The computer is processing another action and thus cannot be shut down. Wait until the computer has finished and then try again。
不知道大侠有没有解决办法呢？