script para el winexplorer configurado como unlooper y firm para el atmel nd13:
Sc.Write("a2")
Sc.Write("06 10 0E 10 03 93 00" )
Sc.Delay(300)
Sc.Read(&h02) ' see if command was accepted
RetValue = Sc.GetByte(&h01)
sc.print("------------" & vbcr)
Sc.Read (RetValue) ' read the bytes of ATR
IF RetValue = &h14 THEN
For i = 0 to RetValue-1
ATR = ATR & HexString(Sc.GetByte(i), 2) & " " ' all bytes of ATR
Next
Sc.Print "ATR = " & ATR & vbcr
Sc.Print "RetValue " & RetValue & vbcr
if left(ATR,20) = "3F 7F 13 25 02 40 B0" then
Sc.Print "ATR = " & ATR
end if
END IF