ip addres van website in label

[luck7]

Hallo

ik heb een skript nodig dat me het ip adres van een website laat zien als ik de url ingeef.
iemand?

bedankt
luck

 

[gast0167]

qua script's zou ik dat niet zo 123 weten, ik weet wel een andere manier:
________________________________________________

ga naar start - uitvoeren - typ cmd.

typ daar in: ping (website).

bijvoorbeeld: ping www.google.nl.
dan ziet u dit staan:

Antwoord van 74.125.79.104: bytes=32 tijd=11 ms TTL=54

dan is het dikgedrukte het IP adress van de website.

 

[Ozfaw]

Als je dit voor meerder websites wilt doen zou ik een batch filetje maken

zoiets:

@echo off
color 70
:begin
cls
echo.
set /p a=URL: 
ping %a% -n 1 -w 500
pause >NUL
goto begin

dit kopieren en opslaan als .bat en het werkt

 

[luck7]

ik moet het alleen in een vba intergreren!?

 

[city guy]

ik moet het alleen in een vba intergreren!?

.. misschien bedoel je dit combi script op http://www.excelforum.com/excel-programming/701063-obtain-external-ip-address-with-vba.html

Zou voor elke VBA als basis kunnen dienen

 

[Ellasar]

Hier nog een 3 tal vbs functies die je mogelijk kan omzetten naar VBA (ken ik vba niet goed genoeg voor maar nooit geschoten....

http://www.naterice.com/articles/49

 

[luck7]

heb dit hier inelkaar geflatst en werkt ^^

Imports System.Net


Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim HostName As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
Dim IP As IPAddress() = HostName.AddressList
Host.Text = IP(0).ToString

End Sub

 

[Warme bakkertje]

Met de voorzet van CG, code aangepast voor algemeen gebruik
Zet onderstaande functie in een standaardmodule
Met de URL in A1 zet je in B1

=GetIPAddress(A1)

Function GetIPAddress(URL As String) As String

  Dim Exec As Object
  Dim IP As String
  Dim RegExp As Object
  Dim S As String
  Dim WSH As Object
  
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.MultiLine = True
    
    Set WSH = CreateObject("WScript.Shell")
    'Set Exec = WSH.Exec("ping.exe www.helpmij.nl")
    Set Exec = WSH.Exec("ping.exe " & URL)
    S = Exec.StdOut.ReadAll()
    
      RegExp.Pattern = "\[.+\]"
      If RegExp.Test(S) Then
         IP = RegExp.Execute(S)(0)
         RegExp.Pattern = "(\[|\])"
         IP = RegExp.Replace(IP, "")
      End If
    
    GetIPAddress = IP
    
    Set WSH = Nothing
    Set Exec = Nothing
    Set RegExp = Nothing
    
End Function