Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата -KeyMaster-:
Просто одновременно эту прожку запустят на 50 компах - нагрузка на серверный комп, откуда она стартанет, соответственно, возрастет? »
Отчего бы?! У неё там база на 10 Гб, к которой она ежесекундно обращается?


Цитата -KeyMaster-:
через 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.
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:01, 27-06-2012 | #2