[viliam]

Спасибо. А как перед этим убить процесс notepad.exe?
Вот этот скрипт убивает:

Код:

strComputer = "."
strProcsToKill = "notepad.exe"
Set wbemObjectSet = GetObject("winmgmts://" & strComputer).InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
 If LCase(wbemObject.Name) = strProcsToKill Then wbemObject.Terminate
Next

но не знаю как объединить его с этим:

Код:

Option Explicit

Const SystemFolder = 1

Dim strPath


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