device = "ATmega168" hexFile = "MMCboot.hex" stk500 = "c:\Program Files\Atmel\AVR Tools\STK500\Stk500.exe" if (MsgBox("device : " & device & vbNewLine & "HEXファイル : " & hexFile & vbNewLine & vbNewLine & "以上の設定でプログラムを書き込みます。よろしいですか?", vbYesNo Or vbQuestion, "AVRISPmkII プログラム書き込み") <> vbYes) then WScript.Quit end if Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "%comspec% /k " & """" & stk500 & """" & " -cUSB -d" & device & " -e -pf -if" & hexFile