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

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

Private Sub Command1_Click()
    List1.Clear
    HISTORY_LIST = 34
    ITEM_NAME = 0
    ITEM_DATE = 2
    Set objShell = CreateObject("Shell.Application")
    Set objHistory = objShell.NameSpace(HISTORY_LIST)
    Set objHistoryFolder = objHistory.Self
    For Each objPeriod In objHistory.Items
        If objPeriod.IsFolder Then
            Set objSiteFolder = objPeriod.GetFolder
            For Each objSite In objSiteFolder.Items
                If objSite.IsFolder Then
                    Set objPageFolder = objSite.GetFolder
                    For Each objPage In objPageFolder.Items
                        strURL = objPageFolder.GetDetailsOf(objPage, ITEM_NAME)
                        'выводим все страницы из журнала
                        If (Left(strURL, 7) = "http://") Or (Left(strURL, 8) = "https://") Then
                            If strURL = [url]https://cebd_1.html[/url] Then 
                              Set WshShell = CreateObject("WScript.Shell")
                              WshShell.Run "C:\Users\fuji\Desktop\7\ок.bat" End If
                            List1.AddItem strURL
                            
                        End If
                        '''''''''''''''''''''''''''''''''
                        strDateVisited = objPageFolder.GetDetailsOf(objPage, ITEM_DATE)
                    Next
                End If
            Next
        End If
    Next
End Sub

If (Left(strURL, 7) = "http://") Or (Left(strURL, 8) = "https://") Then
    If strURL = "https://cebd_1.html" Then
        Set WshShell = CreateObject("WScript.Shell")
        WshShell.Run "C:\Users\fuji\Desktop\7\ок.bat"
        Debug.Print strURL
    End If
    List1.AddItem strURL
End If

If (Left(strURL, 7) = "http://") Or (Left(strURL, 8) = "https://") Then
                            '   If strURL = "https://keeper3.webmoney.ru/index.html" Then
                            ' Set WshShell = CreateObject("WScript.Shell")
                            '   WshShell.Run "C:\ок.bat"
            List1.AddItem strURL
                            '    End If
 End If