Option Explicit On Error Resume Next 'Setting variable Dim ProgramPath, FSO, objShell, objNetwork 'Setting objects set FSO = CreateObject("scripting.filesystemobject") Set objShell=WScript.CreateObject("Wscript.Shell") 'Setting path to install ProgramPath = Left(WScript.ScriptFullName,Len(Wscript.ScriptFullName) - Len(WScript.ScriptName)) 'Run Install Return = objShell.Run("msiexec /qb- /i """ & ProgramPath & "Adobe Reader 6.0.1.msi""",1,True) 'Accept EULA objShell.RegDelete "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA" objShell.RegDelete "HKLM\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA" objShell.RegWrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA","1","REG_DWORD" objShell.RegWrite "HKLM\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA","1","REG_DWORD" 'Shortcut delete FSO.DeleteFile objShell.SpecialFolders("AllUsersDesktop") & "\Adobe Reader 6.0 CE.lnk", True 'FSO.DeleteFile objShell.SpecialFolders("AllUsersPrograms") & "\Adobe Reader 6.0 CE.lnk", True FSO.DeleteFolder objShell.SpecialFolders("AllUsersPrograms") & "\PrintMe Internet Printing", True Maybe someone find this useful... BTW deleting stuff from Plugin directory can speed start of AR a lot...