C++ builder 通过WMI方式修改DNS

#pragma hdrstop
#include <iostream>
using namespace std;
#include <wbemcli.h>
#pragma comment(lib, "wbemUuid2.lib")
#pragma argsused
void PrintWMIError(HRESULT hr);
HRESULT modifyDNS() {
HRESULT hr;
hr = CoInitializeEx(0, COINIT_MULTITHREADED);
hr = CoInitializeSecurity(NULL, -1, NULL, NULL,
RPC_C_AUTHN_LEVEL_PKT_PRIVACY, RPC_C_IMP_LEVEL_IMPERSONATE, NULL,
EOAC_SECURE_REFS, NULL);


IWbemLocator *pLocator = NULL;
IWbemServices *pNamespace = NULL;
IWbemClassObject *pClass = NULL;
IWbemClassObject *pInputParamClass = NULL;
IWbemClassObject *pInputParamInstance = NULL;
IWbemClassObject *pOutInst = NULL;
BSTR InstancePath = SysAllocString(
L"Win32_NetworkAdapterConfiguration.index='7'"); //index为网卡号
BSTR Path = SysAllocString(L"root\\cimv2");
BSTR ClassPath = SysAllocString(L"Win32_NetworkAdapterConfiguration");
BSTR MethodName1 = SysAllocString(L"SetDNSServerSearchOrder");
BSTR MethodName2 = SysAllocString(L"EnableDHCP");
LPCWSTR MethodName1ArgName = L"DNSServerSearchOrder";
BSTR dns1 = SysAllocString(L"10.0.0.22");
BSTR dns2 = SysAllocString(L"10.0.0.23");


long DnsIndex1[] = { 0 };
long DnsIndex2[] = { 1 };


SAFEARRAY *ip_list = SafeArrayCreateVector(VT_BSTR, 0, 2);
SafeArrayPutElement(ip_list, DnsIndex1, dns1);
SafeArrayPutElement(ip_list, DnsIndex2, dns2);
VARIANT dns;
dns.vt = VT_ARRAY | VT_BSTR;
dns.parray = ip_list;


hr = CoCreateInstance(CLSID_WbemLocator, 0, CLSCTX_INPROC_SERVER,
IID_IWbemLocator, (void **) &pLocator);
hr = pLocator->ConnectServer(Path, NULL, NULL, NULL, 0, NULL, NULL,
&pNamespace);
hr = CoSetProxyBlanket(pNamespace, RPC_C_AUTHN_WINNT, RPC_C_AUTHZ_NONE,
NULL, RPC_C_AUTHN_LEVEL_CALL, RPC_C_IMP_LEVEL_IMPERSONATE, NULL,
EOAC_NONE);
if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
if (SUCCEEDED(hr))
hr = pNamespace->GetObject(ClassPath, 0, NULL, &pClass, NULL);
if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
if (SUCCEEDED(hr))
hr = pClass->GetMethod(MethodName1, 0, &pInputParamClass, NULL);
if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
if (SUCCEEDED(hr))
hr = pInputParamClass->SpawnInstance(0, &pInputParamInstance);
if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
if (SUCCEEDED(hr)) {
hr = pInputParamInstance->Put(MethodName1ArgName, 0, &dns, 0);
}


if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
if (SUCCEEDED(hr))
hr = pNamespace->ExecMethod(InstancePath, MethodName1, 0, NULL,
pInputParamInstance, &pOutInst, NULL);
if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
if (SUCCEEDED(hr))
hr = pNamespace->ExecMethod(InstancePath, MethodName2, 0, NULL, NULL,
&pOutInst, NULL);
if (!SUCCEEDED(hr)) {
PrintWMIError(hr);
return hr;
}
SysFreeString(InstancePath);
SysFreeString(Path);
SysFreeString(ClassPath);
SysFreeString(MethodName1);
SysFreeString(MethodName2);
if (pOutInst)
pOutInst->Release();
if (pInputParamInstance)
pInputParamInstance->Release();
if (pInputParamClass)
pInputParamClass->Release();
if (pClass)
pClass->Release();
if (pNamespace)
pNamespace->Release();
if (pLocator)
pLocator->Release();
CoUninitialize();
return hr;
}


int main(int argc, char* argv[]) {
modifyDNS();
}


void PrintWMIError(HRESULT hr) {
IWbemStatusCodeText * pStatus = NULL;
HRESULT hres = CoCreateInstance(CLSID_WbemStatusCodeText, 0,
CLSCTX_INPROC_SERVER, IID_IWbemStatusCodeText, (LPVOID *) &pStatus);
if (S_OK == hres) {
BSTR bstrError;
hres = pStatus->GetErrorCodeText(hr, 0, 0, &bstrError);
if (S_OK != hres)
bstrError = SysAllocString(L"Get     last     error     failed");
BSTR bstrTError = bstrError;
wchar_t* lpszError = bstrTError;
printf("%s\n", lpszError);
pStatus->Release();
SysFreeString(bstrError);
}
}