[amel27]

Yewgeniy

юзер закрывает программу и Win сама выгружается

1. Создать скрипт выключения компьютера Shutdown.vbs:

Код:

strNamespace = "Root\CIMV2"
strClass = "Win32_OperatingSystem"

Set objClass = GetObject("WinMgmts:{(Shutdown)}\\.\" & _
	strNamespace & ":" & _
	strClass)
Set colInstances =objClass.Instances_
For Each objInstance In colInstances
	objInstance.Shutdown()
Next

2. Положить VBS-скрипт в System32 и ограничить к нему доступ обычных пользователей;

3. Создать файл Shutdown.MOF, включающий запуск скрипта при закрытии процесса "Program.exe" (поставить свой):

Код:

#pragma namespace ("\\\\.\\root\\subscription")

instance of ActiveScriptEventConsumer as $Cons
{
    Name = "Shutdown";
    ScriptingEngine = "VBScript";
    ScriptFileName = "C:\\WINDOWS\\System32\\Shutdown.vbs";
};
instance of __EventFilter as $Filt
{
    Name = "MonitoringDeletion";
    Query = "SELECT * FROM __InstanceDeletionEvent WITHIN 5 "
        "WHERE TargetInstance ISA \"Win32_Process\" "
        "AND TargetInstance.Name = \"Program.exe\"";
    QueryLanguage = "WQL";
    EventNamespace = "root\\cimv2";
};
instance of __FilterToConsumerBinding
{
    Filter = $Filt;
    Consumer = $Cons;
};

4. Скомпилировать MOF-файл:

Код:

mofcomp shutdown.mof