1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| sMessage = "Veuillez Patienter l'installation est en cours ......"
Wait = 5
Set objShell = CreateObject("wscript.Shell")
Titre1 = "Installation de Adobe Reader"
objShell.Popup sMessage,Wait,Titre1,0+64
sCommandLine = "cmd /c ping www.google.com"
returnCode = objshell.run(sCommandLine,0,true)
Titre2 = "Installation de Winrar"
objShell.Popup sMessage,Wait,Titre2,0+64
command2 = "cmd /c ping www.yahoo.com"
returnCode = objshell.run(Command2,0,true)
Titre3 = "Installation de Microsoft Office"
objShell.Popup sMessage,Wait,Titre3,0+64
command3 = "cmd /c ping www.orange.fr"
returnCode = objshell.run(Command3,0,true)
objShell.Popup "Installation des logiciels est Terminé !",Wait,"Installation Terminé",0+64 |
Partager