[Iska]

Например, так:

Код:

Option Explicit

Const SystemFolder = 1

Dim objSWbemObjectEx
Dim strPath


For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='notepad.exe'")
	objSWbemObjectEx.Terminate
Next

With WScript.CreateObject("Scripting.FileSystemObject")
	strPath = .BuildPath(.GetSpecialFolder(SystemFolder).Path, "file.txt")
	
	If .FileExists(strPath) Then
		.DeleteFile strPath, True
	End If
End With

WScript.Quit 0