vbs实现计算机重启的代码

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