Fill out the redistribution app for Adobe Air then download the installer files. The below will update Adobe Air to 1.5.2.8870 if it exists on the workstation.


Dim WshShell, AirVer
Set WshShell = WScript.CreateObject("WScript.Shell")

AirVer = WshShell.RegRead ("HKLM\SOFTWARE\Classes\Installer\Products\1F9ACB2AC6655084791DF7CD39837632\Version")

If AirVer = 17104898 then

Else
WshShell.Run "C:\Pathtoinstaller\Installer.exe -silent"
End If
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0

<ALWAYS use 'Option Explicit'!>
Dim WshShell, AirVer
Set WshShell = WScript.CreateObject("WScript.Shell")
<Error, if unable to create object>

AirVer = WshShell.RegRead ("HKLM\SOFTWARE\Classes\Installer\Products\1F9ACB2AC6655084791DF7CD39837632\Version")
<Error, if key doesn't exist>

If AirVer = 17104898 then
Else
WshShell.Run "C:\Pathtoinstaller\Installer.exe -silent"
<Error, if execution failed>
<No check for installation success>
End If

Other than those problems, great script... :)
Answered 08/28/2009 by: VBScab
Red Belt

Please log in to comment
Answer this question or Comment on this question for clarity