Visual Basic - Uso de 'WinNTSystemInfo'

Hola, estoy intentando utilizar el objeto 'WinNTSystemInfo' para sacar el nombre del usuario conectado, el ordenador y el dominio que está utilizando, pero al crearlo (que lo hago de esta manera):

Function GetUserName()
Dim InfoNT
Set InfoNT = CreateObject("WinNTSystemInfo")
GetUserName = InfoNT.UserName
End Function

Function GetDomainName()
Dim InfoNT
Set InfoNT = CreateObject("WinNTSystemInfo")
GetDomainName = LCase(InfoNT.DomainName)
End Function

Function GetComputerName()
Dim InfoNT
Set InfoNT = CreateObject("WinNTSystemInfo")
GetComputerName = LCase(InfoNT.ComputerName)
End Function

me da el error '429' El componente ActiveX no puede crear el objeto, ¿alguien podría ayudarme? gracias

ese error sucede cuando no existe ese archivo, o no esta registrado correctamente

maCo