Код:
Option Explicit
Dim objFSO
Dim objWshShell
Dim i
Dim strFileName
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
i = 0
Do
strFileName = Right("0000" & CStr(i + 1), 4) & ".bin"
If objFSO.FileExists(strFileName) Then
objWshShell.Run "flashnul.exe 1 -L " & strFileName & " -r=" & CStr(i * 4096) & " -V=2", 1, True
WScript.Sleep 3 * 1000
i = i + 1
Else
Exit Do
End If
Loop
Set objWshShell = Nothing
Set objFSO = Nothing
WScript.Quit 0
