[Iska]

Nun-Nun, с ожиданием процесса:

Скрытый текст

Код:

Option Explicit

Dim strProcessName

Dim arrFiles
Dim strFile


strProcessName = "EEventManager.exe"

arrFiles = Array( _
	"C:\Temp\Twain.log", _
	"C:\Temp\Twain001.Mtx", _
	"C:\Temp\Twunk001.MTX", _
	"C:\Temp\Twunk002.MTX" _
)

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	If .ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strProcessName & "'").Count = 0 Then
		.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.Name = '" & strProcessName & "'").NextEvent
		
		WScript.Sleep 2 * 1000
	End If
End With

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each strFile In arrFiles
		If .FileExists(strFile) Then
			.DeleteFile strFile, True
		End If
	Next
End With

WScript.Quit 0