直接上代码:
<%
Dim OperationRegistry
Set OperationRegistry = CreateObject("WScript.Shell")
OperationRegistry.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\2400","3","REG_DWORD"
%>
上面的代码运行之后,修改了Internet的 XAML 浏览器应用程序 ,设置为禁用。
最开始参考网上的写法 是使用Set OperationRegistry=WScript.CreateObject("WScript.Shell") 这条语句,但是一直报错 缺少对象: 'WScript' ,后来查资料发现这条语句是基于windows来识别和调用的,所以假如在一个vbs文件里这么描述,然后双击执行这个文件是没有问题,因为windows存在Wscript这个对象,它遇到这个对象的时候会调用 C:\windows\system32\wscript.exe 这个 应用程序去执行它。 而Set OperationRegistry=CreateObject("WScript.Shell") 这样的写法则是不直接调用WScript这个对象来进行后期绑定WSH对象的。比如在ASP中、QTP中,都必须用这个方式。因为ASP也好,QTP也好,里面都不存在WScript这个对象,所以用WScript.CreateObject就会失败。