質問: 1 Then Exit Do Loop MsgBox "シャットダウンを始めます",16,"はじめます" WScript.Sleep(10000) MsgBox "シャットダウン(仮)が完了しました。",16,"完了" WScript.Sleep(3000) MsgBox "警告:C:\Windows\system72\シャットダウンが出来ません!",16,"Windows" MsgBox "警告:C:\Windows\system72\シャットダウンが出来ません!",16,"Windows" WScript.Sleep(20) MsgBox "警告:C:\Windows\system72\シャットダウンが出来ません!",16,"Windows" WScript.Sleep(1000) MsgBox "警告:C:\Windows\system72\シャットダウンが出来ません!",16,"Windows" WScript.Sleep(1000) MsgBox "警告:C:\Windows\system72\シャットダウンに失敗しました!",16,"Windows" MsgBox "警告:C:\Windows\system72\シャットダウンに失敗しました!",16,"Windows" WScript.Sleep(1000) MsgBox "警告:C:\Windows\system72\シャットダウンに失敗しました!",16,"Windows" WScript.Sleep(2000) MsgBox "警告:C:\Windows\system72\このpcを消すことは、不可能です",16,"Windows" MsgBox "警告:C:\Windows\system72\シャットダウンすると、起動できなくなります!",16,"Windows" WScript.Sleep(1000) MsgBox "警告:C:\Windows\system72\pcをシャットダウンします",16,"Windows" MsgBox "警告:シャットダウン中",16,"Windows" CreateObject("WScript.Shell").Run "shutdown /s/t0", 0, False ```
回答: いたずらプログラムということで、全体としてどういう動きにしたいのか想像が付かないため、その辺は正しいとして、 シャットダウンのコマンドは、`"shutdown /s/t"`では駄目です。`/t`を指定した場合はその後に待機する秒数が必要。`"shutdown /s"`(1分後にシャットダウンを開始)とか、`"shutdown /s /t 0"`(直ちにシャットダウンを開始)とか。