'-------------------------------------------
'        Adobe CS3 Installer Script
'	          deKay
'           v1.09 07 Aug 2009
'-------------------------------------------

On Error Resume Next
Dim fso, WshShell

Set fso = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")
WshShell.LogEvent 4, "CS3 Install Script Started"

If Not fso.FileExists("C:\Program Files\Adobe\Adobe Photoshop CS3\Photoshop.exe") Then
  WshShell.LogEvent 4, "Attempting Install of CS3..." & vbCrLf & "Install Script v1.09"
  Result = WshShell.Run ("\\[PATH TO SETUP]\AdobeCS3\Setup.exe --mode=silent --deploymentFile=\\[PATH TO DEPLOYMENT]\AdobeCS3\deployment\install.xml --skipProcessCheck=1",,True)

  Select Case Result
    Case 0 
    InstallState = "Success!" 
    Case 7 
    InstallState = "Install Failed!" 
    Case Else 
    InstallState = "Unknown Error" 
  End Select 

WshShell.LogEvent 0, "CS3 Install Script Exit Code: " & Return & vbCrLf & "Result: " & InstallState

Else
  WshShell.LogEvent 4, "CS3 Appears to be installed already - skipping"
End If

If err.number <> 0 Then 
  WshShell.LogEvent 2, Err.Number & vbCrLf & Err.Description
Else 
  WshShell.LogEvent 0, "CS3 Install Script Completed"
End If

WScript.Quit