讓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的,沒有使用WMI,所以在操作前先得停止IIS相關(guān)服務(wù)
'/*=========================================================================
' * Intro 讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的,沒有使用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的,沒有使用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í)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼
用vbs實(shí)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼...2007-10-10用vbs針對(duì)一個(gè) IP 地址范圍運(yùn)行腳本
用vbs針對(duì)一個(gè) IP 地址范圍運(yùn)行腳本...2007-04-04用VBScript批量安裝網(wǎng)絡(luò)打印機(jī)和設(shè)置默認(rèn)打印機(jī)
假如你有幾十臺(tái)機(jī)器,幾臺(tái)打印機(jī),共享網(wǎng)絡(luò)上有網(wǎng)絡(luò)打印機(jī)的安裝驅(qū)動(dòng),可是每臺(tái)電腦都點(diǎn)擊幾次驅(qū)動(dòng)十分麻煩,本人做了個(gè)VBS,這樣就方便多了,拿來和大家分享,不足之處請(qǐng)見諒!2009-03-03VBS+MSWinsock打造靈巧UDP后門的相關(guān)資料
VBS+MSWinsock打造靈巧UDP后門的相關(guān)資料...2007-02-02一個(gè)用vbs查找硬盤所有分區(qū)中的指定程序的代碼
用vbs實(shí)現(xiàn)可以查找指定擴(kuò)展名的文件,方便大家搜索2008-06-06