Код

Процедура Terminate_process(PC, Процесс, Пользователь) Экспорт

	Если ПустоеЗначение(Пользователь) = 1 Тогда
		Пользователь = ИмяПользователя();
	КонецЕсли;

	Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.Language = "vbscript";
	Скрипт.AddCode("
		|Function Func()
		|	Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\" + PC + "\root\cimv2"")
		|	Set colProcessList = objWMIService.ExecQuery (""Select * from Win32_Process"")
		|	For Each objProcess in colProcessList
		|		colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
		|		If objProcess.Name = """ + Процесс + """ And strNameOfUser = """ + Пользователь + """ Then
		|		    objProcess.Terminate()
		|		End if
		|	Next
		|End Function
		|");
	Скрипт.Run("Func");

КонецПроцедуры

 

Код

Перем фл;
//**************************************************
Процедура Тест()
	Если фл=0 Тогда
		фл=фл+1;
		ЗавершитьРаботуСистемы(1);
	Иначе
		Wrap = CreateObject("DynamicWrapper");
		Wrap.Register("USER32.DLL", "FindWindow","i=ls", "f=s", "r=l");
		Wrap.Register("USER32.DLL", "DestroyWindow","i=l", "f=s", "r=l");
		хэндл_вопроса=Wrap.FindWindow(0,"1С:Предприятие");
		Wrap.DestroyWindow(хэндл_вопроса);
		ЗавершитьРаботуСистемы(0);
	КонецЕсли;
КонецПроцедуры
//**************************************************
Процедура ПриНачалеРаботыСистемы()
	фл=0;
	ЗагрузитьВнешнююКомпоненту("FormEx.dll");
    FormEx_Service = СоздатьОбъект("Сервис");
	FormEx_Service.ОбработкаОжидания("Тест",60000);
КонецПроцедуры