Скрипт запуска программы, нажатия кнопки, копирования данных из окна и записи их в файл

Const Name = "Утилита диагностики Guardant"
With CreateObject("AutoItX3.Control")
   If .ProcessExists("grddiag.exe") = 0 Then
      .Run "C:\Program Files\Common Files\Guardant\Drivers\grddiag.exe",, 0
      .WinWait Name
      .Sleep 2000
   End If
   .Opt "WinDetectHiddenText", 1
   .ControlClick Name,"","Button7"
   .WinWait "[CLASS:IEFrame]"
   .WinKill "[CLASS:IEFrame]"
   .ProcessClose "iexplore.exe"
   .ProcessClose "grddiag.exe"
End With

With CreateObject("AutoItX3.Control")
    If Not .ProcessExists("grddem32.exe") Then
        .Run "C:\Program Files\Common Files\Guardant\Drivers\grddem32.exe",, .SW_SHOWNORMAL
        WScript.Sleep 4000
        .ControlClick ACTIVE,"","Button7"
    End If
    WScript.Sleep 2000
    .ProcessClose "grddem32.exe"
End With

Set objIE = CreateObject( "InternetExplorer.Application" )

objIE.Navigate "about:blank"

For Each W In CreateObject("Shell.Application").Windows
   If InStr(W.Name, "Internet Explorer") Then Set oIE = W: Exit For
Next

Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder_temp = FSO.GetSpecialFolder(2)
Set file = folder_temp & "\Guardant Diagnostic Utility report( ).html"
Set hfile = FSO.OpenTextFile(file, 1, True, 0)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close

'=====
With CreateObject("AutoItX3.Control")
    If Not .ProcessExists("grddem32.exe") Then
        .Run "C:\Program Files\Common Files\Guardant\Drivers\grddem32.exe",, .SW_SHOWNORMAL
        WScript.Sleep 4000
        .ControlClick ACTIVE,"","Button7"
    End If
    WScript.Sleep 2000
    
    Set oIE = Nothing
    
    For Each W In CreateObject("Shell.Application").Windows
        If InStr(W.Name, "Internet Explorer") Then 
            Set oIE = W
            Set objNodeList = oIE.Document.getElementsByTagName("td")
            i = 0
            For Each td in objNodeList
                If i = 25 Then
                    msgbox td.innerText
                    WScript.Sleep 2000
                End If
                i = i + 1
            Next
        End If
    Next
    
    .ProcessClose "grddem32.exe"
    .ProcessClose "iexplore.exe"
End With

With CreateObject("Scripting.FileSystemObject")
   Text = .OpenTextFile(.GetSpecialFolder(2) & "\Guardant Diagnostic Utility report( ).html").ReadAll
End With
Set oHTML = CreateObject("htmlfile")
With oHTML
   .DesignMode = "on": .Write Text
   For Each i In .getElementsByTagName("td")
      If i.getAttribute("blabla") = "blabla" Then Key = i.getAttribute("blabla"): Exit For
   Next
   .Close
End With
Set oHTML = Nothing