參照了Inetpub\AdminScripts\adsutil.vbs寫的創(chuàng)建虛擬目錄的腳本:
復(fù)制代碼 代碼如下:
'////////////////////////// begin //////////////////////////////////////////
On Error Resume Next
strVirtualDirectoryName = InputBox("請輸入虛擬目錄名")
If strVirtualDirectoryName = "" Then
msgbox("輸入錯誤,程序結(jié)束!")
WScript.Quit
End If
strVirtualDirectoryPath=InputBox("請輸入網(wǎng)站文件所在的目錄名(例如:e:\web)")
If strVirtualDirectoryPath = "" Then
msgbox("輸入錯誤,程序結(jié)束!")
WScript.Quit
End If
strVirtualDirectoryPath = Replace(strVirtualDirectoryPath,"/","\")
Set MyFso = CreateObject("Scripting.FileSystemObject")
If MyFso.FolderExists(strVirtualDirectoryPath) = 0 then
msgbox("文件夾"strVirtualDirectoryPath"不存在!")
Else
Set objIIS = GetObject("IIS://localhost/W3SVC/1/Root")
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)
If (Err.Number > 0) Then '如果虛擬目錄已存在或有其他錯誤時則為真
Err.Clear
Set myDir = objIIS.GetObject("IIsWebVirtualDir",strVirtualDirectoryName) '創(chuàng)建虛擬目錄對象
If (Err.Number > 0) Then '虛擬目錄不存在時則為真,說明是其他未知錯誤,否則為虛擬目錄已存在
msgbox("對不起,發(fā)生未知錯誤,操作失敗!")
WScript.Quit (Err.Number)
end if
m=msgbox ("虛擬目錄"strVirtualDirectoryName"已存在,是否刪除?",1+32,"刪除確認(rèn)")
if m>1 then
WScript.Quit
end if
objIIS.Delete "IIsObject", strVirtualDirectoryName
If (Err.Number > 0) Then
msgbox("刪除虛擬目錄"strVirtualDirectoryName"失敗")
WScript.Quit (Err.Number)
end if
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)
objVirtualDirectory.AccessScript = true
objVirtualDirectory.Path = strVirtualDirectoryPath
objVirtualDirectory.EnableDefaultDoc=True
objVirtualDirectory.DefaultDoc="index.htm"
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName
objVirtualDirectory.SetInfo
objVirtualDirectory.AppCreate true 'bolInProcessApplication
msgbox("操作成功!虛擬目錄"strVirtualDirectoryName"建立成功,"vbCrLf"請?jiān)跒g覽器地址欄中輸入http://localhost/"strVirtualDirectoryName"/查看效果")
else
objVirtualDirectory.AccessScript = true
objVirtualDirectory.Path = strVirtualDirectoryPath
objVirtualDirectory.EnableDefaultDoc=True
objVirtualDirectory.DefaultDoc="index.htm"
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName
objVirtualDirectory.SetInfo
objVirtualDirectory.AppCreate true 'bolInProcessApplication
msgbox("操作成功!虛擬目錄"strVirtualDirectoryName"建立成功,"vbCrLf"請?jiān)跒g覽器地址欄中輸入http://localhost/"strVirtualDirectoryName"/查看效果")
end if
End If
Set MyFso = nothing
'////////////////////////// end //////////////////////////////////////////
在做安裝的asp程序時可以參照上面的腳本。
以上的程序也可以改寫為asp的腳本,只是在運(yùn)行該asp頁面時要注意一點(diǎn),該asp頁面所在的虛擬目錄的匿名登陸用戶必須要為administrator,否則瀏覽器會提示權(quán)限不夠的提示!
使用同樣的方式也可以來創(chuàng)建web站點(diǎn),具體可以參照inetpub\AdminScripts\adsutil.vbs。