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

on error resume next
set sh = createobject("Shell.Application")
const ssfHISTORY = 34
set history = sh.NameSpace(ssfHISTORY)
for each item in history.items
wscript.echo history.GetDetailsOf(item,-1)
if item.isFolder then
set itFol = item.GetFolder
for each item2 in itFol.items
wscript.echo vbtab & itFol.GetDetailsOf(item2,-1)
Next
wscript.echo String (80,"-")
end if
next

HISTORY_LIST = 34 
ITEM_NAME = 0 
ITEM_DATE = 2 
Set objShell = CreateObject("Shell.Application") 
Set objHistory = objShell.NameSpace(HISTORY_LIST) 
Set objHistoryFolder = objHistory.Self 
Wscript.Echo vbCrLf & "Location of History" 
Wscript.Echo objHistoryFolder.Path 
For Each objPeriod In objHistory.Items 
  Wscript.Echo vbCrLf & objPeriod.Name 
  Wscript.Echo String(Len(objPeriod.Name), "=") 
  If objPeriod.IsFolder Then 
    Set objSiteFolder = objPeriod.GetFolder 
    For Each objSite In objSiteFolder.Items 
      Wscript.Echo vbCrLf & objSite.Name 
      Wscript.Echo String(Len(objSite.Name), "-") 
      If objSite.IsFolder Then 
        Set objPageFolder = objSite.GetFolder 
        For Each objPage In objPageFolder.Items 
          strURL = objPageFolder.GetDetailsOf(objPage,ITEM_NAME) 
          WScript.Echo vbCrLf & "URL: " & strURL 
          strDateVisited = objPageFolder.GetDetailsOf(objPage,ITEM_DATE) 
          WScript.Echo "Date Visited: " & strDateVisited 
        Next 
      End If 
    Next 
  End If  
Next