您好,登錄后才能下訂單哦!
這篇文章將為大家詳細(xì)講解有關(guān)vbscript如何自動配置IIS,小編覺得挺實用的,因此分享給大家做個參考,希望大家閱讀完這篇文章后可以有所收獲。
代碼如下:
strServerName =""localhost""
strRootPath=""g:\documents"" ''虛擬目錄路徑
strVRName=""Test"" ''虛擬目錄名稱
strDefaultDoc=""index.asp"" ''起始文檔
Dim objIIS
''MsgBox ""IIS://"" & strServerName & ""/W3SVC/1""
On Error Resume Next
Set objIIS=GetObject(""IIS://"" & strServerName & ""/W3SVC/1"")
If err=-2147024893 Then
MsgBox ""IIS不存在!"" & vbcrlf & ""請驗證IIS是否已正確安裝!"",vbcritical
Wscript.Quit
ElseIf err<>0 Then
MsgBox ""未知錯誤!"",vbcritical
Wscript.Quit
End If
On Error GoTo 0
Set objVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")
For each VR in objVirtualDir
If VR.Name=strVRName Then
MsgBox ""虛擬目錄"" & strVRName & ""已存在!"",vbinformation
Wscript.Quit
End If
Next
On Error Resume Next
Set fs=Wscript.CreateObject(""Scripting.FileSystemObject"")
Set objFolder=fs.GetFolder(strRootPath)
If err=76 Then
MsgBox ""路徑"" & strRootPath & ""不存在!"",vbcritical
Wscript.Quit
End If
Set objFolder=nothing
Set fs=nothing
On Error GoTo 0
On Error Resume Next
Set VirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc & "","" & strDefaultDoc
VirDir.setInfo
If err<>0 Then
MsgBox ""創(chuàng)建虛擬目錄失敗!"",vbcritical
Else
MsgBox ""虛擬目錄"" & strVRName & ""成功創(chuàng)建在服務(wù)器"" & strServerName & ""上!"",vbinformation
End If
代碼的關(guān)鍵在于創(chuàng)建虛擬目錄,及其中的配置:
Set VirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc & "","" & strDefaultDoc
VirDir.setInfo
關(guān)于“vbscript如何自動配置IIS”這篇文章就分享到這里了,希望以上內(nèi)容可以對大家有一定的幫助,使各位可以學(xué)到更多知識,如果覺得文章不錯,請把它分享出去讓更多的人看到。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。