ActiveX组件无法创建对象vbs代码erorr

Question

单击执行时，此vbs代码显示错误

Set objIP = CreateObject( "SScripting.IPNetwork" )
strIP = objIP.DNSLookup( "www.google.com" )
WScript.Echo "IP address of www.google.com: " & strIP
Set objIP = Nothing

错误为here in this is pic。

Answer 1

在我看来，activeX组件通常记录很少，如果你不能使用东西，你需要一种绕过文档并直接进入你机器上实际可用内容的方法。

我的文档说的是：

Set library = CreateObject("somethinglibLib.SomethingLibrary.2")

会起作用，它没有...现在在哪里？

我发现＆＃34; somethinglibLib.SomethingLibrary.2＆＃34;应该存在于ProgID密钥的注册表中，如果它不是你的CreateObject不能工作。

我不会覆盖您尚未注册activeX组件的案例，因为其他地方已经涵盖了这一点。

但是如果你在注册表中搜索你正在寻找的部分对象名称，你可能会发现我做了一个包含

的ProgId

＆＃34; somethinglib.SomethingSite.1＆＃34;

知道我找到了

Set library = CreateObject("somethinglib.SomethingSite.1")

工作

现在我的例子部分归因于我安装的版本与文档不匹配，但希望这种技术可以帮助其他人。

Answer 2

为了使您的代码正常运行，您需要确保在计算机上安装了 System Scripting Runtime 。

Here 是非常好的参考。