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