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 "

Windows XP pro SP2

" 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