Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???
Cita de: CeLaYa en 22 Octubre 2007, 19:06 PM
Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???
Solo se me ocurren con el Environ("COMPUTERNAME") una ves dentro de la PC con ese IP claro esta.
O tambien con apis
Private Declare Function WSAStartup Lib "WSOCK32" (ByVal wVersionRequired As Long, lpWSADATA As WSAData) As Long
Private Declare Function gethostname Lib "WSOCK32" (ByVal szHost As String, ByVal dwHostLen As Long) As Long
Private Type WSAData
szSystemStatus(0 To 128) As Byte
dwVendorInfo As Long
End Type
Private Sub Command1_Click()
Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
MsgBox Nombre
End Sub
una vez dentro de la PC :P jeje
saludos ;)