Windows Shell脚本无法使用VB编辑器

Question

任何人都可以告诉我为什么这段代码：

Set wshNetwork = WScript.CreateObject("WScript.Network")

strcomputerName = wshNetwork.ComputerName

MsgBox strcomputerName

Pcname = Mywb.Cells(4, 3).Value

If strcomputerName = Pcname Then

MsgBox "Hi Vivek!!"

End If

在vbs文件中工作但是当它作为VB编辑器中的代码放入时我得到运行时错误424 - 需要对象吗？ 我需要参考哪个库？ 我正在使用Excel 2010。 我尝试在参考文献中添加以下库：

MS脚本运行时 MS脚本控制 和Windows脚本宿主对象模型 这些似乎都不适合我。

Answer 1

使用对象变量

与Excel 2010进行后期绑定

工具 - ＆gt;参考 - ＆gt; Microsoft 14.0对象库

Dim strComputerName As String
Dim objWS As Object

Set objWS = CreateObject("Wscript.Network")
strComputerName = objWS.ComputerName
MsgBox strComputerName

Set objWS = Nothing