=============================================================
' 感謝您使用ASP001工作室開發(fā)的實(shí)用函數(shù)程序
' HTTP://WWW.ASP001.NET
'=============================================================
'ASP001工作室為您提供訂制程序開發(fā)、企業(yè)互聯(lián)網(wǎng)拓展服務(wù)
'QQ：1974229
'E-Mail：Shenyangchuqi@tom.com
'更多程序下載請到HTTP://WWW.ASP001.NET
'=============================================================
'函數(shù)介紹：創(chuàng)建WebSite
'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限
'函數(shù)名稱：CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
'程序開發(fā)：ASP001工作室 ChuQi
'用法：CreateWebSite 計(jì)算機(jī)名(一搬為LocalHost或127.0.0.1),站點(diǎn)IP地址,端口號,主機(jī)名,站點(diǎn)根目錄,,LOG文件的目錄站點(diǎn)說明,網(wǎng)站訪問時(shí)所使用的帳號,網(wǎng)站訪問時(shí)所用帳號的口令,是否啟動站點(diǎn)
'例：CreateWebSite "LocalHost","127.0.0.123","80","www.test.net","E:/UserData/UserNum001","E:/UserData/UserNum001/LogFiles","wwwtest.net","IUSR_Num001_test.net","abc888",True
'=============================================================
Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
Dim w3svc, WebServer, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
On Error Resume Next
Err.Clear
'檢測是否能夠加載W3SVC服務(wù)（即WEB服務(wù)）
Set w3svc = GetObject("IIS://" & Computer & "/w3svc")
If Err.Number <> 0 Then '顯示錯誤提示
response.write "無法打開: "&"IIS://" & Computer & "/w3svc"
response.end
End If
'檢測是否有設(shè)定相同IP地址、端口及主機(jī)名的站點(diǎn)存在
BindingString = IPAddr & ":" & PortNum & ":" & HostName
For Each WebServer in w3svc
If WebServer.Class = "IIsWebServer" Then
Bindings = WebServer.ServerBindings
If BindingString = Bindings(0) Then
response.write "IP地址沖突:" & IPAddr & ",請檢測IP地址！."
Exit Function
End If
End If
Next
'確定一個不存在的站點(diǎn)編號做為新建站點(diǎn)編號，系統(tǒng)默認(rèn)WebSite站點(diǎn)編號為1，因此從2開始
SiteNum=2
bDone = False
While (Not bDone)
Err.Clear
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&SiteNum) '加載指定站點(diǎn)
