Installshield12 创建自定义Web站点

任务：使用Installshield12 Installscript  Msi Project 打包ASP.NET应用程序,创建用户自定义的站点。

步骤：1，创建WEBNAME的Property。



2.在IS的IDE里配置IIS，如：


把WEB的虚拟目录设为[WEBNAME],安装后将使用这个属性的值，同样可以把Website名称用属性表示。注：IS在创建站点时，默认创建80端口站点，如果已有80端口的站点，虚拟目录将建在IS中80端口的站点下面，（正是我想要的，如默认会建到Default Web Site下面）. 其他Virtual Diectory设置及权限设置等同于在IIS中设置

3.用脚本获取用户输入虚拟目录的名称
用SdShowDlgEdit1对话框即可，获取用户输入的名称，对WEBNAME Property赋值，Property 使用 方法。

关于卸载：这样用户自定义名称后，卸载不干净，我没有找到好的方法卸载IIS里面的虚拟目录。我相信有简单的法子就像创建时一样。以下是我使用的卸载脚本(WriteLog是我自定义的方法,adsutil.vbs可以从C:\Inetpub\AdminScripts下面找到)。把须删除的虚拟目录名称传入DelVirtualOnDefault即可：

  /////////////////////////////////////////////////////////
//       Function :    DelVirtul
//      Purpose:     删除虚拟目录
//      Arguments:   szWebName   -   BYREF
//      Usage:
//        Note:         w3svc / 1 / root /  webname是1下的虚拟目录
/////////////////////////////////////////////////////////      
function  DelVirtul(WebName,VirtualFolder)   
STRING  szCmdLine,szCmd,szCmdLine2,szMsg;  
NUMBER nResult;
begin    
    szCmd  =  WindowsFolder  ^   " system32 "   ^   " cscript.exe " ;
    szCmdLine  =  SUPPORTDIR  ^ " adsutil.vbs delete w3svc/ " + WebName + " /root/ " ^ VirtualFolder;  
    szCmdLine2  =  SUPPORTDIR  ^ " adsutil.vbs delete w3svc/1/root/ " ^ VirtualFolder;  
    nResult = LaunchAppAndWait(szCmd, szCmdLine, NOWAIT|LAAW_OPTION_HIDDEN); 
    Sprintf(szMsg, " Run  " + szCmdLine + "  result is %ld " ,nResult); 
    WriteLog(szMsg);
    nResult = LaunchAppAndWait(szCmd, szCmdLine2, NOWAIT|LAAW_OPTION_HIDDEN);   
    Sprintf(szMsg, " Run  " + szCmdLine2 + "  result is %ld " ,nResult); 
    WriteLog(szMsg);
    WriteLog( " del virtualFolder: " + VirtualFolder + "  on: " + WebName);
end ;   

  /////////////////////////////////////////////////////////
//       Function :    DelVirtualOnDefault
//      Purpose:     把建在默认80端口的站点的同名虚拟目录删掉
//      Arguments:   VirtualFolder   -   虚拟目录的名称
//      Usage:
//        Note:        须引用IsGetObj.dll 
/////////////////////////////////////////////////////////        
prototype ISGetObj.VBGetObject(byval  string , byval  string , byref  OBJECT );
prototype ISGetObj.ForEachStart(byref  OBJECT , byref VARIANT);
prototype ISGetObj.ForEachGetNextItem(byref VARIANT, byref  OBJECT );  
//////////////////////////////////////////////////////////       
prototype DelVirtualOnDefault( STRING );
  function  DelVirtualOnDefault(VirtualFolder)
  OBJECT  objIIS_Root, objVirtDir,objWebService,objWebSite;  
NUMBER nResult,nCount,nIndex;        
VARIANT vTemp,strTemp,strTemp2;
VARIANT __varEnumHolder;     // Hold IEnumVariant during the ForEachLoop, don ' t use OBJECT type, this is an IUnknown!!
 begin 
     UseDLL(SUPPORTDIR  ^   " IsGetObj.dll " );
         set  objWebService  =  CoGetObject( " IIS://Localhost/W3svc " ,  "" ); 
         if   IsObject ( objWebService )  then    
            ForEachStart(objWebService, __varEnumHolder);
               nResult  =  ForEachGetNextItem(__varEnumHolder, objWebSite); 
          while  ( nResult  =  ERROR_SUCCESS )
              if   IsObject (objWebSite)  then     
                  if  objWebSite.class  =   " IIsWebServer "   then
                     
                     vTemp =  objWebSite.ServerBindings;
                     strTemp  =  vTemp( 0 );     
                      if (strTemp == " :80: " ) then
                          //  找到80端口下的站点Name
                           strTemp2 = objWebSite.Name ;  
                           WriteLog( " webname: " + strTemp2);
                           DelVirtul(strTemp2,VirtualFolder); 
                       endif;
                  endif;
             endif;  
               nResult  =  ForEachGetNextItem(__varEnumHolder, objWebSite);    
          endwhile;
    endif;
    UnUseDLL( " IsGetObj.dll " );
  end ;
  /***************************************************/

由于Installscript中没有for each ，其中调用了一个自定义的DLL：IsGetObj.dll

Download: IsGetObje.DLL文件

转载于:https://www.cnblogs.com/solo/archive/2008/01/02/1023197.html