как запустить процесс удаленно используя 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);
Пока на собственное сообщение не было ответов, его можно удалить.