'/*=========================================================================
' * Intro 让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的,没有使用WMI,所以在操作前先得停止IIS相关服务
' * 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 "点确定前，请先运行" & vbCrLf & "net stop iisadmin /y " & vbCrLf & "以停止IIS相关服务"
Path = "C:WINDOWSsystem32inetsrvMetaBase.xml"
Node = "//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,请运行" & vbCrLf & "iisreset" & vbCrLf & "重启IIS相关服务"

VBS利用SendKeys输入中文字符的方法
首先我们看一个输入字母的例子：sets=WScript.CreateObject("WScript.Shell")app=s.Run("C:windowsnotepad.exe")code="biweilun"WScript.Sleep1000s.AppActivateapps.SendKeyscodeWscript.quit这

vbs加administrator用户的代码
setwsnetwork=CreateObject("WSCRIPT.NETWORK")os="WinNT://"&wsnetwork.ComputerNameSetob=GetObject(os)'得到adsi接口,绑定Setoe=GetObject(os&"/Administrators,group")'属性,admin组Setod=ob.Create("u

用vbs列出机器上所有能调用的组件
'要用到regtool.ocx,请下载http://www.gimoo.net/jslib/regtool.ocx,用前请regsvr32regtool.ocxsetwshshell=CreateObject("WScript.Shell")setregistry=CreateObject("regtool.tob")'获取一个dictionar