Van olyan cmd parancs (win7 és xp alatt) amivel egy router mögül a külső hálózati címet (internet felé) adja vissza kimenetként?

Vagy:

[link]

wget [link]

De miért nem használsz dyndns-t?

Szia.

Egy VBScipt-tel megoldható a dolog : [link]

A harmadik kis program :

Option Explicit

DIM objHTTP, WshNetwork, strComputer, IPConfigSet, objWMIService, IPConfig, i, j, strIP, title, message, colItems, objItem

DIM arrIPAddress, columnC, strIPAddress, testIP(3), addr

Set objHTTP = WScript.CreateObject("MSXML2.ServerXmlHttp")

objHTTP.Open "GET", " [link] False

objHTTP.Send

Set WshNetwork = WScript.CreateObject("WScript.Network")

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

ReDim arrIP(-1)

For Each objItem In colItems

For Each addr In objItem.IPAddress

ReDim Preserve arrIP(UBound(arrIP)+1)

arrIP(UBound(arrIP)) = addr

Next

Next

title = "Who Am I?"

message = "Domain:" & vbTab & vbTab & WshNetwork.UserDomain & vbNewLine & _

"User Name:" & vbTab & UCase(WshNetwork.UserName) & vbNewLine & _

"Computer Name:" & vbTab & WshNetwork.ComputerName & vbNewLine & _

"Public IP Address: " & vbTab & objHTTP.ResponseText & vbNewLine & _

"Network IPs v4 & v6: " & vbNewLine & vbTab & vbTab & Join(arrIP, ", " & vbNewLine & vbTab & vbTab) & "."

Msgbox message, , title

Set objHTTP = Nothing

Sok sikert.

üdv.