@C:BLACK(同一ファイルを同時に開く事ができないので
アプリケーションが終了するまで、二つ目は実行できません。
終了するとファイルがクローズされるので、次の実行が可能です
)

@DIV
Set fso = CreateObject("Scripting.FileSystemObject")

Dim LockFilePath
Const ForAppending = 8

' 書き込み権限のある絶対パス
LockFilePath = "C:\TEMP\" & WScript.ScriptName & ".lck"

on error resume next
Set MyFile = fso.OpenTextFile(LockFilePath, ForAppending, True)

if Err.Number <> 0 then
	Wscript.Echo "二重起動されました"
else
	MyFile.WriteLine Now() & vbTab & "正常起動されました"
	Wscript.Sleep 2000
end if
on error goto 0
@END


@C:red(せっかくファイルを開いているので、ログとして使用しています)