Utilizar el objeto 'WinNTSystemInfo' en VisualBasic

[chi_flao]

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

[Jorge_Mota]

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Usuario = String(100, Chr$(0))
GetUserName Usuario, 100
Usuario= Left$(Usuario, InStr(Usuario, Chr$(0)) - 1)
MsgBox "Hola! " + Usuario

****** esto es para el nombre del pc
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub



para el usuario, luego te paso lo del domain

Por cierto, esto no iria en Programacion ?

que tiene que ver esto con bases de datos ?

[chi_flao]

gracias, si me consigueras el del dominio, te lo agradeciría

[Jorge_Mota]

Mejor usa este codigo

Dim oWsh as Object
Set oWsh = CreateObject("Wscript.Network")
msgbox oWsh.UserDomain
msgbox oWsh.UserName
msgbox oWsh.ComputerName

Saludos.

[chi_flao]

, ey tío, muchisimas gracias, me viene perfecto, no sabes como te lo agradezco

Un enorme saludo

[Jorge_Mota]

no hay problema.

solo pregunto, como es que aun no han movido este mensaje al
foro de programacion ?

Saludos.