Как считать url открытой на данный момент страницы в IE?

#include <IE.au3>

$sUrl = 'http://www.google.ru/search?hl=ru&source=hp&q=autoit&aq=f&aqi=g10&aql=&oq=&gs_rfai='
$sKey = 'HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing'
$sValueName = 'PopupsUseNewWindow'

; Проверка(открыть в новом окне - 1, в новой вкладке - 2)
If RegRead($sKey, $sValueName) = 1 Then
	RegWrite($sKey, $sValueName, 'REG_DWORD', '2')
EndIf

$oIE = _IECreate($sUrl)
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
	If StringInStr($oLink.href, 'autoitscript.com') Then
		_IEAction($oLink, 'click')
		ExitLoop
	EndIf
Next
_IEQuit($oIE)
Sleep(1000)
WinWait('[Class:IEFrame]')
If WinExists('[Class:IEFrame]') Then
	$oIE = _IEAttach("[CLASS:IEFrame]", 'Instance')
EndIf
$sText = _IEBodyReadText($oIE)
MsgBox(0, '', $sText)
_IENavigate($oIE, $sUrl)

#include <IE.au3>

$sUrl = 'http://www.google.ru/search?hl=ru&source=hp&q=autoit&aq=f&aqi=g10&aql=&oq=&gs_rfai='

$oIE = _IECreate($sUrl)
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
	If StringInStr($oLink.href, 'autoitscript.com') Then
		_IENavigate($oIE, $oLink.href)
		ExitLoop
	EndIf
Next
$sText = _IEBodyReadText($oIE)
MsgBox(0, '', $sText)
_IEAction ($oIE, "back")

#include <IE.au3>

If RegRead($sKey, $sValueName) = 1 Then
	RegWrite($sKey, $sValueName, 'REG_DWORD', '2')
EndIf

$oIE = _IECreate($sUrl)
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
	If StringInStr($oLink.href, 'autoitscript.com') Then
		_IEAction($oLink, 'click')
		ExitLoop
	EndIf
Next