Har googlat lite och hittat ett script som passar mig:
On error resume next
Dim ip_info, DataBlock, Message
Const URL = "http://ip.auditmypc.com/"
set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(URL)
For each DataBlock in xmldoc.documentElement.childNodes
Select Case DataBlock.NodeName
Case "ip"
ip_info = DataBlock.text
Status = "ok"
End Select
Next
wscript.echo ip_info
Men istället för att att få ut ipadressen som ett medellande vill jag skicka över den till en txt fil. Vilket jag försökte lösa med följande sats (efter lite googlande).
Open "C:\ip.txt" For Output As #1
Print #1, ip_info
Close #1
Men får felmeddelande, nån som kan säga hur jag ska skriva istället för att det ska fungera?
