[Iska]

Просто одновременно эту прожку запустят на 50 компах - нагрузка на серверный комп, откуда она стартанет, соответственно, возрастет? »

Отчего бы?! У неё там база на 10 Гб, к которой она ежесекундно обращается?

через 10 минут она убилась сама. »

Например, так (скрипт VBScript):

читать дальше »

Код:

Option Explicit

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim lngProcessID


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(".", "root\cimv2")

If objSWbemServicesEx.Get("Win32_Process").Create("\\путь_к_программе\prog.exe", Empty, Nothing, lngProcessID) = 0 Then
	WScript.Sleep 1000 * 60 * 10
	
	If objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(lngProcessID) & "'").Terminate() = 0 Then
		'
	End If
End If

Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

P.S. Останется фантомная иконка в System Tray.