关于编码的方式控制IIS问题总结！

绕了很大一个圈子，终于搞定了，最终还是采用比较成熟的adsi技术实现，之前总监发的通过CComPtr <IMSAdminBase>智能指针方式控制IIS只能在XP下，到了我用的WINB2003下就是不好用，可能是XP下的IIS5.1与Win2003下的IIS6.0 安全机制不同吧，没有做深入研究，转ADSI方式，顺利通过！小庆祝一下，等把代码重构完后发行来作为经验总结吧，免得以后再找了。

…………………………………………………………………………………………………………………………………………………

…………………………………………………………………………源码………………………………………………………………

…………………………………………………………………………………………………………………………………………………

interface.h

//interface.h #pragma onceinterface IISController{// 修改根目录virtual bool ChangeRoot(CString) = 0;// 文档->启用默认内容文档 ，多个文件中间用逗号分隔例如：index.aspx,default.htmlvirtual bool SetDefaultFile(CString) = 0;};

 

Adsi.h

#pragma once#include "Interface.h"#include <windows.h> #include <Iads.h> #include <comdef.h> #include <tchar.h> #include <stdio.h> #include <Adshlp.h> #pragma comment(lib,"ActiveDS") #pragma comment(lib,"adsiid") class CAdsi :public IISController{public:CAdsi(void);~CAdsi(void);public:bool ChangeRoot(CString strPath);bool SetDefaultFile(CString);private:bool GetIIsWebVirtualDirIADs(void);private:IADsContainer* pIADsContainer;IADs* pIADs;IDispatch* pIDispatch;IADs* pIWebVirDir;};

 

Adsi.cpp

#include "StdAfx.h"#include "Adsi.h"CAdsi::CAdsi(void){CoInitialize(NULL);}CAdsi::~CAdsi(void){if(pIDispatch != NULL){pIDispatch->Release();}if(pIADs != NULL){pIADs->Release();}if(pIADsContainer != NULL){pIADsContainer->Release();}if(pIWebVirDir != NULL){pIWebVirDir->Release();}CoUninitialize();}bool CAdsi::GetIIsWebVirtualDirIADs(void){if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&pIADsContainer) == S_OK){_bstr_t bstrId("1");HRESULT hr = pIADsContainer->GetObject(L"IIsWebServer", (bstrId), &pIDispatch);if (SUCCEEDED(hr)){hr = pIDispatch->QueryInterface(IID_IADsContainer,(void**)&pIADsContainer);hr = pIADsContainer->GetObject(L"IIsWebVirtualDir", L"Root", &pIDispatch);if(SUCCEEDED(hr)){hr = pIDispatch->QueryInterface(IID_IADs, (void**)&pIWebVirDir);if(SUCCEEDED(hr)){return true;}}}}return false;}bool CAdsi::ChangeRoot(CString strPath){if(GetIIsWebVirtualDirIADs()){pIWebVirDir->Put(L"Path",_variant_t(strPath));pIWebVirDir->SetInfo(); }return true;}bool CAdsi::SetDefaultFile(CString strFiles){//IADs* pIWebVirDir(NULL);if(GetIIsWebVirtualDirIADs()){pIWebVirDir->Put(L"DefaultDoc", _variant_t(strFiles));pIWebVirDir->SetInfo(); }return true;}

 

 其它参数

//设置虚拟目录的属性 iAds->Put(_bstr_t("AccessRead"),_variant_t("True")); //可读属性 //iAds->Put(_bstr_t("AccessWrite"),_variant_t("True")); //可写属性，默认关闭 iAds->Put(_bstr_t("EnableDefaultDoc"),_variant_t("True")); iAds->Put(_bstr_t("AppAllowDebugging"),_variant_t("True")); //应用程序允许调试 iAds->Put(_bstr_t("AccessScript"),_variant_t("True")); //执行许可属性 iAds->Put(_bstr_t("AppFriendlyName"),_variant_t(VirtualDirName)); //应用程序名 iAds->Put(_bstr_t("DefaultDoc"),_variant_t("index.htm")); iAds->Put(_bstr_t("AppIsolated"),_variant_t("2")); iAds->Put(_bstr_t("Path"),_variant_t(Path)); //虚拟目录物理的根目录 iAds->Put(_bstr_t("ScriptMaps"),_variant_t(ScriptMapsName));