Adobe Flash Player - возможно ли автоматическое обновление без мусора?

'——————————————————————————————————————————————————————————————————————————————————
' Скачивание установщиков Adobe Flash Player с запуском установки при необходимости
' Условие: не используйте манипуляторы в процессе вывода окон инсталляторов
'——————————————————————————————————————————————————————————————————————————————————
Option Explicit
Dim oFSO, HTTP, oWSH, Path, Pfx, Exist, Name, Link, Size, Data, c, PID, A
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Set oWSH = CreateObject("WScript.Shell")
Path = oWSH.CurrentDirectory & "\"
For Each Pfx in Split("|\Current _ax|ActiveX\ _ppapi|\Pepper")
  Exist = 0: Name = "install_flash_player" & Split(Pfx, "|")(0) & ".exe"
  Link = "http://fpdownload.macromedia.com/pub/flashplayer/latest/help/" & Name
  With HTTP
    If oFSO.FileExists(Name) Then
      .Open "HEAD", Link, 0: .Send: Size = .GetResponseHeader("Content-Length"): .Abort
      If oFSO.GetFile(Name).Size = CLng(Size) Then Exist = 1
    End If
    If Exist = 0 Then
      .Open "GET", Link, 0: .Send
      .WaitForResponse 5, True: Data = .ResponseBody: .Abort
      With CreateObject("SAPI.SpFileStream")
        .Format.Type = 1: .Open Path & Name, 3, 1: .Write Data: .Close: Data = ""
      End With
    End If
  End With
  If Replace(oWSH.RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayer" &_
  Split(Pfx, "|")(1) & "Version"), ",", ".") = oFSO.GetFileVersion(Name) Then
    c = c + 1
  Else
    Set Exist = oWSH.Exec(Name)
    Do: A = oWSH.AppActivate(Exist.ProcessID)
      WSH.Sleep 100: n = n + 100: If n = 1000 Then Exit Do
    Loop Until A
    oWSH.SendKeys "{TAB} +{TAB} "
    WSH.Sleep 2000: Exist.Terminate
  End If
Next
If c = 3 Then MsgBox "Не требуется!" & vbCr & "Текущая версия — последняя!", 4160, " Установка Flash Player"
Set oFSO = Nothing: Set oWSH = Nothing: Set HTTP = Nothing

'——————————————————————————————————————————————————————————————————————————————————
' Скачивание установщиков Adobe Flash Player с запуском установки при необходимости
' Условие: не используйте манипуляторы в процессе вывода окон инсталляторов
'——————————————————————————————————————————————————————————————————————————————————
Option Explicit
Dim oFSO, HTTP, oWSH, Path, Pfx, Name, Exist, Link, Size, Data, c, PID, A, n
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Set oWSH = CreateObject("WScript.Shell")
Path = oWSH.CurrentDirectory & "\"
For Each Pfx in Split("|\Current _ax|ActiveX\ _ppapi|Pepper\")
  Name = "install_flash_player" & Split(Pfx, "|")(0) & ".exe": Exist = 0
  Link = "http://fpdownload.macromedia.com/pub/flashplayer/latest/help/" & Name
  With HTTP
    If oFSO.FileExists(Name) Then
      .Open "HEAD", Link, 0: .Send: Size = .GetResponseHeader("Content-Length"): .Abort
      If oFSO.GetFile(Name).Size = CLng(Size) Then Exist = 1
    End If
    If Exist = 0 Then
      .Open "GET", Link, 0: .Send
      .WaitForResponse 5, True: Data = .ResponseBody: .Abort
      With CreateObject("SAPI.SpFileStream")
        .Format.Type = 1: .Open Path & Name, 3, 1: .Write Data: .Close: Data = ""
      End With
    End If
  End With
  If Replace(oWSH.RegRead("HKLM\SOFTWARE\Macromedia\FlashPlayer" &_
  Split(Pfx, "|")(1) & "Version"), ",", ".") = oFSO.GetFileVersion(Name) Then
    c = c + 1
  Else
    Set Exist = oWSH.Exec(Name): n = 0
    Do: A = oWSH.AppActivate(Exist.ProcessID)
      WSH.Sleep 100: n = n + 100: If n = 1000 Then Exit Do
    Loop Until A
    oWSH.SendKeys "{TAB} +{TAB} "
    WSH.Sleep 2000: Exist.Terminate
  End If
Next
If c = 3 Then MsgBox "Не требуется!" & vbCr & "Текущая версия — последняя!", 4160, " Установка Flash Player"
Set oFSO = Nothing: Set oWSH = Nothing: Set HTTP = Nothing