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