Deployment script not installing 10.1.53.64

Question

Hi,
I'm trying to script at startup a silent installation for Adobe Flash Player ActiveX 10.1.53.64. The script manages to successfully uninstall the older version, but then when it comes time to install the new version, it throws an error in the log that says:
"MessageBox: 12582960,"The version of Adobe® Flash® Player ActiveX that you are trying to install is not the most current version.
Please visit http://www.adobe.com/go/getflashplayer to obtain the latest, most secure version."
I'm pretty sure 10.1.53.64 is the latest version, if i'm not mistaken. If i run the installer manually, it gives me no problems and installs fine. If i run the vbscript manually (as in not at startup) it installs fine. But when i run it via script at startup, it gives this error. Anyone have this issue or know what could be causing it?
Thanks

Answer 1

Anyone got any tips? Advice, insults, anything? Here is the script, if it makes it easier:
========================================================================================== =========
Option Explicit
On Error Resume Next
Dim Shell,Fso,Wn,All_Users,User_Profile,Win_Dir,computer_name,all_usersprofile,system_drive,p rograms,Script_Path, oEnv
Set Shell = WScript.CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Wn = Wscript.CreateObject("Wscript.Network")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
'Returns C:\Documents and Settings\All Users
All_Users = ucase(Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%"))
'Returns C:\Documents and Settings\%Username%
User_Profile = ucase(Shell.ExpandEnvironmentStrings("%USERPROFILE%"))
'Returns C:\Windows
Win_Dir = ucase(Shell.ExpandEnvironmentStrings("%WINDIR%"))
'returns computername
computer_name = ucase(Shell.ExpandEnvironmentStrings("%COMPUTERNAME%"))
'returns c:\documents and settings\
all_usersprofile = ucase(Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%"))
'returns C:\
system_drive = ucase(Shell.ExpandEnvironmentStrings("%SYSTEMDRIVE%"))
'returns c:\program files
programs = ucase(Shell.ExpandEnvironmentStrings("%PROGRAMFILES%"))
'Define E Drive
Script_Path = "\\networklocation"
'Start of process
Dim cur_ver
cur_ver = Shell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayer\CurrentVersion")
If (cur_ver <> "10,1,53,64") Then
  Fso.CopyFolder Script_Path & "\flashv10","C:\windows\temp\",True
  'Uninstall all Flash versions
  Shell.run Win_Dir & "\temp\flashv10\uninstall_flash_player.exe /s",1,True
  'Install Flash 10.1.53.64
  Shell.run Win_Dir & "\temp\flashv10\install_flash_player_10_active_x.msi /qn",1,True
  'Disable autoupdates.
  Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayer\AutoUpdateTest","","REG_SZ" ' Dont update flash automatically.
  Fso.CopyFile Win_Dir & "\flashv10\mms.cfg",Win_Dir & "\SYSTEM32\Macromed\Flash\",True
End If
========================================================================================== ============