IP adres in cel A1

[snb]

Open de bijlage en in cel A1 van werkblad 1 komt het IP-adres van jouw verbinding tevoorschijn.
Zorg dat je verbinding met Internet hebt voordat je de bijlage opent.

[enijhuis]

Leuk gedaan hoor.
Met de volgende code kun je trouwens zonder webquery de lokale ip-adressen uitvragen (als hier de virusscanners niet van over de *** gaan):

Code: Selecteer alles

Option explicit

Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long

' Retourneer n array 'met de lokale ip-adressen(as strings).
Public Function GetIpAddrTable() As String()
   
    Dim Buf(0 To 511) As Byte
    Dim BufSize As Long
    Dim IpAddrs() As String
    Dim rc As Long
    Dim i As Integer
    Dim j As Integer
    Dim s As String
    Dim NrOfEntries As Integer
   
    ReDim IpAddrs(1)
    BufSize = UBound(Buf) + 1
    rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
   
    NrOfEntries = Buf(1) * 256 + Buf(0)
   
    If rc <> 0 Or NrOfEntries = 0 Then
        IpAddrs(0) = "[Onbekend]"
        GetIpAddrTable = IpAddrs
        Exit Function
    End If
   
    ReDim IpAddrs(0 To NrOfEntries - 1)
   
    For i = 0 To NrOfEntries - 1
        For j = 0 To 3
            s = s & IIf(j > 0, ".", "") & Buf(4 + i * 24 + j)
        Next
        IpAddrs(i) = s
        s = ""
    Next
   
    GetIpAddrTable = IpAddrs

End Function