我用CoCreateIntstance()无法创建IWbemServices的实例，怎么办？

[flounder]

我现在想使用IWbemServices这个接口中的Method可是我用CoCreateInstance（）创建他的时候，总是不能成功。
MSDN上面说了：他的CLSID是CLSID_WbemRefresher，我就是用得这个，可是不行。晕了。
另外在CoCreateInstance（）之前我已经CoInitialize(NULL)过了


究竟是为什么呢？

[flounder]

upup

[smint]

bool CCOMTestDlg::RunCOMObjectFunc(OLECHAR * ProgID, OLECHAR *FuncName, VARIANT *ParamVar, int VarNumber, VARIANT *ReturnVar)
{
IDispatchPtr pDisp;
HRESULT hr;
DISPID dispid;
DISPPARAMS dispparams;

CLSID clsid;

hr=CLSIDFromProgID(ProgID,&clsid);
//hr=ProgIDFromCLSID(REFCLSID clsid,LPOLESTR *lploszProgID);
if(FAILED(hr)) return false;

hr=pDisp.CreateInstance(clsid);
if(FAILED(hr)) return false;

hr=pDisp->GetIDsOfNames(IID_NULL,&FuncName,1,LOCALE_USER_DEFAULT,&dispid);
if(FAILED(hr)) return false;

dispparams.cArgs = VarNumber;
dispparams.rgvarg = ParamVar;
dispparams.rgdispidNamedArgs = NULL;
dispparams.cNamedArgs = 0;

hr=pDisp->Invoke(dispid,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&dispparams,ReturnVar,NULL,NULL);
if(FAILED(hr))return false;

return true;
}

ProgID: ProgID of the Object
FuncName: Name of the function to call
ParamVar: Point to the array of the parameters of the function in the object
VarNumber: Number of the parameters
ReturnVar: Return value

Sample:
OLECHAR *szMethod=L"Run";
VARIANT varg,retVar;
OLECHAR m_key[]=L"HKLM\\SOFTWARE\\Microsoft\\Money\\10.0\\Registration\\ProductName\0";
varg.vt=VT_BSTR;
varg.bstrVal = m_key;
if(!RunCOMObjectFunc(L"Wscript.Shell",L"RegRead",&varg,1,&retVar))MessageBox("Failed!");
CString x=retVar.bstrVal;
MessageBox(x);

You can get CLSID by CLSIDFromProgID function.

[smint]

If you declear the function at the beginning, you may be use the object everywhere. This may be inconvenient but I am unable to find the declearation files of IWbemServices

How to?? hahe