Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/06/2003, 08:41
chi_flao
 
Fecha de Ingreso: febrero-2002
Ubicación: Valladolid
Mensajes: 83
Antigüedad: 22 años, 10 meses
Puntos: 1
Utilizar el objeto 'WinNTSystemInfo' en VisualBasic

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