讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的代碼
更新時(shí)間：2008年07月28日 23:19:00 作者：
讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的,沒(méi)有使用WMI,所以在操作前先得停止IIS相關(guān)服務(wù)
'/*=========================================================================
' * Intro 讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的,沒(méi)有使用WMI,所以在操作前先得停止IIS相關(guān)服務(wù)
' * FileName ChangeMetaBaseScriptMaps.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ChangeMetaBaseScriptMaps.vbs.html
' * MadeTime 2008-07-24 17:38:20
' * LastModify 2008-07-24 17:38:20
' *==========================================================================*/
WScript.Echo "點(diǎn)確定前，請(qǐng)先運(yùn)行" & vbCrLf & "net stop iisadmin /y " & vbCrLf & "以停止IIS相關(guān)服務(wù)"
Path = "C:\WINDOWS\system32\inetsrv\MetaBase.xml"
Node = "http://configuration/MBProperty/IIsWebService"
Set XmlDom = CreateObject("MSXML2.DOMXmlDomument")
XmlDom.async = False
XmlDom.load(Path)
ScriptMaps = XmlDom.selectSingleNode(Node).getAttribute("ScriptMaps")
ScriptMaps = Replace(ScriptMaps, "v1.1.4322", "v2.0.50727")
XmlDom.selectSingleNode(Node).setAttribute("ScriptMaps") = ScriptMaps
XmlDom.Save(Path)
WScript.Echo "OK,請(qǐng)運(yùn)行" & vbCrLf & "iisreset" & vbCrLf & "重啟IIS相關(guān)服務(wù)"
' * Intro 讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的,沒(méi)有使用WMI,所以在操作前先得停止IIS相關(guān)服務(wù)
' * FileName ChangeMetaBaseScriptMaps.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ChangeMetaBaseScriptMaps.vbs.html
' * MadeTime 2008-07-24 17:38:20
' * LastModify 2008-07-24 17:38:20
' *==========================================================================*/
WScript.Echo "點(diǎn)確定前，請(qǐng)先運(yùn)行" & vbCrLf & "net stop iisadmin /y " & vbCrLf & "以停止IIS相關(guān)服務(wù)"
Path = "C:\WINDOWS\system32\inetsrv\MetaBase.xml"
Node = "http://configuration/MBProperty/IIsWebService"
Set XmlDom = CreateObject("MSXML2.DOMXmlDomument")
XmlDom.async = False
XmlDom.load(Path)
ScriptMaps = XmlDom.selectSingleNode(Node).getAttribute("ScriptMaps")
ScriptMaps = Replace(ScriptMaps, "v1.1.4322", "v2.0.50727")
XmlDom.selectSingleNode(Node).setAttribute("ScriptMaps") = ScriptMaps
XmlDom.Save(Path)
WScript.Echo "OK,請(qǐng)運(yùn)行" & vbCrLf & "iisreset" & vbCrLf & "重啟IIS相關(guān)服務(wù)"
相關(guān)文章
VBS教程：函數(shù)-InStr 函數(shù)...2006-11-11
VBS教程：屬性-Count 屬性...2006-11-11
VBS教程：函數(shù)-TimeValue...2006-11-11
在這里我們僅就訪問(wèn)注冊(cè)表所涉及的有關(guān)對(duì)象的方法和屬性略做介紹，需要的朋友可以參考一下2006-12-12
用vbscript實(shí)現(xiàn)的修改注冊(cè)表的腳本，建議大家看看2008-06-06
VBS教程：屬性-IsReady 屬性...2006-11-11
讓VBS腳本也有GUI圖形界面,主要是利用了vbs中的internetexplorer.application組件，實(shí)現(xiàn)打開一個(gè)ie頁(yè)面。2011-01-01
VBScript中On Error語(yǔ)句用法小結(jié)
VBScript語(yǔ)言提供了兩個(gè)語(yǔ)句和一個(gè)對(duì)象來(lái)處理"運(yùn)行時(shí)錯(cuò)誤"，如下，1.On Error Resume Next語(yǔ)句,2.On Error Goto 0語(yǔ)句,3.Err對(duì)象,下面我們就來(lái)詳細(xì)探討下。2015-05-05
一個(gè)可以刪除指定天數(shù)文件的vbs腳本...2007-02-02
用vbs實(shí)現(xiàn)將剪切板的unix格式的內(nèi)容處理成pc格式的代碼
用vbs實(shí)現(xiàn)將剪切板的unix格式的內(nèi)容處理成pc格式的代碼...2007-10-10