vc 代码创建IIS（WeB）站点

  //   CreateVirtualDirection参数说明 

  //   lpszVirtualDirName需要建立的虚拟目录的目录名字 

  //   lpszDiskPath   需要建立虚拟目录的本地磁盘目录 

  // 

  

  BOOL   CreateVirtualDirection(LPCTSTR   lpszVirtualDirName,LPCTSTR   lpszDiskPath) 

  { 

  IADsContainer*   iContainer; 

  IADs*   iAds; 

   

  if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer)==S_OK) 

  { 

  //等到默认站点 

  iContainer->GetObject(_bstr_t("IIsWebServer"),   _bstr_t("1"),(IDispatch**)&iAds); 

  if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK) 

  { 

  //得到默认站点的根目录 

  iContainer->GetObject(_bstr_t("IIsWebVirtualDir"),_bstr_t("Root"),(IDispatch**)&iAds); 

  //获得访问虚拟目录 

  if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK) 

  { 

  //先删除了虚拟目录 

  iContainer->Delete(_bstr_t("IIsWebVirtualDir"),   _bstr_t(lpszVirtualDirName));  

建立虚拟目录 

  if(iContainer->Create(_bstr_t("IIsWebVirtualDir"),   _bstr_t(lpszVirtualDirName),(IDispatch**)&iAds)==S_OK) 

  { 

  //设置虚拟目录的属性 

  iAds->Put(_bstr_t("AccessRead"),_variant_t("True"));//注意跟VB中的设置属性比较 

  iAds->Put(_bstr_t("AccessWrite"),_variant_t("True")); 

  iAds->Put(_bstr_t("Path"),_variant_t(lpszDiskPath)); 

  iAds->SetInfo(); 

  iAds->Release(); 

  iAds->Release(); 

  iContainer->Release(); 

  iContainer->Release(); 

  return   TRUE; 

  } 

  else 

  { 

  iAds->Release(); 

  iAds->Release(); 

  iContainer->Release(); 

  iContainer->Release(); 

  return   FALSE; 

  } 

  } 

  else 

  { 

  iAds->Release(); 

  iContainer->Release(); 

  } 

  } 

  else 

  { 

  iAds->Release(); 

  } 

  iContainer->Release(); 

  } 

  return   FALSE; 

  } 

  //使用VC需要初始化COM环境，别忘了APP类的InitInstance中AfxOleInit()函数的调用哦。

 

文章出处：飞诺网(www.firnow.com):http://dev.firnow.com/course/3_program/vc/vc_js/2008826/137574_2.html