Lokal ip?

prøv den her:
http://www.mentalis.org/apilist/87CE0B960AB6714155D5C44C037C7234.html

dog skal du lige rette den med den her:


    'Sort Out The IP For WAN
    Dim i As Integer
      For i = 0 To UBound(TempList())
        TempIP = TempList(i)
        For Tempi = 0 To Listing.dEntrys - 1
          L3 = Left(TempList(Tempi), 3)
          'If L3 <> "169" And L3 <> "127" And L3 <> "192" Then
            TempIP = TempIP & TempList(Tempi) & vbCrLf
          'End If
        Next Tempi
      Next i
    GetWanIP = TempIP

sjh du har fortjent hvereneste af de sølle points :) takker mange gange :)

selv tak :-)