用HTA制作web安装程序

我在制作AspnetUpload 2.2安装程序的过程中发现用vs.net 2003制作的web 安装包在window 2003 server 安装后不能正常工作，后来发现可以用HTA来制作web安装，于是尝试了一下，效果不错.

关键代码是创建虚拟目录，代码如下：

var vd = WebRoot.Create("IIsWebVirtualDir", vDirName ) 
        vd.Path = fso.GetAbsolutePathName(".")
        vd.AppCreate(true) 
        vd.AppIsolated = 2
        vd.AppFriendlyName = "AspnetUploadApp"
        vd.AccessRead = true
        vd.AccessScript = true
        vd.EnableDefaultDoc = true
        vd.SetInfo()

其它如创建开始菜单及桌面快捷方式都能在install.hta中找到.