Dim VarShell, VarIE
Set VarShell = CreateObject("WScript.Shell")
Set VarIE = CreateObject("InternetExplorer.Application")
With VarIE
.resizable = 0
.menubar = 0
.toolbar = 0
.statusBar = 0
.Visible = 1
.FullScreen = 1
End With
VarIE.navigate "about:blank"
VarIE.document.write "
Personnalisation de Windows XP"
VarIE.document.write ""
VarIE.document.write ""
VarIE.document.write "
* Ajout de l'utilisateur 'Mon Compte'
"
VarShell.Run ("net user ""Mon Compte"" """" /add"), 0, True
VarShell.Run ("net localgroup Administrateurs ""Mon Compte"" /add"), 0, True
VarShell.Run ("net accounts /maxpwage:unlimited"), 0, True
VarIE.document.write "
* Installation des programmes additionnels
"
VarShell.Run ("%systemdrive%\Install\Acrobat\setup.exe"), 0, True
VarIE.document.write "--> Acrobat Reader 5 installé
"
VarShell.Run ("%systemdrive%\Install\Avg7\avg70free_300a419.exe /HIDE /DONT_START_APPS /NO_WELCOME /NO_AVGW_STARTUP"), 0, True
VarIE.document.write "--> AVG 7 installé
"
VarShell.Run ("%systemdrive%\Install\Firefox\Firefox-1.0-FR.exe"), 0, True
VarIE.document.write "--> Firefox 1.0 installé
"
VarShell.Run ("%systemdrive%\Install\QTime\quicktimealt139.exe /VERYSILENT /SP-"), 0, True
VarIE.document.write "--> Quick Time Alternative 1.39 installé
"
VarShell.Run ("%systemdrive%\Install\Flashget\fgf165.exe /S"), 0, True
VarIE.document.write "--> FlashGet 1.65 installé
"
VarShell.Run ("%systemdrive%\Install\Thunderbird\Thunderbird-1.0-FR.exe"), 0, True
VarIE.document.write "--> Thunderbird 1.0 installé
"
VarIE.document.write "
* Réglages du régistre
"
VarShell.Run ("REGEDIT /S %systemdrive%\Install\regtweaks.reg"), 0, True
VarIE.document.write "
* Suppression des fichiers temporaires
"
VarShell.Run ("%comspec% /C rd /s /q %systemdrive%\install"), 0, True
VarIE.document.write "
Personnalisation de Windows XP achevée.
"
VarIE.document.write ""
VarIE.quit