WMI no .NET

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 Silmar;

interface

uses err;

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;