'監視するプロセス名
'ＭＶの場合はRPGMV.exeに変更すればＯＫ。
Dim processName
processName = "RPGMZ.exe"

Dim exeName
exeName = "ImageScaleSync.exe"

Dim Service,QfeSet
Set Service = CreateObject("WbemScripting.SWbemLocator").ConnectServer
Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='" & processName & "'")

'プロセスが存在するなら処理実行
If QfeSet.Count > 0 Then
	Set objWShell = CreateObject("Wscript.Shell")

	'処理実行
	objWShell.run exeName, vbHide

	'10000ミリ秒（１０秒）待って再度処理実行
	'以降、繰り返し
	WScript.Sleep 10000
	objWShell.run exeName, vbHide

	WScript.Sleep 10000
	objWShell.run exeName, vbHide

	WScript.Sleep 10000
	objWShell.run exeName, vbHide

	WScript.Sleep 10000
	objWShell.run exeName, vbHide

	WScript.Sleep 10000
	objWShell.run exeName, vbHide
End If