SAMD-FLASH.WSF

<job>
<script language="VBScript">

Option Explicit
On Error Resume Next
Dim WshShell
set WshShell=CreateObject("WScript.Shell")

WScript.Sleep 500
WshShell.run "cmd.exe"
WScript.Sleep 500
WshShell.SendKeys ("cd ""C:\Program Files\GNU ARM Eclipse\OpenOCD\0.10.0-201601101000-dev\bin"" ")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500
WshShell.SendKeys ("start cmd /k call OpenOCD -f interface/cmsis-dap.cfg -f target/at91samdXX.cfg")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

WshShell.run "cmd.exe"
WScript.Sleep 500
WshShell.SendKeys ("telnet localhost 4444")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 100
WshShell.SendKeys ("{Enter}")
WScript.Sleep 100
WshShell.SendKeys ("reset halt")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500
WshShell.SendKeys ("flash write_image erase ""C:\\samd21_sam_ba.hex"" 0x0")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 5000
WshShell.SendKeys ("reset run")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500

WshShell.SendKeys ("exit")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 100
WshShell.SendKeys ("+^c")
WshShell.SendKeys ("exit")
WshShell.SendKeys ("{Enter}")

WshShell.SendKeys ("exit")
WshShell.SendKeys ("{Enter}")
WScript.Sleep 100
WshShell.SendKeys ("+^c")
WshShell.SendKeys ("exit")
WshShell.SendKeys ("{Enter}")

WScript.Sleep 100
WshShell.SendKeys ("+^c")
WshShell.SendKeys ("exit")
WshShell.SendKeys ("{Enter}")

WScript.Quit
</script>
</job>