Einzelnen Beitrag anzeigen

Centrii

Registriert seit: 18. Mai 2007
Ort: FDS
108 Beiträge
 
Delphi 2006 Architect
 
#1

Prozesse Starten auf remote Server

  Alt 24. Jul 2007, 14:27
Hallo zusammen

Ich hab da mal ne Frage....

Ich bin grad dabei über WMI Prozesse auf anderen PC´s zu starten. Beenden usw. ist kein Problem.
Mein bisheriger Ansatz sieht so aus....

Delphi-Quellcode:
procedure TfProzesse.WMIStartProcesses(Computer, User, Password,exeName: string);

  function GetCompName: string;
  var
    Buf : array[0..MAX_COMPUTERNAME_LENGTH] of Char;
    Size : DWORD;
  begin
    Size := SizeOf(Buf);
    if GetComputerName(Buf, Size) then
      Result := Buf
    else
      Result := '';
  end;

var
  FComputer: String;
  FUser: String;
  FPassword: String;
  Services : ISWbemServices;
  ObjectDefinition: ISWbemObject;
  ObjectSet : SWbemObjectSet;
  ObjectInstances: IEnumVariant;
  WMIObject : ISWbemObject;
  PropertySet : ISWbemPropertySet;
  WMIProperty : ISWbemProperty;
  FProcess: ISWbemObject;
  FMethod: ISWbemMethod;
  FInParam: ISWbemObject;
  FOutParam: ISWbemObject;
  FProperty: ISWbemProperty;
  FPropValue: OleVariant;

  TempObj : OleVariant;
  ObjValue : Cardinal;
  i : Integer;
resourcestring
  rsWMIError = 'WMI-Fehler';
begin
  if AnsiUpperCase(GetCompName) = AnsiUpperCase(Computer) then
  begin
    FComputer := '';
    FUser := '';
    FPassword := '';
  end
  else
  begin
    FComputer := Computer;
    FUser := user;
    FPassword := Password;
  end;
  i := 0;
  //Locator := TSWbemLocator.Create(Nil);
  try
    try
      Services := Locator.ConnectServer(FComputer, 'root\cimv2',FUser, FPassword, '', '', 0, nil);
      if Services <> nil then
      begin
        Services.Security_.Set_ImpersonationLevel(wbemImpersonationLevelImpersonate);
        FProcess := Services.Get('Win32_Process', 0, nil);
        FMethod := FProcess.Methods_.Item('Create', 0);
        FInParam := FMethod.InParameters.SpawnInstance_(0);
        FProperty := FInParam.Properties_.Add('CommandLine', wbemCimtypeString, false, 0);
        FPropValue := exeName;
        FProperty.Set_Value(FPropValue);
        FOutParam := FProcess.ExecMethod_('Create', FInParam, 0, nil);
      end;
    finally
      Services := nil;
    end;
  except
    on e: Exception do
      raise e.Create(e.message);
  end;
end;
Jetzt hab ich das Problem das ich local auf meinem PC eine *.exe starten kann, auch das Form aufgeht und in der Prozessliste angezeigt wird. Mach ich das aber auf nem Remote PC wird der SourceCode der im "ONCreate" steht ausgeführt (als Beispiel Datei kopieren), die *.exe steht in der Prozessliste aber das Form geht nicht auf
Weiter würde ich gerne wissen was ich alles beim

FInParam.Properties_.Add('CommandLine', wbemCimtypeString, false, 0); anstelle der ersten beiden Parametern eingeben kann.

Würde mich über eine Antwort sehr freuen

Gruß

Ruben
Ruben
  Mit Zitat antworten Zitat