fenetre dos

Salut,

Ah, donc il faut
ProgressBar
TextBox, ainsi
Timer (sans doute)
FormX
on met ces objets sur la form ou une existante...
------------
' boucle ou Do While de copie...
doevents
Text1 = mon_fichier
doevents
ProgressBar1.Value = X ' en fonction de la progression
' etc...
----
Nota bene, il est difficile de calculer pour un fichier le temps, pour la
barre de progression, il faudra étalonner avec des échantillons temps =
taille et vitesse + Xparams, donc on fait au pif pour amuser l'oeil, soit 0
au départ, maxi à la fin, et entre les deux, tu t'arranges pour que ça colle
un peu, pour ce faire tu peux utiliser un timer par exemple...

In fine, si tu ne sais pas, envois tout par ail, je te ferais :o)
@+, bye. Je.
-----------------


"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
CE053FEF-52FB-411F-8083-85D08F717E5F@microsoft.com...

Voila mon probleme est je pense bete pour vous mais bon ...

J'ai créer un programme d'installations automatique de logiciel en réseau
avec des cases a coché pour le choix des programmes. Quand je le lance
celui
ci ce ferme comme je le souhaites mais par contre il m'ouvre une fentre
dos
ou défile les installations.
Ce que je souhaites c'est faire disparaitre cette fenetre et la remplacer
par une fenetre windows qui me permetrrais de voir la progression de
l'installation des logiciels.
Pour l'instant je ne cherche pas compliqué je suis débutant juste qu'il
m'affiche le nom du programme et une barre de progression comprenant tous
les
programmes a installer
Merci d'avance de votre aide a tous.

je n arrive pas a te joindre par ta boite mail je te passe donc le script par
le forum
Si tu veut que je t envoie le fichier par mail donne moi une adresse et je
le ferais avec plaisir
merci pour ton aide

Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.createTextFile("c:tempinstall.bat", True)
If compagnie = "" Then
compagnie = "GROUPE MEUNIER"
End If
If nom_personne = "" Then
nom_personne = "Administrateur"
End If
a.writeline ("@echo off")
a.writeline ("")
a.writeline ("echo démarrage des installations")
a.writeline ("if not exist C:winnt goto suite_windows_installer")
a.writeline ("start /wait
L:installationWindows_Installer_2.0InstMsiW.exe /Q")
a.writeline (":suite_windows_installer")
If OfficeXPStandard.Value Then
a.writeline ("")
a.writeline ("echo installation de office XP standard")
a.writeline ("start /wait L:installationofficexpinstall.exe
TRANSFORMS=""L:installationofficexpofficesp3.MST"" COMPANYNAME=""" &
compagnie & """ USERNAME=""" & nom_personne & """ /qb-")
a.writeline ("copy ""L:installationraccourcisMicrosoft Word.lnk""
""c:Documents and settingsall usersbureauMicrosoft Word.lnk""")
a.writeline ("copy ""L:installationraccourcisMicrosoft
Excel.lnk"" ""c:Documents and settingsall usersbureauMicrosoft
Excel.lnk""")
a.writeline ("copy ""L:installationraccourcisMicrosoft
PowerPoint.lnk"" ""c:Documents and settingsall usersbureauMicrosoft
PowerPoint.lnk""")
a.writeline ("echo installation office XP standard terminée >>
c:tempinstallation.log")
End If
If Winzip8.Value Then
a.writeline ("")
a.writeline ("echo installation de winzip")
a.writeline ("xcopy /s /i L:installationwinzip ""c:program
fileswinzip""")
a.writeline ("start /wait c:progra~1winzipwinzip32.exe
/autoinstall")
a.writeline ("copy ""L:installationraccourcisWinZip.lnk""
""c:Documents and settingsall usersbureauWinZip.lnk""")
a.writeline ("echo installation winzip terminée >>
c:tempinstallation.log")
End If
If Acrobat6.Value Then
a.writeline ("")
a.writeline ("echo installation de acrobat reader 6")
a.writeline ("start L:Acrobat-ReaderVersion-6FRABIGsetup.exe /s
/v/qb-")
a.writeline ("L:installationwait.exe 150")
a.writeline ("echo installation acrobat reader 6 terminée >>
c:tempinstallation.log")
End If
If Reflection_13.Value Then
a.writeline ("")
a.writeline ("echo installation de reflection 9.0")
a.writeline ("start /wait msiexec /i
L:installationReflectionUD900ILC.msi
transforms=L:installationReflectionfra.mst /qn")
a.writeline ("L:installationwait.exe 100")
a.writeline ("copy ""L:installationreflectiongpaoSettings.r2w""
""c:program filesreflectionSettings.r2w""")
a.writeline ("copy ""L:installationraccourcisGPAO -
Reflection.lnk"" ""c:Documents and settingsall usersbureauGPAO -
Reflection.lnk""")
a.writeline ("echo installation reflection 9.0 terminée >>
c:tempinstallation.log")
End If
If reflection_1.Value Then
a.writeline ("")
a.writeline ("echo installation de reflection 9.0")
a.writeline ("start /wait msiexec /i
L:installationReflectionUD900ILC.msi
transforms=L:installationReflectionfra.mst /qn")
a.writeline ("L:installationwait.exe 100")
a.writeline ("copy
""L:installationReflectionGpaomeunierSettings.r2w"" ""c:program
filesreflectionSettings.r2w""")
a.writeline ("copy ""L:installationraccourcisGPAO -
Reflection.lnk"" ""c:Documents and settingsall usersbureauGPAO -
Reflection.lnk""")
a.writeline ("echo installation reflection 9.0 terminée >>
c:tempinstallation.log")
End If
If PCDuo8_5.Value Then
a.writeline ("")
a.writeline ("echo installation de PC Duo 8.50")
a.writeline ("start /wait L:Pc_DuoV8.50setup.exe -s")
a.writeline ("L:installationwait.exe 60")
a.writeline ("echo installation pc duo 8.50 terminée >>
c:tempinstallation.log")
End If
If Lotus6_51.Value Then
a.writeline ("")
a.writeline ("echo installation de Lotus notes 6.51")
a.writeline ("start /wait msiexec /i
L:notes_clientClient-651clientsW32IntelLotusNotes651fr.msi /qn")
a.writeline ("L:installationwait.exe 150")
a.writeline ("echo installation lotus notes 6.51 terminée >>
c:tempinstallation.log")
End If
If Voloview.Value Then
a.writeline ("")
a.writeline ("echo installation de VoloView")
a.writeline ("start /wait msiexec.exe /i
L:installationvolovoloviewexpress.msi ACAD_SILENT_LICENSE=YES /qb!")
a.writeline ("L:installationwait.exe 70")
a.writeline ("echo installation voloview terminée >>
c:tempinstallation.log")
End If
If IPASS Then
a.writeline ("")
a.writeline ("echo installation de Ipass")
a.writeline ("start /wait L:ipassOleane_iPC_v230_540.exe")
a.writeline ("L:installationwait.exe 70")
a.writeline ("echo installation Ipass terminée >>
c:tempinstallation.log")
End If
If Autovue Then
a.writeline ("")
a.writeline ("echo installation de Auto Vue")
a.writeline ("start /wait L:AutoVue_v16av32.exe")
a.writeline ("L:installationwait.exe 100")
a.writeline ("echo installation Auto Vue terminée >>
c:tempinstallation.log")
End If
If windows2000_patch4 Then
a.writeline ("")
a.writeline ("if not exist C:winnt goto suite_pack4_windows_2000")
a.writeline ("start /wait L:Pack Windows
2000win2ksp4w2ksp4_fr.exe /qb")
a.writeline (":suite_pack4_windows_2000")
a.writeline ("echo installation windows 2000 service pack 4 terminée

c:tempinstallation.log")

End If
If correctifs_windows_xp Then
a.writeline ("")
Dim nextLine, path As String
path = "L:CorrectifswinXpinstall2.bat"
Open path For Input As #1
Do Until EOF(1)
Line Input #1, nextLine
a.writeline (nextLine)
Loop
Close (1)
a.writeline ("shutdown -r -t 20")
End If
If correctifs_windows_2000 Then
a.writeline ("")
path = "L:Correctifswin2000win2000_correctifs.bat"
Open path For Input As #1
Do Until EOF(1)
Line Input #1, nextLine
a.writeline (nextLine)
Loop
Close (1)
End If
a.writeline ("")
a.writeline ("echo installations finies : veuillez relancer le pc")
a.writeline ("")
a.writeline ("pause")
a.Close
Shell "c:tempinstall.bat"
Unload Form1




End Sub



"LE TROLL" wrote:

Salut,

Ah, donc il faut
ProgressBar
TextBox, ainsi
Timer (sans doute)
FormX
on met ces objets sur la form ou une existante...
------------
' boucle ou Do While de copie...
doevents
Text1 = mon_fichier
doevents
ProgressBar1.Value = X ' en fonction de la progression
' etc...
----
Nota bene, il est difficile de calculer pour un fichier le temps, pour la
barre de progression, il faudra étalonner avec des échantillons temps =
taille et vitesse + Xparams, donc on fait au pif pour amuser l'oeil, soit 0
au départ, maxi à la fin, et entre les deux, tu t'arranges pour que ça colle
un peu, pour ce faire tu peux utiliser un timer par exemple...

In fine, si tu ne sais pas, envois tout par ail, je te ferais :o)
@+, bye. Je.
-----------------


"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
CE053FEF-52FB-411F-8083-85D08F717E5F@microsoft.com...
> Voila mon probleme est je pense bete pour vous mais bon ...
>
> J'ai créer un programme d'installations automatique de logiciel en réseau
> avec des cases a coché pour le choix des programmes. Quand je le lance
> celui
> ci ce ferme comme je le souhaites mais par contre il m'ouvre une fentre
> dos
> ou défile les installations.
> Ce que je souhaites c'est faire disparaitre cette fenetre et la remplacer
> par une fenetre windows qui me permetrrais de voir la progression de
> l'installation des logiciels.
> Pour l'instant je ne cherche pas compliqué je suis débutant juste qu'il
> m'affiche le nom du programme et une barre de progression comprenant tous
> les
> programmes a installer
> Merci d'avance de votre aide a tous.