Question

When I run the code, I get an error saying

ActiveX component can’t create object: ‘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

Morbo said “Must admit I hadn’t come across that object before. I’d normally create a “WScript.Network” object and get the ComputerName property. If you’re diagnosing “Shell.LocalMachine” I can tell you that on my copy of XP it is provided by system32\shgina.dll”