Buscar IP por nombre de usuario

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
Avatar de Usuario
juantxo
Hacker del Foro
Mensajes: 78
Registrado: 02 Abr 2008, 13:36

Buscar IP por nombre de usuario

Mensaje por juantxo »

SALUDOS!!

Os cuento en que ando ahora....

Trabajo en un entorno en el que tenemos una red de ordenadores bastante amplia. Muchas veces los usuarios nos llaman con problemas y necesitamos acceder a sus maquinas, pero el único dato que conocen es su identificación de red (Usuario).

¿Hay algún modo de obtener la direccion IP o el nombre de la máquina en la que está el usuario?? :smt017

He estado buscando en comandos de DOS, pero no encuentro la forma... :smt022
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2091
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Re: Buscar IP por nombre de usuario

Mensaje por BasicOs »

Puedes almacenar en un fichero .log en el servidor los accesos que hacen, o bien en una base de datos pequeña,
o quizas mas facil en un archivo .ini (la ip como titulo y el nombre de usuario como dato)

Grabas con iniwrite() siempre usuario,y @IP
[usuarioPepe]
UltimaIp1:33.33.33.33
UltimaIp2:192.22.22.22


@IPAddress1 IP address of first network adapter. Tends to return 127.0.0.1 on some computers.
@IPAddress2 IP address of second network adapter. Returns 0.0.0.0 if not applicable.
@IPAddress3 IP address of third network adapter. Returns 0.0.0.0 if not applicable.
@IPAddress4 IP address of fourth network adapter. Returns 0.0.0.0 if not applicable

@UserProfileDir Path to current user's Profile folder.
@UserName ID of the currently logged on user.
@LogonDNSDomain Logon DNS Domain.
@LogonDomain Logon Domain.
@LogonServer Logon server.


La ip publica
#include <Inet.au3>
$PublicIP = _GetIP()


Luego puedes hacer un seguimiento creando un log.txt de los cambios actuales que va habiendo:
#include <file.au3>
;
_FileWriteLog(@ScriptDir & "\my.log","Text 1")

Si puedes publicar el código así podemos ir viendo como va quedando, es un programa interesante, :smt026 :smt026 :smt027 :smt027
Salu22:)
Avatar de Usuario
juantxo
Hacker del Foro
Mensajes: 78
Registrado: 02 Abr 2008, 13:36

Re: Buscar IP por nombre de usuario

Mensaje por juantxo »

Gracias BasicOs por la idea, pero no es lo que necesito...

Mi duda es si hay algun modo de obtener la dirección IP directamente con el nombre del usuario, aunque haya que ser administrador de las maquinas...

Seguiré buscando el modo, y si avanzo prometo publicar el código.

Pero GRACIAS!!!
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2091
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Re: Buscar IP por nombre de usuario

Mensaje por BasicOs »

Aqui tienes un código funcional para archivar en un fichero ini los users, y en otro un log:

Código: Seleccionar todo

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <file.au3>
#include <Inet.au3>
;IniWrite("ipsguarda.ini","Config","DirectorioIni",@ScriptDir)
;IniWrite("ipsguarda.ini","Config","FicheroIni","Usuarios.ini")
FileInstall("ipsguarda.ini","ipsguarda.ini")
$miDirectorio = IniRead("ipsguarda.ini","Config","DirectorioIni",@ScriptDir)
$miFicheroIni = IniRead("ipsguarda.ini","Config","FicheroIni","Usuarios.ini")

$ListadeLogons = "User Profile " & @UserProfileDir & "Usuario " & @UserName & " @LogonDNSDomain  " & @LogonDNSDomain & "LogonDomain" & @LogonDomain & "Log On Server" & @LogonServer
$datosDelSistema =  @OSType & "#" & @OSVersion & "#" & @OSServicePack & "#" & @OSLang & "#" & @OSBuild & "#" & @HomeDrive & "#" & @DocumentsCommonDir & "#" & @WorkingDir & "#" & @StartupCommonDir

TrayTip("Info", $miDirectorio & "\" & $miFicheroIni, 5)
IniWrite($miDirectorio & "\" & $miFicheroIni, @UserName, "Ip1",  @IPAddress1 )
IniWrite($miDirectorio & "\" & $miFicheroIni, @UserName, "Ips", " Ip2: " & @IPAddress2 & " Ip3: " & @IPAddress3 & " Ip4: " & @IPAddress4 & " IpPublica: " & _GetIP())
IniWrite($miDirectorio & "\" & $miFicheroIni, @UserName, "PcUsuario", @ComputerName & "\" & @UserName)
IniWrite($miDirectorio & "\" & $miFicheroIni, @UserName, "DatosdeSistema", $datosDelSistema)
IniWrite($miDirectorio & "\" & $miFicheroIni, @UserName, "ListadeLogons", $ListadeLogons)
IniWrite($miDirectorio & "\" & $miFicheroIni, @UserName, "Conectado", @HOUR & ":" & @MIN & ":" & " a " & @MDAY & " de " & @MON & " de " & @YEAR)

_FileWriteLog($miDirectorio & "\my.log", "PcName\Usuario" & @ComputerName & "\" & @UserName & " IpPublica" & _GetIP() & " Ip1" & @IPAddress1 & " Ip2" & @IPAddress2 & " Ip3" & @IPAddress3 & "Lista de Logons" & $ListadeLogons & "Datos del sistema: "&$datosDelSistema)
Salu22:)
Avatar de Usuario
Ximorro
Profesional del Autoit
Mensajes: 1500
Registrado: 10 Jul 2009, 12:35
Ubicación: Castellón, España

Re: Buscar IP por nombre de usuario

Mensaje por Ximorro »

Pero es que creo que lo que quiere es comprobarlo remotamente.

Quizás lo puedes simplificar si en vez de "usuario" decimos "ordenador de usuario". En realidad un usuario no tiene IP, la tiene su PC, así que si sabes el nombre del PC del usuario puedes encontrar su IP por ejemplo con ping. Nosotros en el trabajo cada PC se llama como el usuario (muy conveniente), así que para buscar la IP (en la red interna) de, digamos un informático, haría:
ping -a infor1 -n 1
Habría que capturar la primera línea y entre corchetes tienes la IP.

Lo del usuario es más complicado pues quizás puede conectarse por diferentes máquinas, quizás se pueda buscar en qué PC se ha conectado a través del controlador de dominio...
"¿Y no será que en este mundo hay cada vez más gente y menos personas?". Mafalda (Quino)
Responder