need help with script (multiple vbs)

SCRIPT #1
 
'Remove Adobe Reader
'vbscript
On Error Resume Next
 
'**********************************************************************
const AppName = "Adobe Reader"
'**********************************************************************
 
const HKEY_LOCAL_MACHINE = &H80000002
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'First, find the GUID 
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ 
    strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
    InstalledAppName = ""
    InstalledAppName = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\DisplayName")
 
    If InStr(InstalledAppName, AppName) > 0 then
	RawGUID = ""
	GUID = ""
        RawGUID = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\UninstallString")
        GUID = Mid(RawGUID, instr(RawGUID, "{"), 38)
	If GUID<>"" then
	    ' Found matching GUID, removing...
	    	    WshShell.Run "msiexec /x " & GUID & " /q"
	    Exit For
	End If
    End If
Next 
 
 
 
 
SCRIPT #2
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "msiexec.exe /i AcroRead.msi TRANSFORMS=""AcroRead.mst"" /qn"
 
 
 
 
SCRIPT #3
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\Program Files\Adobe\Reader 9.0\Reader\plug_ins\ia32.api" , "C:\Program Files\Adobe\Reader 9.0\Reader\plug_ins\ia32.txt"

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

const AppName = "Adobe Reader"
const HKEY_LOCAL_MACHINE = &H80000002
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'First, find the GUID 
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
    InstalledAppName = ""
    On Error Resume Next
    InstalledAppName = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\DisplayName")
 
    If Err.Number = 0 Then
      wscript.echo InstalledAppName 
      If Left(Trim(InstalledAppName), Len(AppName)) = AppName Then
        RawGUID = ""
        GUID = ""
        RawGUID = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\UninstallString")
        GUID = Mid(RawGUID, instr(RawGUID, "{"), 38)
        If GUID<>"" then
            ' Found matching GUID, removing...
                    WshShell.Run "msiexec /x " & GUID & " /q", 1, True
	'Now that the uninstall is performed, launch the update:
                   WshShell.Run "msiexec.exe /i AcroRead.msi TRANSFORMS=""AcroRead.mst"" /qn"
                   Set WshShell = Nothing
                   Set objFSO = CreateObject("Scripting.FileSystemObject")
                   Const APIFile = "C:\Program Files\Adobe\Reader 9.0\Reader\plug_ins\ia32.api"
                   If objFSO.FileExists (APIFile) Then 
                     objFSO.MoveFile  , "C:\Program Files\Adobe\Reader 9.0\Reader\plug_ins\ia32.txt"
                   Else
                     'What to do when the file is not found?
                   End If
                   Set objFSO = Nothing
	Exit For
        Else
          'Report on problem?
        End If
    End If
  End If
  On Error Goto 0
Next 

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

const AppName = "Adobe Reader"
const HKEY_LOCAL_MACHINE = &H80000002
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'First, find the GUID 
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
    InstalledAppName = ""
    On Error Resume Next
    InstalledAppName = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\DisplayName")
 
    If Err.Number = 0 Then
      If Left(Trim(InstalledAppName), Len(AppName)) = AppName Then
        RawGUID = ""
        GUID = ""
        RawGUID = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\UninstallString")
        GUID = Mid(RawGUID, instr(RawGUID, "{"), 38)
        If GUID<>"" then
            ' Found matching GUID, removing...
                    WshShell.Run "msiexec /x " & GUID & " /q", 1, True
	'Now that the uninstall is performed, launch the update:
                   WshShell.Run "msiexec.exe /i AcroRead.msi TRANSFORMS=""AcroRead.mst"" /qn"
                   Set WshShell = Nothing
                   Set objFSO = CreateObject("Scripting.FileSystemObject")
                   Const APIFile = "C:\Program Files\Adobe\Reader 9.0\Reader\plug_ins\ia32.api"
                   If objFSO.FileExists (APIFile) Then 
                     objFSO.MoveFile  , "C:\Program Files\Adobe\Reader 9.0\Reader\plug_ins\ia32.txt"
                   Else
                     'What to do when the file is not found?
                   End If
                   Set objFSO = Nothing
	Exit For
        Else
          'Report on problem?
        End If
    End If
  End If
  On Error Goto 0
Next 
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42: