VBS建立站點代碼
Function?CreateWebServer(strServerComment,arrServerBindings,strMaxConnections,strPath)'建立站點
????On?Error?Resume?Next
????Set?objW3svc?=?GetObject("IIS://LocalHost/W3svc")
????intSiteIndex?=?999

????Do?While?IsObject(objW3svc.GetObject("IIsWebServer",intSiteIndex))
????????If?Err.Number?<>?0?Then
????????????'Wscript.Echo?Err.Description
????????????Err.Clear()
????????????Exit?Do
????????End?If
????????intSiteIndex?=?intSiteIndex?-?1
????Loop

????Set?objIIs?=?objW3svc.Create("IIsWebServer",intSiteIndex)
????If?Err.Number?<>?0?Then
????????Wscript.Echo?"Error?#?"?&?CStr(Err.Number)?&?"?"?&?Err.Description
????????Err.Clear()
????????CreateWebServer?=?0
????????Exit?Function
????End?If

????objIIs.ServerSize?=?1
????objIIs.ServerComment????=?strServerComment
????objIIs.ServerBindings???=?arrServerBindings
????objIIs.MaxConnections???=?strMaxConnections
????objIIs.EnableDefaultDoc?=?True
????objIIs.SetInfo
????Set?objIIsWeb?=?objIIs.Create("IIsWebVirtualDir",?"Root")
????If?Err.Number?<>?0?Then
????????Wscript.Echo?"Error?#?"?&?CStr(Err.Number)?&?"?"?&?Err.Description
????????Err.Clear()
????????CreateWebServer?=?0
????????Exit?Function
????End?If
????objIIsWeb.Path??????????????=?strPath
????objIIsWeb.AccessRead????????=?True
????objIIsWeb.AccessWrite???????=?False
????objIIsWeb.EnableDirBrowsing?=?False?
????objIIsWeb.EnableDefaultDoc??=?True?
????objIIsWeb.AccessScript??????=?True
????objIIsWeb.AppIsolated???????=?2
????objIIsWeb.AppCreate2????????????2
????objIIsWeb.AppFriendlyName???=?"默認應用程序"?
????objIIsWeb.SetInfo
????Set?objW3svc??=?Nothing
????Set?objIIs????=?Nothing
????Set?objIIsWeb?=?Nothing
????CreateWebServer?=?1
End?Function

If Err.Number <> 0 Then 在VBS里經常看到這種代碼。

總結

以上是生活随笔為你收集整理的VBS的疑惑，它们不考虑效率吗？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。