How to configure IIS automatically by vbscript
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.
