IIS自動開通組件編程

　　 創建一個WebServer
　　 必須參數WRoot為創建站點的物理目錄WComment為站點說明WPort為站點端口ServerRun為是否自動運行&n
　　bsp;
　　 當創建成功時返回失敗時提示退出並返回當創建站點成功但啟動失敗時返回
　　**************************************
　　 　
　　******************注意WPort為List類型意為服務器端口***************
　　　　本函數在IIS上通過＊＊必須以管理員身份登錄＊＊
　　 端口舉例
　　 Dim WPortbindlistscreateflagoComputer
　　 oComputer=LocalHost
　　 binglists=Array()
　　 binglists()=::端口號為
　　 WPort=binglists
　　 createflag=CreateWebServer(D:\myweb我的家園WPortFalse)調用建站函數
　　　　If creatflag= Then
　　 ResponseWrite 創建站點失敗！請確定是否有權限
　　 ElseIf createflag= Then
　　 ResponseWrite 創建站點成功！
　　 ElseIf createflag= Then
　　 ResponseWrite 創建站點成功但啟動站點失敗可能端口沖突！
　　 End If
　　**************************************
　　
　　Function CreateWebServer(WRootWCommentWPortServerRun)
　　On Error Resume Next
　　Dim ServiceObjServerObjVDirObj
　　Set ServiceObj = GetObject(IIS://&oComputer&/WSVC) 首先創建一個服務實例
　　
　　WNumber=
　　Do While IsObject(ServiceObjGetObject(IIsWebServerWNumber))
　　If Errnumber<> Then
　　ErrClear()
　　Exit Do
　　End If
　　WNumber=WNumber+
　　Loop
　　
　　Set ServerObj = ServiceObjCreate(IIsWebServer WNumber) 然後創建一個WEB服務器
　　
　　If (ErrNumber <> ) Then 是否出錯
　　ResponseWrite 錯誤: 創建Web服務器的ADSI操作失敗！
　　CreateWebServer=
　　Exit Function
　　End If
　　
　　 接著配置服務器
　　ServerObjServerSize = 中型大小
　　ServerObjServerComment = WComment 說明
　　ServerObjServerBindings = WPort 端口
　　ServerObjEnableDefaultDoc=True
　　
　　 提交信息
　　ServerObjSetInfo
　　
　　 最後建立虛擬目錄
　　Set VDirObj = ServerObjCreate(IIsWebVirtualDir ROOT)
　　
　　If (ErrNumber <> ) Then 是否出錯
　　ResponseWrite 錯誤: 創建虛擬目錄的ADSI操作失敗！
　　CreateWebServer=
　　Exit Function
　　End If
　　
　　 配置虛擬目錄
　　VDirObjPath = WRoot
　　VDirObjAccessRead = True
　　VDirObjAccessWrite = True
　　VDirObjEnableDirBrowsing = False
　　VDirObjEnableDefaultDoc=True
　　VDirObjAccessScript=True
　　VDirObjAppCreate
　　VDirObjAppFriendlyName=默認應用程序
　　VDirObjSetInfo
　　
　　If ServerRun = True Then
　　ServerObjStart
　　If (ErrNumber <> ) Then Error！
　　ResponseWrite 錯誤: 起動服務器時出錯！請手動啟動WebServer &WComment&！
　　
　　CreateWebServer=
　　Exit Function
　　End If
　　End If
　　Set VDirObj=Nothing
　　Set ServerObj=Nothing
　　Set ServiceObj=Nothing
　　CreateWebServer=
　　End Function
From:http://tw.wingwit.com/Article/os/fwq/201311/10228.html