VBScript Tips (Tips0107)[プログラムを強制終了する] メモ帳（notepad.exe）を起動し、３秒後に強制終了します。 【ソースコード】 [tips0107.vbs] Option Explicit On Error Resume Next Dim objWshShell ' WshShell オブジェクト Dim strCmdLine ' 実行するコマンド Dim objExecCmd ' 実行コマンド情報 Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then strCmdLine = "notepad.exe" Set objExecCmd = objWshShell.Exec(strCmdLine) If Err.Number = 0 Then WScript.Echo strCmdLine & " を
