Visual Basic - Usuario de NT

Life is soft - evento anual de software empresarial
 
Vista:

Usuario de NT

Publicado por carlos (1 intervención) el 26/09/2003 14:22:33
Hola: alguien me puede orientar para obtener el nombre del usuario de una red NT?? Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Usuario de NT

Publicado por ismael (96 intervenciones) el 26/09/2003 15:30:16
Hola Carlos, a ver si te sirve esto:

Dim strDominio as string, strPc as string, strUser as string
Dim objWshNet As Object

Set objWshNet = CreateObject("Wscript.Network")
strDominio = Trim(objWshNet.userdomain)
strPc = Trim(objWshNet.ComputerName)
strUser = Trim(objWshNet.UserName)
Set objWshNet = Nothing

espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Usuario de NT

Publicado por Carlos (13 intervenciones) el 26/09/2003 17:34:50
Gracias Ismael. Lo acabo de probar pero me devuelve el usuario que esta logoneado en windows. Si es el mismo, todo ok, pero esto no siempre ocurre...
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Usuario de NT

Publicado por Cecilia Colalongo (3116 intervenciones) el 26/09/2003 17:43:16
Fijate con alguna de estas, en tu caso creo que te sirve la segunda:

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

Public Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar