[deepred]

Freem, можно и без заморочек с OLE Parent и CLIP в InternetExplorer и с реестром...

сразу используя "DOM"(способ позволяет выловить нужную инфу из html)

Код:

Set objIE = CreateObject("InternetExplorer.Application")
Set WshShell = CreateObject("WScript.Shell")
     objIE.Visible = False
     objIE.Navigate "http://2ip.ru"
Do Until objIE.Readystate=4: WScript.Sleep 1: Loop
For Each tag In objIE.Document.getElementsByTagName("big")
    Strinfo = tag.innerHTML
Next
WshShell.Run "cmd /k Echo " & strinfo & " | CLIP", 0
objIE.Quit

или используя "MSXML2.XML" на "ответку"

Код:

Set oHTML = CreateObject("MSXML2.XMLhttp")
    oHTML.Open "GET", "http://www.whatismyip.com/automation/n09230945.asp", False
    oHTML.Send

Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "cmd /k Echo " & oHTML.ResponseText & " | CLIP", 0