Question

为什么ActiveX不能创建对象WScript.Shell

怎么我在运行里输入了regsvr32 %windir%\system32\WSHom.Ocx运行了,出现了对话框内容是：C:\WINDOWS\system32\WShom.Ocx中的DllRegisterServer成功。可我运行JavaScript里还是出现了ActiveX 部件不能创建对象Wscript.Shell.请教高手了怎么回事呢？？

javascript里的代码为：

<Script Language="VBScript">
Function setI()
Set WshShell = CreateObject("Wscript.Shell")
Set oShellLink = WshShell.CreateShortcut("Current Script.lnk")
oShellLink.TargetPath = Wscript.ScriptFullName
oShellLink.Save
Set oUrlLink = WshShell.CreateShortcut("我的博客.URL")
oUrlLink.TargetPath = "http://hi.baidu.com/chgsh_2008/blog"
oUrlLink.Save //此快捷图标保存在了桌面上
End Function
</Script>

我用另一些代码代替了函数里的这段代码还是一样：
If url.value="" Then Exit Function

Dim strPage
Dim strROOT,strReg
strROOT="HKEY_CURRENT_USER"
strReg="\Software\Microsoft\Internet Explorer\Main"
Set WshShell= CreateObject("WScript.Shell")
WshShell.RegWrite strROOT & strReg & "\Start Page",url.value
msgbox("设置完成")

请教各位高手，到底怎么回事呢？就算我在运行对话框里多次输入regsvr32 %windir%\system32\WSHom.Ocx运行了几次还是一样的结果。

Answer 1

网网页里面要用Server.CreateObject("Wscript.Shell")