............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ESTABLECER DIRECCION IP DE LA PC

Ver el tema anterior Ver el tema siguiente Ir abajo

ESTABLECER DIRECCION IP DE LA PC

Mensaje por GalileoGali el Sáb Oct 04, 2008 9:12 pm

Bueno sobre esto traigo a colacion algunas cositas que hice y otras que recopile
el dialogo se puede encontrar aca:
[Tienes que estar registrado y conectado para ver este vínculo]

Mi solucion sin APIs

DESCARGAR ARCHIVO

Soluciones con APIs

DESCARGAR ARCHIVO

DESCARGAR ARCHIVOS


Transcribo ademas estos aportes de ST
como dice [Tienes que estar registrado y conectado para ver este vínculo] perdí de algo ????

como la envidia me corroe de las propuestas otorgdas por Gali,me permito (modestamente)exponer mis soluciones(propuestas),despues de quemarme bastante las pestañas.(tomenme por bueno el esfurzo ya que aun no logro distinguir entre IP publicas,de red o de lo que exista !!??)

bueno sin mas preambulo:
1.-mediante el DOS:

'1º debes agregar una referencia a:Windows script Host
'tomado de.-http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/461-ejecutar-comando-dos-y-retornar-la-salida.htm

Código:
Function ejecutar_Dos(Comando As String) As String
    Dim oShell As WshShell
    Dim oExec As WshExec
    Dim ret As String
       
    Set oShell = New WshShell
    DoEvents
       
    ' ejecutar el comando
    Set oExec = oShell.Exec("%comspec% /c " & Comando)
    ret = oExec.StdOut.ReadAll()
       
    ' retornar la salida y devolverla a la función
    ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine)
       
    DoEvents
    'Me.SetFocus
End Function

Sub Obtener_IP()
MsgBox ejecutar_Dos("ipconfig") ', vbInformation, "Resultado obtenido para:" + Application.UserName
End Sub

si,si ya se,aparece la pantalla,pero es lo mejor que pude conseguir,tal vez alguin con mas conocimientos para evitarlo

2.-una variante de la 1ª de Gali

Código:
Sub Identifica_IP_adaptado_ST() 'de Hector Miguel
  Dim IP As String

  With CreateObject("InternetExplorer.Application")
    .Navigate URL:="[Tienes que estar registrado y conectado para ver este vínculo]
    Do While .Busy Or .ReadyState <> 4
      DoEvents
    Loop
    IP = .Document.Body.InnerText
    .Quit
  End With
 
  MsgBox "la IP de esta PC es: " & Left(IP, InStr(IP, vbCrLf) - 1)
End Sub



3º.-con WMI (Windows Management Instrumentation)

Código:
Sub OBtener_IPAddress()
'http://msdn2.microsoft.com/en-us/library/aa394595(VS.85).aspx
'adaptado por ST :-)(je,je,je,je..que gran adaptación)
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
 
For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
        For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
            MsgBox "La Dirección IP es: " + IPConfig.IPAddress(i)
        Next
    End If
Next
End Sub

4º.-finalmente creo que la + economica seria como loanticipo p@li con el winsock ya que seria una solo linea de codigo,segun me acurdo loleido seria +/- asi
MsgBox Winsock1.LocalIP (esto si es economia de codigo)(soy flojo )
el problema parece ser que es un control que viene al instalar VB6 y muchos no lo tenemos.
ademas apenas si entendemos medianamente las macros sencillas de excel
en la red se pued localizar pero parece ser que no es muy confiable

en fin hasta aqui mi aporte,espero contribuya con algo.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.