它一直说 ActiveX 组件无法创建对象：“Shell.LocalMachine”

Question

当我运行代码时，出现错误，指出

ActiveX 组件无法创建对象：“Shell.LocalMachine”

Class MachineName
    Private internal_ComputerName

    Public Function SetMachineName
        Set objComputer = CreateObject("Shell.LocalMachine")
        internal_ComputerName = objComputer.MachineName
    End Function

    Public Property Get GetMachineName
        GetMachineName = internal_ComputerName
    End Property
End Class

Dim objMachine
Set objMachine = New MachineName
objMachine.SetMachineName

Answer 1

谢谢你。当我尝试运行简单的 vbscript 代码时，在 Windows 7 64 位计算机上使用此 Shell.Localmachine 时，我遇到了同样的问题。我必须默认为 WScript.Network ：

'just a test script
'set objComputer = CreateObject("Shell.LocalMachine")

'wscript.echo "computer name" & objcomputer.machinename

Set objWshNet = CreateObject("WScript.Network")
wscript.echo "computer name : " & objwshnet.computername

Answer 2

Morbo 说：“必须承认我以前没有遇到过该对象。我通常会创建一个“WScript.Network”对象并获取 ComputerName 属性。如果您正在诊断“Shell.LocalMachine”，我可以在我的网站上告诉您这一点。 XP 的副本由 system32\shgina.dll 提供”