[Iska]

[Iska распевает на мотив «5 минут»]: «Вэ-Сэ-Ааааш, Вэ-Сэ-а-Аш…» .

На WSH:

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

Код:

Option Explicit

Dim arrFiles
Dim strFile


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

WScript.Sleep 20 * 1000

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

А можно сделать и так, чтобы он не тупо стоял заданное время, а ожидал запуска процесса Event Manager. Или ожидал появления указанных файлов.

[Nun-Nun]

Nordek,

УРА!!! Наконец-то наш велосипед поехал! Всё работает, причём все три варианта:
1. Из ярлыка в "Пуск\Программы\Автозагрузка".
2. Из HKLM\Software\Microsoft\Windows\CurrentVersion\Run
3. Из HKCU\Software\Microsoft\Windows\CurrentVersion\Run

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"TwainTempDel"=hex(2):25,00,63,00,6f,00,6d,00,73,00,70,00,65,00,63,00,25,00,20,\
  00,2f,00,63,00,20,00,73,00,74,00,61,00,72,00,74,00,20,00,2f,00,6d,00,69,00,\
  6e,00,20,00,25,00,63,00,6f,00,6d,00,73,00,70,00,65,00,63,00,25,00,20,00,2f,\
  00,63,00,20,00,70,00,69,00,6e,00,67,00,20,00,2d,00,6e,00,20,00,31,00,35,00,\
  20,00,31,00,32,00,37,00,2e,00,30,00,2e,00,30,00,2e,00,31,00,20,00,5e,00,26,\
  00,20,00,64,00,65,00,6c,00,20,00,43,00,3a,00,5c,00,54,00,65,00,6d,00,70,00,\
  5c,00,54,00,77,00,61,00,69,00,6e,00,2e,00,6c,00,6f,00,67,00,20,00,43,00,3a,\
  00,5c,00,54,00,65,00,6d,00,70,00,5c,00,54,00,77,00,61,00,69,00,6e,00,30,00,\
  30,00,31,00,2e,00,4d,00,74,00,78,00,20,00,43,00,3a,00,5c,00,54,00,65,00,6d,\
  00,70,00,5c,00,54,00,77,00,75,00,6e,00,6b,00,30,00,30,00,31,00,2e,00,4d,00,\
  54,00,58,00,20,00,43,00,3a,00,5c,00,54,00,65,00,6d,00,70,00,5c,00,54,00,77,\
  00,75,00,6e,00,6b,00,30,00,30,00,32,00,2e,00,4d,00,54,00,58,00,00,00

На WSH: »

Прошу прощения за чайниковость, WSH - это внешний файл, так же как и bat-ник?

А можно сделать и так, чтобы он не тупо стоял заданное время, а ожидал запуска процесса Event Manager. Или ожидал появления указанных файлов. »

В принципе такой вариант тоже будет интересен (теперь уже из "спортивного" интереса).

[Iska]

WSH - это внешний файл, так же как и bat-ник? »

Так точно!

В принципе такой вариант тоже будет интересен (теперь уже из "спортивного" интереса). »

Точное имя процесса Event Manager приведите.

[Nordek]

велосипед поехал »

Когда-то этот велосипед мне нужен был в одной программе, выглядело это примерно так:

Код:

start cmd /c mode con:cols=60 lines=20 ^& Title Twain ^& ping -n 10 127.0.0.1 ^& cd C:\Temp ^& del Twain.log Twain001.Mtx Twunk001.MTX Twunk002.MTX

[Nun-Nun]

Точное имя процесса Event Manager приведите. »

EEventManager.exe
Прилагаю скрин, на всякий случай.

[Nun-Nun]

Когда-то этот велосипед мне нужен был в одной программе, выглядело это примерно так: Код: start cmd /c mode con:cols=60 lines=20 ^& Title Twain ^& ping -n 10 127.0.0.1 ^& cd C:\Temp ^& del Twain.log Twain001.Mtx Twunk001.MTX Twunk002.MTX »

Да это уже не велосипед, а целый квадромаран.

[Iska]

Когда-то этот велосипед мне нужен был в одной программе, выглядело это примерно так: » Да это уже не велосипед, а целый квадромаран. »

К кому-то прилетала феечка .

Nun-Nun, в интернетах упоминается ещё пятый файл, Twunk003.mtx. У Вас он создаётся рядом с прочими?

[Nun-Nun]

Nun-Nun, в интернетах упоминается ещё пятый файл, Twunk003.mtx. У Вас он создаётся рядом с прочими?»

Нет.

К кому-то прилетала феечка »

Винапсара.

[Iska]

Не, не. Наша феечка та же, что и для танкистов, натягивающих слетевшую гусеницу .

[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