用ASP編程式控制制在IIS建立Web網站的程式碼

'*****************************************************
' 建立一個WebServer
' 必須參數：WRoot,為建立網站的物理目錄；WComment為網站說明；WPort為網站連接埠；ServerRun為是否自動運行
' 當建立成功時返回1，失敗時提示退出並返回0，當建立網站成功但啟動失敗時返回2
'******************************************************
' 　
'******************注意：WPort為List類型，意為伺服器連接埠
'　　本函數在IIS5.0上通過，＊＊必須以管理員身份登入＊＊
' 連接埠舉例：
' Dim WPort,bindlists,createflag,oComputer
' oComputer=""""LocalHost""""
' binglists=Array(0)
' binglists(0)="""":80:""""'連接埠號碼為80
' WPort=binglists
' createflag=CreateWebServer(""""D:myweb"""",""""我的家園"""",WPort,False)'調用建站函數
'　　If creatflag=0 Then
' Response.Write """"建立網站失敗！請確定是否有許可權""""
' ElseIf createflag=1 Then
' Response.Write """"建立網站成功！""""
' ElseIf createflag=2 Then
' Response.Write """"建立網站成功，但啟動網站失敗，可能連接埠衝突！""""
' End If
'*********************************************************
'關於Ftp網站的建立我已發表在asp版，請有興趣的朋友自己去查看
'如有問題，歡迎跟我聯絡:nonepassby@163.com
Function CreateWebServer(WRoot,WComment,WPort,ServerRun)
On Error Resume Next
Dim ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC"""")' 首先建立一個服務執行個體
WNumber=1
Do While IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))