怎么用VBS关机

set ws=CreateObject("Wscript.Shell")
ws.run "cmd.exe /c shutdown -r -t 3000 -c ""12345"" ",0 ,true
'==========================================
'此脚本是使用CMD命令完成关机的
'3000部分可随便改，（倒计时的时间，0就是现在关机），12345部分是关机窗口上的“消息”部分
'如要消除关机窗口，请用下面的代码：
'==========================================
set ws=CreateObject("Wscript.Shell")
ws.run "cmd.exe /c shutdown -a"

1、两分钟后关机
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t 120"
2、取消关机，仅在1中的定时关机时间（即120秒）还没到时有效
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -a"
3、两分钟后，重新启动
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -r -t 120"
4、强制关闭正在运行的程序
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -f"

这样：
set vs =wscript.createobject("wscript.shell")
首先创建对象，然后：
vs.run"shutdown -s -t 00",true
对不起我刚刚把true写成了ture。

程序如下：
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"机器即将关闭"&chr(34)

createobject("wscript.shell").run"cmd.exe /c shutdown -s -t 0"