' rename this file to .vbs
' Find out the adress from the local network
'
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_PingStatus WHERE Address = '" & strComputer & "'")
For Each objComputer In colComputers
'    Wscript.Echo objComputer.ProtocolAddress
sSrcUrl = "http://www.congoed.us/work/wimc.php?action=update&name=ove&pass=xxxp&ip="&objComputer.ProtocolAddress
' If there is more then one network card You have to do something clever here 
Next
' Trace print Wscript.Echo sSrcUrl

' Network connection and respones
Set oHTTP = CreateObject("Microsoft.XMLHTTP")
' If You omitt the ip the adress of Your router gets registerd automaticly
'sSrcUrl = "http://www.congoed.us/work/wimc.php?action=update&name=ove&pass=xxxp"
bGetAsAsync = False 
oHTTP.open "GET", sSrcUrl, bGetAsAsync
oHTTP.send 
If oHTTP.status <> 200 Then
  WScript.Echo "unexpected status = " & oHTTP.status & vbCrLf & oHTTP.statusText
  WScript.Quit
End If
'MsgBox oHTTP.responseText