Nombre de PC en Win7 x64 no funciona

Hola:
Desde hace muchos años que vengo utilizando el código que lo conseguí
en la web del Búho, ahora que cambié de computadora, con Windows 7
x64, no se porque razón no funciona y me sale el siguiente error:
"Error de automatización. La biblioteca de objetos no está
registrada".
Utilizo Access 2010. Hace poco lo hacía con Windows 7 x86 y Access
2010 y si funcionaba.

Este es el código del Búho:
''Controlamos Nombre nombre máquina
Function DameNombrePc() As String
Dim ObjetoRed As Object
Set ObjetoRed = CreateObject("WScript.Network")
DameNombrePc = ObjetoRed.ComputerName
Set ObjetoRed = Nothing
End Function
''Controlamos Nombre nombre usuario máquina
Function DameNombreUsuarioMaquina() As String
Dim ObjetoRed As Object
Set ObjetoRed = CreateObject("WScript.Network")
DameNombreUsuarioMaquina = ObjetoRed.UserName
Set ObjetoRed = Nothing
End Function

Por favor si alguien puede ayudarme, le agradecería mucho.
Franklin