Recuperar nombre de usuario en s.o. winnt.

27/09/2004 - 23:33 por Esteban Bruna | Informe spam

Estimados.
Como puedo recuperar el nombre del usuario al que esta ingresando un
registro, ósea, el nombre con que inicia la maquina(caso para winnt o
posteriores.

Atte.
Esteban Bruna
Stgo. Chile

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Recuperar el nombre de usuario de Windows desde VBA

Leer las respuestas

#1 Franco Figún

27/09/2004 - 23:46 | Informe spam

Con ADSI:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>ADSI Get user details</title>
</HEAD>
<BODY>


<%
sFullUser = trim(Request.ServerVariables ("LOGON_USER"))
if len(sFullUser) = 0 then
Response.Write "You need to disable anonymous access for this code to work."
Response.End
End if
response.write sFullUser
iPos = InStr(sFullUser, "\")
sDomain = Left(sFullUser, iPos - 1)
sUser = Mid(sFullUser, iPos + 1)

Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
%>

<p>
Your account is <%=sFullUser%> and your name is <%=objUser.FullName%>
</p>
<%
set objUser = nothing
%>
</BODY>
</HTML>

FF
www.francofigun.com.ar
Yahoo MSN:
ICQ: 314408886
"Esteban Bruna" escribió en el mensaje
news:%

Estimados.
Como puedo recuperar el nombre del usuario al que esta ingresando un
registro, ósea, el nombre con que inicia la maquina(caso para winnt o
posteriores.

Atte.
Esteban Bruna
Stgo. Chile

Responder a este mensaje

#2 Esteban Bruna

28/09/2004 - 15:44 | Informe spam

Nuevamente, gracias Franco.

Sabes que hice lo que me dijiste, y la función Logon_user, me devuelve
0, estoy trabajando con win2000 profesional

Saludos

"Franco Figún" wrote in message
news:

Con ADSI:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>ADSI Get user details</title>
</HEAD>
<BODY>


<%
sFullUser = trim(Request.ServerVariables ("LOGON_USER"))
if len(sFullUser) = 0 then
Response.Write "You need to disable anonymous access for this code to

work."

Response.End
End if
response.write sFullUser
iPos = InStr(sFullUser, "\")
sDomain = Left(sFullUser, iPos - 1)
sUser = Mid(sFullUser, iPos + 1)

Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
%>

<p>
Your account is <%=sFullUser%> and your name is <%=objUser.FullName%>
</p>
<%
set objUser = nothing
%>
</BODY>
</HTML>

FF
www.francofigun.com.ar
Yahoo MSN:
ICQ: 314408886
"Esteban Bruna" escribió en el mensaje
news:%
> Estimados.
> Como puedo recuperar el nombre del usuario al que esta ingresando un
> registro, ósea, el nombre con que inicia la maquina(caso para winnt o
> posteriores.
>
> Atte.
> Esteban Bruna
> Stgo. Chile
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida