vbs实现计算机重启

Dim return
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if