Он постоянно говорит, что компонент ActiveX не может создать объект: «Shell.LocalMachine» - PullRequest
Новая
       4

Он постоянно говорит, что компонент ActiveX не может создать объект: «Shell.LocalMachine»

0 голосов
/ 19 августа 2011

При запуске кода появляется сообщение об ошибке:

Компонент 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

Ответы [ 2 ]

1 голос
/ 16 апреля 2012

спасибо за это. У меня возникают те же проблемы при использовании этого Shell.Localmachine на моей 64-битной машине с Windows 7, когда я пытаюсь запустить простой код VBScript. Я должен был по умолчанию 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
0 голосов
/ 29 августа 2011

Морбо сказал: «Должен признать, я раньше не сталкивался с этим объектом. Обычно я создаю объект« WScript.Network »и получаю свойство ComputerName. Если вы диагностируете« Shell.LocalMachine », я могу вам сказать,что на моем экземпляре XP предоставлено system32 \ shgina.dll "

...