Shulou(Shulou.com)06/03 Report--

This article will explain in detail how to automatically configure IIS in vbscript. The editor thinks it is very practical, so I share it with you as a reference. I hope you can get something after reading this article.

The code is as follows:

StrServerName = "" localhost ""

StrRootPath= "" g:\ documents ""''virtual directory path

StrVRName= "" Test ""''virtual directory name

StrDefaultDoc= "" index.asp ""''starting document

Dim objIIS

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

On Error Resume Next

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

If err=-2147024893 Then

MsgBox "" IIS does not exist! "& vbcrlf &" Please verify that IIS is installed correctly! ", vbcritical

Wscript.Quit

ElseIf err0 Then

MsgBox "unknown error!", 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 "" Virtual Directory "& strVRName &" already exists! ", 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 "path" & strRootPath & "does not exist!", 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 err0 Then

MsgBox "" failed to create virtual directory! ", vbcritical

Else

MsgBox "" Virtual Directory "& strVRName &"successfully created on the server" & strServerName & "!", vbinformation

End If

The key to the code is to create a virtual directory and the configuration in it:

Set VirDir=objVirtualDir.Create ("" IISWebVirtualDir "", strVRName)

VirDir.AccessRead=true

VirDir.Path=strRootPath

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

VirDir.setInfo

This is the end of this article on "how to automatically configure IIS in vbscript". I hope the above content can be helpful to you, so that you can learn more knowledge. if you think the article is good, please share it out for more people to see.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.