De que manera se puede sacar el nombre del equipo de un usuario...
( algo asi como sacar si ip )
Esto es con el fin de que solo se pueda loguear desde su maquina...
Saludos
27/12/2004, 16:43
| ||||
| ||||
| Sacar el nombre del equipo... De que manera se puede sacar el nombre del equipo de un usuario... ( algo asi como sacar si ip ) Esto es con el fin de que solo se pueda loguear desde su maquina... Saludos |
|
27/12/2004, 20:28
| ||||
| ||||
| Utiliza este bucle y fíajte cual de las servervariables te sirven para esto For each item in request.servervariables response.write item & "= " & request.servervariables(item) & "br" Next Te debo los corchetes triangulares ya que no los encuentro ja ja ja ja!
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
27/12/2004, 20:49
| ||||
| ||||
| Debe ser del servidor si no me equivoco, la del cliente tiene otro nombre, pero tampoco recuerdo  aaayyy este alzheimer!!http://www.forosdelweb.com/showthrea...ght=Obtener+IP Editando: remote_addr
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
28/12/2004, 09:53
| ||||
| ||||
| Guarda que remote_addr devuelve la IP, no el nombre. Revisando todas las servervariables, no hay ninguna que devuelva el nombre de mi equipo (ya sea como cliente o como servidor, que es el mismo para esta prueba)
__________________ ...___... Última edición por AlZuwaga; 28/12/2004 a las 09:55 |
|
28/12/2004, 15:07
| ||||
| ||||
| creo qeu se puede hacer con WMI
__________________ Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia http://www.controldevisitantes.com |
|
28/12/2004, 16:22
| ||||
| ||||
| pues te cuento qeu no se mucho por no decir nada de este tema, tengo un ejemplo qeu muestra todos los equipos conectados a tu red.. CENTER>ADMINISTRADOR DE EQUIPOS</center> <% Sub ListConnectedComputers( strDomain ) Dim objPDC ' ojo mi dominio se llama ww Set objPDC = getobject("WinNT://nombredetupc") objPDC.filter = Array("Computer") For Each objComputer In objPDC strComputer =objComputer.Name Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive",,48) For Each objItem in colItems Response.Write "<br><font face=arial>Drive: " & objItem.Drive Response.Write "<br>Etiqueta : " & objItem.Caption Response.write "<br>Nombre: " & objItem.Name Response.write "<br>Estado del dispositivo: " & objItem.Status Response.write "<hr>" Next Next End Sub ListConnectedComputers( strDomain ) %> busca aqui en los foros este tema de wmi ya se ha tratado bien en post anteriores.. espero te sirva de algo.. pero si se que con wmi se puede hacer algo.
__________________ Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia http://www.controldevisitantes.com |
