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