Fórum wmi e .net - Qual o erro deste código ? #295053

procedure TfrmTerminal.MetodosSistemaOperacional(Objeto: string; Metodo: String);
var
  ObjProcess: SWbemObject;
  objOutParams: SWbemObject;
  ObjInParam: SWbemPrivilege;
  Text: string;
  Reason: integer;
begin
//  WmiServices.Security_.Privileges.Add(wbemPrivilegeShutdown, True);
  ObjInParam:= wmiServices.Security_.Privileges.Add(wbemPrivilegeShutdown,true);
  ObjProcess:= wmiServices.Get(Objeto,0,nil);  // objProcess:= wmiServices.Get(´Win32_process´,0,nil);
//  ObjInParam.:= ´SE_SHUTDOWN_NAME´;

  objOutParams := ObjProcess. ExecMethod_(Metodo,nil,0,nil);
  // Text vai conter uma string com o resultado do ExecMethod_ e contendo assim o ReturnValue

  Text:= objOutParams.GetObjectText_(0);
  Reason:= StrtoInt(Text[pos(´ReturnValue = ´,Text)+14]);
  Case Reason of
    0: ShowMessage(´O Método ´+Metodo+´ com sucesso!´);
    2: ShowMessage(´Acesso negado!´);
    3: ShowMessage(´Sem privilégios para esta opecar!´);
    8: ShowMessage(´Falha desconhecida!´);
    9: ShowMessage(´Caminho nao encontrado!´);
    21: ShowMessage(´Parametros Inválidos!´);
  end;
end;

procedure TForm1.Conectar;
var
  strNamespace:String;

begin
    WbemLocator:=nil;
    strNamespace:=´ROOT\CIMV2´;
    wmiServices:=nil;
    try
      try
        WbemLocator:= CoSWbemLocator.create;
      except
         showmessage(´Erro´);
      end;
    try
      wmiServices:=WbemLocator.ConnectServer(´.´, strNamespace, ´´, ´´, ´´, ´´, 0, wmiServices);
    except
    end;
    finally
     
    end;
end;

using System; 
using System.Management; 
using System.Windows.Forms; 

namespace WMISample 
{ 
    public class CallWMIMethod 
    { 
        public static void Main() 
        { 
            try 
            { 
                ManagementObject classInstance = 
                    new ManagementObject("root\\CIMV2", 
                    "Win32_OperatingSystem.Name=´Microsoft Windows XP Professional|C:\WINDOWS|\Device\Harddisk0\Partition1´", 
                    null); 

                // no method in-parameters to define 


                // Execute the method and obtain the return values. 
                ManagementBaseObject outParams = 
                    classInstance.InvokeMethod("Shutdown", null, null); 

                // List outParams 
                Console.WriteLine("Out parameters:"); 
                Console.WriteLine("ReturnValue: " + outParams["ReturnValue"]); 
            } 
            catch(ManagementException err) 
            { 
                MessageBox.Show("An error occurred while trying to execute the WMI method: " + err.Message); 
            } 
        } 
    } 
}

unit unit2; 

interface 

uses System.Management;

type 
  CallWMIMethod = class 
  public 
    class procedure Main; virtual;static; 
  end; 
  
implementation 

{$AUTOBOX ON} 
{$HINTS OFF} 
{$WARNINGS OFF} 

class procedure CallWMIMethod.Main; 
var 
  outParams: ManagementBaseObject; 
  classInstance: ManagementObject; 
begin 
  try 
    classInstance := ManagementObject.Create(´root\CIMV2´, ´Win32_OperatingSystem.ReplaceKeyPropery=´´ReplaceKeyPropertyValue´´´, nil); 
    outParams := classInstance.InvokeMethod(´Shutdown´, nil, nil); 
    Console.WriteLine(´Out parameters:´); 
    Console.WriteLine((´ReturnValue: ´ + outParams[´ReturnValue´])); 
  except 
    on err: ManagementException do 
      MessageBox.Show((´An error occurred while trying to execute the WMI method: ´ 
          + err.Message)); 
  end; 
end;

 CallWMIMethod.Main();