如何使用Delphi或c#在Hyper-v上获取虚拟机状态

是否有任何组件或类允许我获得在Hyper-v上运行的所有虚拟机的状态?我希望能够列出所有虚拟机及其状态(已停止，正在运行，暂停等)。

我知道微软有WMI方法，但我得到的所有示例都是针对。net的，没有针对Delphi的。我应该能够转换这些类做Delphi，但它会更容易，如果我可以使用一些已经为Delphi。

编辑

我有一个c#的例子:

/

/ define the information we want to query - in this case, just grab all properties of the object
ObjectQuery queryObj = new ObjectQuery("SELECT * FROM Msvm_ComputerSystem");
// object for storing WMI connection options
// pass the "user", "password" and "domain" from command-line
// don't hard-code these into the application!
ConnectionOptions connOpts = new ConnectionOptions();
connOpts.Username  = user;
connOpts.Authority = "ntlmdomain:" + domain;
connOpts.Password  = password;
// management scope object
ManagementScope manScope = new ManagementScope(@"''RemoteSystem'root'virtualization", connOpts);
// connect and set up our search
ManagementObjectSearcher vmSearcher = new ManagementObjectSearcher(manScope, queryObj);
ManagementObjectCollection vmCollection = vmSearcher.Get();
// loop through the VMs
foreach (ManagementObject vm in vmCollection)
{
    // display VM details
    Console.WriteLine("'nName: {0}'nStatus: {1}'nDescription: {2}'n",
                      vm["ElementName"].ToString(),
                      vm["EnabledState"].ToString(),
                      vm["Description"].ToString());
}

我试着在Visual Studio上运行这个，看看它是否有效，所以我可以试着把它翻译成Delphi。但是，即使我改变了用户名，域名和密码，我仍然得到这个错误:

{"The RPC server is not available. (HRESULT: 0x800706BA)"}