Option Explicit

Const READYSTATE_COMPLETE = 4

With CreateObject("InternetExplorer.Application")
    'Переход на нужный URL
    .Navigate "http://www.google.ru"
    'Ожидание окончательной загрузки
    Do While .Busy And .readyState <> READYSTATE_COMPLETE
        WScript.Sleep 100
    Loop
    'Получение текущего URL
    MsgBox .LocationURL
End With

Использовать MSDN не возбраняется.

http://msdn.microsoft.com/en-us/library … s.85).aspx

http://msdn.microsoft.com/en-us/library … s.85).aspx

Do : WScript.Sleep 100 : Loop Until Not .Busy And .ReadyState = 4

Но, похоже, что обычный Save не работает в отличии от Save_as (objIE.ExecWB 4, 2, "My.html"), и от диалога тогда не избавиться. Если у кого-то нет мыслей по этому поводу, то придётся использовать сторонний компонент.
Если же нужен html без иного контента, то достаточно после проверки на готовность добавить:

CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\saver.htm",2,True,-1).Write objIE.Document.body.outerHTML
objIE.ExecWB 45, 2 : objIE.Quit ' Выход

Jonson1992
Что-то из этой области: objIE.ExecWB 3, 2, "C:\Path\My.html"

Таким образом он просто сохраняет всю страницу в указанную дикторию? Или сохраняет адрес URL?
И как правильно объявить, к примеру

, а далее Ваш пример?

у меня есть вопрос очень интересный, нигде не могу найти точный ответ на него, может быть кто-то сможете как то подсказать?

Я пишу скрипт на VBS который имитирует работу пользователя, он заходит на сайт через IE , вводит данные в поля ,авторизуется на сайте и т д. Это все работает.

Но далее мне необходимо сохранить содержимое страницы на которой я в данный момент находусь, для этого мне нужно определить текущий url\сылку на которой я нахожусь, а затем сохранить в файл по указанному пути. Файл создать и сохранить туда содержимое страницы по url введенному вручную не проблема, а определить url программно не получается. Прочитал про объект Location и его свойство href, которое содержит url текущий, но запись вида x = location.href не проходит, ругается на необявленный объект location.
Как правильно запросить текущий url?

Вот кусок кода который сохраняет из уже заданного url:

Код VBS:

sUrl = "сайт"
XMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET",sUrl, False
oXMLHTTP.Send
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "D:\saver.txt", True
Set f = fso.OpenTextFile("D:\saver.txt", 2, True)