как запустить процесс удаленно используя WMI?
От: sins  
Дата: 04.03.08 02:14
Оценка:
хотелось бы запустить процесс удалено через WMI

делаю как описано в статье delphikingdom он запускается но такое чувство )) что он hide.

вот часть кода может кто подскажет что не так?

Process:= Services.Get('Win32_ProcessStartup',0,nil);
ObjConf := Process.SpawnInstance_(0);
propvalue := 1;
objConf.Properties_.Item('ShowWindow',0).Set_Value(propvalue);

Process:= Services.Get('Win32_Process', 0, nil);

Method:= Process.Methods_.Item('Create', 0);

InParam:= Method.InParameters.SpawnInstance_(0);

MyProperty := InParam.Properties_.Add('CommandLine', wbemCimtypeString, False, 0);

PropValue:= 'Notepad.exe';
MyProperty.Set_Value(PropValue);

MyProperty2 := InParam.Properties_.Add('CurrentDirectory', wbemCimtypeString, False, 0);
PropValue := varNull;
myproperty2.Set_Value(propvalue);
MyProperty3 := InParam.Properties_.Add('ProcessStartupInformation', wbemCimtypeObject, False, 0);
PropValue := objConf;
myproperty3.Set_Value(propvalue);


OutParam:= Process.ExecMethod_('Create', InParam, 0, nil);
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.