vbscript自動配置IIS代碼

vbscript自動配置IIS代碼

　　復(fù)制代碼 代碼如下:

　　strServerName=""localhost""

　　strRootPath=""g:documents""'虛擬目錄路徑

　　strVRName=""Test""'虛擬目錄名稱

　　strDefaultDoc=""index.asp""'起始文檔

　　DimobjIIS

　　'MsgBox""IIS://""&strServerName&""/W3SVC/1""

　　OnErrorResumeNext

　　SetobjIIS=GetObject(""IIS://""&strServerName&""/W3SVC/1"")

　　Iferr=-2147024893Then

　　MsgBox""IIS不存在!""&vbcrlf&""請驗證IIS是否已正確安裝!"",vbcritical

　　Wscript.Quit

　　ElseIferr<>0Then

　　MsgBox""未知錯誤!"",vbcritical

　　Wscript.Quit

　　EndIf

　　OnErrorGoTo0

　　SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")

　　ForeachVRinobjVirtualDir

　　IfVR.Name=strVRNameThen

　　MsgBox""虛擬目錄""&strVRName&""已存在!"",vbinformation

　　Wscript.Quit

　　EndIf

　　Next

　　OnErrorResumeNext

　　Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"")

　　SetobjFolder=fs.GetFolder(strRootPath)

　　Iferr=76Then

　　MsgBox""路徑""&strRootPath&""不存在!"",vbcritical

　　Wscript.Quit

　　EndIf

　　SetobjFolder=nothing

　　Setfs=nothing

　　OnErrorGoTo0

　　OnErrorResumeNext

　　SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)

　　VirDir.AccessRead=true

　　VirDir.Path=strRootPath

　　VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

　　VirDir.setInfo

　　Iferr<>0Then

　　MsgBox""創(chuàng)建虛擬目錄失敗!"",vbcritical

　　Else

　　MsgBox""虛擬目錄""&strVRName&""成功創(chuàng)建在服務(wù)器""&strServerName&""上!"",vbinformation

　　EndIf

　　代碼的關(guān)鍵在于創(chuàng)建虛擬目錄，及其中的配置：

　　SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)

　　VirDir.AccessRead=true

　　VirDir.Path=strRootPath

　　VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

　　VirDir.setInfo

【vbscript自動配置IIS代碼】相關(guān)文章：

IIS詳細錯誤代碼以及解釋08-04

VBScript的入門學(xué)習(xí)資料有哪些10-13

怎么解決外網(wǎng)不能訪問IIS的問題09-29

過濾HTML代碼08-29

VBScript中字節(jié)數(shù)據(jù)操作函數(shù)06-20

linux配置dns服務(wù)器配置命令09-22

巧妙的設(shè)置IIS7支持ASP07-17

電腦配置知識10-12

數(shù)控編程代碼大全05-18

jquery提交按鈕的代碼07-28