device = "ATmega168"
efuse = "F8"
hfuse = "D5"
lfuse = "E2"

stk500 = "c:\Program Files\Atmel\AVR Tools\STK500\Stk500.exe"


if (MsgBox("device : " & device & vbNewLine & "efuse : " & efuse & "  hfuse : " & hfuse & "  lfuse : " & lfuse & 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 & " -f" & hfuse & lfuse & " -E" & efuse