ispClock = "250kHz" stk500 = "c:\Program Files\Atmel\AVR Tools\STK500\Stk500.exe" if (MsgBox("ISPクロックを " & ispClock & " に設定します。よろしいですか?", vbYesNo Or vbQuestion, "AVRISPmkII ISPクロック設定") <> vbYes) then WScript.Quit end if Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "%comspec% /k " & """" & stk500 & """" & " -cUSB -I" & ispClock