Quote
/S Hide initialization dialog
/S/v/qn For Silent mode
/V paramaterse to MSIExec.exe
/UA<url to IntMSiA.exe>
/UW<url to IntMSiW.exe>
/UM<url to msi package>
I don't know what these all mean. Hopefulyl someone can expand on this.
Posted 26 October 2004 - 06:26 PM
Quote
Posted 08 November 2004 - 02:38 PM
Posted 08 November 2004 - 08:06 PM
lilweirddude, on Nov 8 2004, 03:37 PM, said:
Posted 11 November 2004 - 09:16 PM
Posted 11 November 2004 - 09:51 PM
durex, on Nov 11 2004, 09:16 PM, said:
Posted 12 November 2004 - 03:38 AM
Posted 25 November 2004 - 12:51 AM
Posted 26 November 2004 - 03:23 PM
Dim FSO, WshShell, AllDrives, CDROM, SYSD, APP, MsgBox
Set FSO = CreateObject("Scripting.FileSystemObject")
Set AllDrives = FSO.Drives
Set WshShell = WScript.CreateObject("WScript.Shell")
SYSD = WshShell.ExpandEnvironmentStrings("%Systemdrive%")
' Check for CDROM
For Each objDrive In fso.Drives
If objDrive.DriveType = "4" And objDrive.IsReady Then
If fso.FileExists(objDrive & "\WIN51") Then cdrom = objDrive
End If
Next
If Len(CDROM) = 0 Then
MsgBox "Error: CD-ROM not found!",vbCritical,"Diskeeper"
WScript.Quit
End if
APP = CDROM & "\Custom\Applications"
' Launch Silent Installer
WshShell.Run (APP & "\iTunes\setup.exe -s -f2" & SYSD & "\iTunes.log")
' Wait for Install Window to come to focus
Do until WshShell.AppActivate ("iTunes for Windows")
WScript.Sleep 2000
Loop
WScript.Sleep 500
' Hit N for Next
WshShell.SendKeys "N"
' Wait for Installation to complete
Do until FSO.FileExists(SYSD & "\iTunes.log")
WScript.Sleep 3000
Loop
WScript.Quit
Quote
Posted 26 November 2004 - 03:35 PM
Posted 26 November 2004 - 05:00 PM
Posted 26 November 2004 - 05:19 PM
durex, on Nov 27 2004, 04:30 AM, said:
Posted 27 November 2004 - 02:34 PM

Posted 27 November 2004 - 02:38 PM
Posted 27 November 2004 - 02:57 PM
Posted 02 December 2004 - 06:56 AM
Posted 02 December 2004 - 11:22 AM
Posted 02 December 2004 - 03:03 PM
Posted 03 December 2004 - 04:31 AM
Posted 07 December 2004 - 01:38 PM
' Automatic iTunes installation and configuration script.
Option Explicit
Dim WshShell, objFSO, SystemDrive, strMessage
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
SystemDrive = WshShell.ExpandEnvironmentStrings("%Systemdrive%")
' Executes the installtion process using the "Setup.iss" answer file.
WshShell.Run "iTunesSetup.exe -s", 1, False
' Displays a notice for 10 seconds for the end user's benefit.
strMessage = "Please ignore the iTunes Welcome window that will be displayed on your screen during the installation process." + (Chr(13)& Chr(13)) + "(The window will remain on your screen until the iTunes installation finishes.)"
WshShell.Popup strMessage, 10, "Please be patient...", 64
' Verifies that the installer is loaded (checks every two seconds).
While WshShell.AppActivate("InstallShield - iTunes") = FALSE
wscript.sleep 2000
Wend
WScript.Sleep 2000
'Brings the installer to the foreground (seems to need both activations to work correctly).
WshShell.AppActivate "InstallShield - iTunes"
WScript.Sleep 1000
WshShell.AppActivate "iTunes for Windows"
WScript.Sleep 1000
'Sends keystroke to initiate the installation.
WshShell.SendKeys "N"
' Waits for the installation process to complete by looking for the log file.
Do until objFSO.FileExists("setup.log")
WScript.Sleep 3000
Loop
' Renames the log file in the event that the software ever needs to be reinstalled.
If objFSO.FileExists ("setup.log") Then
If objFSO.FileExists ("LastSetup.log") Then
objFSO.DeleteFile "LastSetup.log", True
End if
objFSO.CopyFile "setup.log", "LastSetup.log", True
If objFSO.FileExists ("setup.log") Then
objFSO.DeleteFile "setup.log", True
End If
End If
' OPTIONAL CUSTOMIZATIONS
' Configures QuickTime preferences.
If objFSO.FileExists ("QuickTime.qtp") Then
objFSO.CopyFile "QuickTime.qtp", (SystemDrive & "\Documents and Settings\All Users\Application Data\Quicktime\QuickTime.qtp"), True
End If
If objFSO.FileExists (SystemDrive & "\Documents and Settings\All Users\Desktop\QuickTime Player.lnk") Then
objFSO.DeleteFile (SystemDrive & "\Documents and Settings\All Users\Desktop\QuickTime Player.lnk"), True
End If
WshShell.RegWrite "HKLM\SOFTWARE\Apple Computer, Inc.\QuickTime\ActiveX\QTTaskRunFlags", 2, "REG_DWORD"
' Uses TaskKill to remove the taskbar icon right away instead of waiting for a restart.
WshShell.Run "%COMSPEC% /C TASKKILL /F /IM qttask.exe", 1, False
Wscript.Quit