Set WSHShell = CreateObject("WScript.Shell")
Set sharedFolder = "\\10.1.2.0\sharefolder"
Dim fso,serverPath
Set fso = CreateObject("Scripting.FileSystemObject")
Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tmpPath = fso.GetSpecialFolder(TemporaryFolder)
'Check Adobe Acrobat Reader
AcrobatRegPath = "HKLM\SOFTWARE\Adobe\Acrobat Reader\9.0\Installer\VersionMax"
If KeyExists(AcrobatRegPath) Then
AcrobatRegValue = WSHShell.RegRead (AcrobatRegPath)
If AcrobatRegValue<"589826" Then
WScript.Echo "Need to install Adobe Acrobat Reader updates"
serverPath = sharedFolder+"\acrobat\*.exe"
fso.CopyFile serverPath,tmpPath,True
tmpExec = tmpPath+"\msiexec.exe /qb /i AcroRead.msi"
WSHShell.run tmpExec
End If
End If
'Disable Javascript in Acrobat Reader
AcrobatRegPath = "HKCU\SOFTWARE\Adobe\Adobe Acrobat\9.0\JSPrefs"
If Not KeyExists(AcrobatRegPath) Then
WSHShell.regWrite "HKCU\SOFTWARE\Adobe\Acrobat Reader\9.0\JSPrefs\bEnableJS","0","REG_DWORD"
WSHShell.regWrite "HKCU\SOFTWARE\Adobe\Acrobat Reader\9.0\JSPrefs\bConsoleOpen","0","REG_DWORD"
WSHShell.regWrite "HKCU\SOFTWARE\Adobe\Acrobat Reader\9.0\JSPrefs\bEnableGlobalSecurity","1","REG_DWORD"
WSHShell.regWrite "HKCU\SOFTWARE\Adobe\Acrobat Reader\9.0\JSPrefs\bEnableMenuItems","0","REG_DWORD"
End If
'Check Adobe Flash
FlashRegPath = "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{D27CDB6E-AE6D-11cf-96B8-444553540000}\Version"
If KeyExists(FlashRegPath) Then
FlashRegValue = WSHShell.RegRead (FlashRegPath)
If FlashRegValue<"10.0.32.18" Then
WScript.Echo "Need to install Adobe Flash updates"
Const serverPath1 = sharedFolder+"\install_flash_player.exe"
Const serverPath2 = sharedFolder+"\install_flash_player_ax.exe"
fso.CopyFile serverPath1,tmpPath,True
fso.CopyFile serverPath2,tmpPath,True
tmpExec1 = tmpPath+"\install_flash_player.exe /S"
tmpExec2 = tmpPath+"\install_flash_player_ax.exe /S"
WSHShell.run tmpExec1
WSHShell.run tmpExec2
End If
End If
'Check Java Runtime
JavaRegPath = "HKLM\SOFTWARE\Sun Microsystems\JavaDB\CurrentVersion\Version"
If KeyExists(JavaRegPath) Then
JavaRegValue = WSHShell.RegRead (JavaRegPath)
If JavaRegValue<"10.4.2.1" Then
WScript.Echo "Need to install Java Runtime updates"
serverPath = sharedFolder+"\jre-6u16-windows-i586-s.exe"
fso.CopyFile serverPath,tmpPath,True
tmpExec = tmpPath+"\jre-6u16-windows-i586-s.exe /s ADDLOCAL=ALL IEXPLORER=1 MOZILLA=1 REBOOT=Suppress"
WSHShell.run tmpExec
End If
End If
'Check Quicktime
QuicktimeRegPath = "HKLM\SOFTWARE\Apple Computer, Inc.\QuickTime\Version"
If KeyExists(QuicktimeRegPath) Then
QuicktimeRegValue = WSHShell.RegRead (QuicktimeRegPath)
If QuicktimeRegValue<"124026880" Then
WScript.Echo "Need to install Quicktime updates"
serverPath = sharedFolder+"\QuickTimeInstaller.exe"
fso.CopyFile serverPath,tmpPath,True
tmpExec = tmpPath+"\QuickTimeInstaller.exe /quiet"
WSHShell.run tmpExec
End If
End If
Function KeyExists(key)
Dim objShell
On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
objShell.RegRead (key)
Set objShell = Nothing
If Err = 0 Then KeyExists = True
End Function