Для чего это вообще может быть нужно?! Область применения обширная, приведу один пример: вам необходимо подключится к удаленному рабочему столу своего домашнего компьютера, тогда второй пример именно для вас.
Первый пример
В первом примере идем по адресу http://whatismyip.org , после загрузки страницы, берем ее содержимое и записываем в файл MyIP.txt
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim URl, objShell, objShellWindows
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "MyIP.txt"
Set f = fso.GetFile("MyIP.txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateTrue)
URL = "http://whatismyip.org/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate URL
objIE.Visible = false
While objIE.Busy
Wscript.Sleep 1000
Wend
ts.WriteLine objIE.document.body.innerTextts.Close
objIE.Quit
Второй пример
Во втором примере идем по адресу http://whatismyip.org , после загрузки страницы, берем ее содержимое и отправляем полученный IP адрес на email.
ПРИМИЧАНИЕ: для использования второго примера нам потребуется программа Blat это маленькая (70kB) open source консольная програмулька под Windows, которая позволяет отправлять e-Mail по SMTP протоколу из командной строки.
Dim URl, WshShell, objIE, Ip
Set WshShell = WScript.CreateObject("WScript.Shell")
URL = "http://whatismyip.org/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate URL
objIE.Visible = false
While objIE.Busy
Wscript.Sleep 1000
Wend
Ip = objIE.document.body.innerText
WshShell.Run "blat -serverSMTP smtp.yandex.ru -f MailОтпровитель@ya.ru -u Логин -pw Пароль -to MailПолучатель@yandex.ru -subject Ip -body " & Ip & " -log Ip.txt",0,1
objIE.Quit
