テキストファイルを使って連番を生成する。

テキストファイルなどにカウンタを書いて、＋１で更新して連番を生成するのは、多重処理に耐えません。
では、どうするか？

テキストファイルへの空行の追加書きで、行数をカウンタに使えば、おｋ。

Option Explicit
Dim fso
Dim Lock
Dim SEQ

Set fso=CreateObject("Scripting.FileSystemObject")
Sub TryLock
  On Error Resume Next
  Set Lock=fso.OpenTextFile(WScript.ScriptFullName&".SEQ",8,True)
End Sub
Do
  TryLock
  If Err.Number=0 Then Exit Do
  WScript.Sleep 100
Loop
Lock.WriteBlankLines 1
SEQ=Lock.Line-1
Lock.Close
WScript.Echo SEQ