averiguar ip por excel

"Doors" wrote in message
news:
Mostrar la cita

saludos!!!

Amigos, una consulta, es posible averiguar la direccion ip de una pc por
medio de excel???

Gracias!!!

Mira a ver si te vale esto:

http://tinyurl.com/2o9b4c


Saludos,
KL

Hola KL, estuve probando esta funcion pero me envia un mensaje que indica que
no hay direccion ip, no se porque..

Gracias por tu ayuda!!!!


Sub test()

Dim IP_Address: IP_Address = GetIP()

If IP_Address = "0.0.0.0" Or IP_Address = "" Then
MsgBox "No IP Address found.", , ""
Else
ActiveWorkbook.Sheets("Hoja1").Range("d26").Value = "IP address"
End If

End Sub

Function GetIP()

Dim ws: Set ws = CreateObject("WScript.Shell")
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

Dim TmpFile: TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
Dim ThisLine, IP

If ws.Environment("SYSTEM")("OS") = "" Then
ws.Run "winipcfg /batch " & TmpFile, 0, True
Else
ws.Run "%comspec% /c ipconfig > " & TmpFile, 0, True
End If

With fso.GetFile(TmpFile).OpenAsTextStream
Do While Not .AtEndOfStream
ThisLine = .readline
If InStr(ThisLine, "Address") <> 0 Then
IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
End If
Loop
.Close
End With

'WinXP (NT? 2K?) leaves a carriage return at the end of line
If IP <> "" Then
If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
End If

GetIP = IP

fso.GetFile(TmpFile).Delete

Set fso = Nothing
Set ws = Nothing

End Function
"KL" wrote:

Mostrar la cita

"Doors" wrote in message
news:
> saludos!!!
>
> Amigos, una consulta, es posible averiguar la direccion ip de una pc por
> medio de excel???
>
> Gracias!!!

Mira a ver si te vale esto:

http://tinyurl.com/2o9b4c


Saludos,
KL

Hola Doors,

"Doors" wrote in message
news:
Mostrar la cita

Hola KL, estuve probando esta funcion pero me envia un mensaje que indica
que
no hay direccion ip, no se porque..

Pues a mi ese tampoco me ha funcionado, pero el segundo (con API's) - si.

Saludos,
KL

Kl, perodna que te moleste tanto, pero aun asi no me funciona, el de las
Apis, me da un error en la declaracion de las funciones.

"KL" wrote:

Mostrar la cita

Hola Doors,

"Doors" wrote in message
news:
> Hola KL, estuve probando esta funcion pero me envia un mensaje que indica
> que
> no hay direccion ip, no se porque..

Pues a mi ese tampoco me ha funcionado, pero el segundo (con API's) - si.

Saludos,
KL

hola, chicos !

Mostrar la cita

Mostrar la cita

Doors escribio en el mensje ...
Hola KL, estuve probando esta funcion pero
me envia un mensaje que indica que no hay direccion ip, no se porque...

Pues a mi ese tampoco me ha funcionado, pero el segundo (con API's) - si.
Saludos,
KL

otra alternativa [y solo por no dejarla en el tintero] :D

pueba con la siguiente macro,,,
-> estableciendo PRIMERO una referencia en el proyecto de macros de tu libro...
-> en el editor de vba / -menu- herramientas / referencias..
-> a la biblioteca de objetos de: -> Microsoft Internet Controls

Sub Identifica_IP()
Dim IP As String
With CreateObject("InternetExplorer.Application")
.Navigate URL:="www.showmyip.com"
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
IP = .Document.Body.InnerText
.Quit
End With
ActiveCell = Left(IP, InStr(IP, vbCrLf) - 1)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. es probable que pudieras lograr mayor 'rapidez' haciendo algunas llamadas a las API's de windows
o [quizas] 'leyendo' datos y componentes en el registro de windows...
[aunque quizas tengan otras 'implicaciones', sobre todo si vas a estar cambiando de equipos] :-(