Afficher un message pendant le déroulement d'un script VBS
7 réponses
teddy
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur
pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et
des réaménagements de dossiers et d'arborescences tous les jours.
Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il
faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la
fin du traitement.
Merci pour votre avis.
Ted
A quoi ça sert que je (et JCBzossi) me décarcasse ?
Voir : http://www.mclaveau.com/batch/util.html#307 Au départ, c'est prévu pour des batchs, mais avec un petit RUN de VBS ça fonctionnera très bien.
@-salutations
Michel Claveau
jbongran
" teddy" a écrit dans le message de news:uu0%23%
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Et pourquoi ne pas utiliser internet explorer comme interface graphique ? Le principe: http://bellamyjc.org/fr/vbsavance.html Une barre de progression très bien (comme à l'habitude de maitre JCB) réussie: http://bellamyjc.org/fr/vbsdownload.html#deluninstall Ps: ne pas oublier les trémolos dans la voix en pronnonçant 'maitre' JCB ;-)
" teddy" <teddy@orange.fr> a écrit dans le message de
news:uu0%23%23xEOIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur
pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et
des réaménagements de dossiers et d'arborescences tous les jours.
Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais
il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant
la fin du traitement.
Merci pour votre avis.
Ted
Et pourquoi ne pas utiliser internet explorer comme interface graphique ?
Le principe:
http://bellamyjc.org/fr/vbsavance.html
Une barre de progression très bien (comme à l'habitude de maitre JCB)
réussie:
http://bellamyjc.org/fr/vbsdownload.html#deluninstall
Ps: ne pas oublier les trémolos dans la voix en pronnonçant 'maitre' JCB ;-)
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Et pourquoi ne pas utiliser internet explorer comme interface graphique ? Le principe: http://bellamyjc.org/fr/vbsavance.html Une barre de progression très bien (comme à l'habitude de maitre JCB) réussie: http://bellamyjc.org/fr/vbsdownload.html#deluninstall Ps: ne pas oublier les trémolos dans la voix en pronnonçant 'maitre' JCB ;-)
teddy
Merci à tous pour vos réponses. Je vais voir quel serait le moyen le + adapté à mon problème. Ted
" teddy" a écrit dans le message de news: uu0%23%
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Merci à tous pour vos réponses.
Je vais voir quel serait le moyen le + adapté à mon problème.
Ted
" teddy" <teddy@orange.fr> a écrit dans le message de news:
uu0%23%23xEOIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur
pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et
des réaménagements de dossiers et d'arborescences tous les jours.
Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais
il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant
la fin du traitement.
Merci pour votre avis.
Ted
Merci à tous pour vos réponses. Je vais voir quel serait le moyen le + adapté à mon problème. Ted
" teddy" a écrit dans le message de news: uu0%23%
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Michel_D
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Voici ma contribution à savoir lancer un script qui affiche ton message : Le script qui affiche le message nommé "Affiche.vbs"
Dim oShell Set oShell = CreateObject("WScript.Shell") oShell.Popup "Ton message",30 Set oShell=Nothing WScript.Quit
Et ce qui suit (dans ton script principal) pour appeler le script ci-dessus :
Dim oShell, oExec, sK, ScriptPath Set oShell = CreateObject("WScript.Shell") sK =WScript.ScriptFullName ScriptPath=Left(sK,InStrRev(sK,"")) Set oExec =oShell.Exec("WScript " & ScriptPath & "Affiche.vbs")
WScript.Sleep 9000 ' à remplacer par les traitements souhaités
oExec.Terminate Set oShell=Nothing Set oExec=Nothing WScript.Quit
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur
pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et
des réaménagements de dossiers et d'arborescences tous les jours.
Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il
faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la
fin du traitement.
Merci pour votre avis.
Ted
Voici ma contribution à savoir lancer un script qui affiche ton message :
Le script qui affiche le message nommé "Affiche.vbs"
Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Popup "Ton message",30
Set oShell=Nothing
WScript.Quit
Et ce qui suit (dans ton script principal) pour appeler le script ci-dessus :
Dim oShell, oExec, sK, ScriptPath
Set oShell = CreateObject("WScript.Shell")
sK =WScript.ScriptFullName
ScriptPath=Left(sK,InStrRev(sK,""))
Set oExec =oShell.Exec("WScript " & ScriptPath & "Affiche.vbs")
WScript.Sleep 9000 ' à remplacer par les traitements souhaités
oExec.Terminate
Set oShell=Nothing
Set oExec=Nothing
WScript.Quit
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Voici ma contribution à savoir lancer un script qui affiche ton message : Le script qui affiche le message nommé "Affiche.vbs"
Dim oShell Set oShell = CreateObject("WScript.Shell") oShell.Popup "Ton message",30 Set oShell=Nothing WScript.Quit
Et ce qui suit (dans ton script principal) pour appeler le script ci-dessus :
Dim oShell, oExec, sK, ScriptPath Set oShell = CreateObject("WScript.Shell") sK =WScript.ScriptFullName ScriptPath=Left(sK,InStrRev(sK,"")) Set oExec =oShell.Exec("WScript " & ScriptPath & "Affiche.vbs")
WScript.Sleep 9000 ' à remplacer par les traitements souhaités
oExec.Terminate Set oShell=Nothing Set oExec=Nothing WScript.Quit
Gilles LAURENT [MVP]
"Michel_D" a écrit dans le message de news:
Bonsoir,
| Voici ma contribution à savoir lancer un script qui affiche ton | message :
Très bonne idée ;-) Une petite optimisation toutefois (un seul script)
--- Coupez ici : Processing.vbs --- Set oSh=CreateObject("WScript.Shell") If WScript.Arguments.Count = 1 Then If WScript.Arguments(0) = "popup" Then While True oSh.Popup "Processing ... Please wait !" Wend End If End If ' ------------ Main ------------ Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup") WScript.Sleep (5000) ' traitement oExec.Terminate --- Coupez ici : Processing.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
"Michel_D" <Michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message
de
news:eRRJ7rZOIHA.2268@TK2MSFTNGP02.phx.gbl
Bonsoir,
| Voici ma contribution à savoir lancer un script qui affiche ton
| message :
Très bonne idée ;-)
Une petite optimisation toutefois (un seul script)
--- Coupez ici : Processing.vbs ---
Set oSh=CreateObject("WScript.Shell")
If WScript.Arguments.Count = 1 Then
If WScript.Arguments(0) = "popup" Then
While True
oSh.Popup "Processing ... Please wait !"
Wend
End If
End If
' ------------ Main ------------
Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup")
WScript.Sleep (5000) ' traitement
oExec.Terminate
--- Coupez ici : Processing.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Voici ma contribution à savoir lancer un script qui affiche ton | message :
Très bonne idée ;-) Une petite optimisation toutefois (un seul script)
--- Coupez ici : Processing.vbs --- Set oSh=CreateObject("WScript.Shell") If WScript.Arguments.Count = 1 Then If WScript.Arguments(0) = "popup" Then While True oSh.Popup "Processing ... Please wait !" Wend End If End If ' ------------ Main ------------ Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup") WScript.Sleep (5000) ' traitement oExec.Terminate --- Coupez ici : Processing.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
teddy
L'idée est bonne, je prends ! Merci encore. Ted
"Michel_D" a écrit dans le message de news:
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Voici ma contribution à savoir lancer un script qui affiche ton message : Le script qui affiche le message nommé "Affiche.vbs"
Dim oShell Set oShell = CreateObject("WScript.Shell") oShell.Popup "Ton message",30 Set oShell=Nothing WScript.Quit
Et ce qui suit (dans ton script principal) pour appeler le script ci-dessus :
Dim oShell, oExec, sK, ScriptPath Set oShell = CreateObject("WScript.Shell") sK =WScript.ScriptFullName ScriptPath=Left(sK,InStrRev(sK,"")) Set oExec =oShell.Exec("WScript " & ScriptPath & "Affiche.vbs")
WScript.Sleep 9000 ' à remplacer par les traitements souhaités
oExec.Terminate Set oShell=Nothing Set oExec=Nothing WScript.Quit
L'idée est bonne, je prends !
Merci encore.
Ted
"Michel_D" <Michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: eRRJ7rZOIHA.2268@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur
pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et
des réaménagements de dossiers et d'arborescences tous les jours.
Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais
il faut le valider pour poursuivre puis attendre un autre MsgBox
annonçant la fin du traitement.
Merci pour votre avis.
Ted
Voici ma contribution à savoir lancer un script qui affiche ton message :
Le script qui affiche le message nommé "Affiche.vbs"
Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Popup "Ton message",30
Set oShell=Nothing
WScript.Quit
Et ce qui suit (dans ton script principal) pour appeler le script
ci-dessus :
Dim oShell, oExec, sK, ScriptPath
Set oShell = CreateObject("WScript.Shell")
sK =WScript.ScriptFullName
ScriptPath=Left(sK,InStrRev(sK,""))
Set oExec =oShell.Exec("WScript " & ScriptPath & "Affiche.vbs")
WScript.Sleep 9000 ' à remplacer par les traitements souhaités
oExec.Terminate
Set oShell=Nothing
Set oExec=Nothing
WScript.Quit
Je cherche un moyen d'afficher un message d'attente pour l'utilisateur pendant l'exécution d'un script VBS chargé d'effectuer des sauvegardes et des réaménagements de dossiers et d'arborescences tous les jours. Provisoirement, j'ai mis un MsgBox au départ qui demande d'attendre mais il faut le valider pour poursuivre puis attendre un autre MsgBox annonçant la fin du traitement. Merci pour votre avis. Ted
Voici ma contribution à savoir lancer un script qui affiche ton message : Le script qui affiche le message nommé "Affiche.vbs"
Dim oShell Set oShell = CreateObject("WScript.Shell") oShell.Popup "Ton message",30 Set oShell=Nothing WScript.Quit
Et ce qui suit (dans ton script principal) pour appeler le script ci-dessus :
Dim oShell, oExec, sK, ScriptPath Set oShell = CreateObject("WScript.Shell") sK =WScript.ScriptFullName ScriptPath=Left(sK,InStrRev(sK,"")) Set oExec =oShell.Exec("WScript " & ScriptPath & "Affiche.vbs")
WScript.Sleep 9000 ' à remplacer par les traitements souhaités
oExec.Terminate Set oShell=Nothing Set oExec=Nothing WScript.Quit
teddy
Je crois que c'est la bonne solution. Merci encore à tous pour votre contribution. Ted
"Gilles LAURENT [MVP]" a écrit dans le message de news: %
"Michel_D" a écrit dans le message de news:
Bonsoir,
| Voici ma contribution à savoir lancer un script qui affiche ton | message :
Très bonne idée ;-) Une petite optimisation toutefois (un seul script)
--- Coupez ici : Processing.vbs --- Set oSh=CreateObject("WScript.Shell") If WScript.Arguments.Count = 1 Then If WScript.Arguments(0) = "popup" Then While True oSh.Popup "Processing ... Please wait !" Wend End If End If ' ------------ Main ------------ Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup") WScript.Sleep (5000) ' traitement oExec.Terminate --- Coupez ici : Processing.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
Je crois que c'est la bonne solution.
Merci encore à tous pour votre contribution.
Ted
"Gilles LAURENT [MVP]" <glsft@free.fr> a écrit dans le message de news:
%239uJHBcOIHA.1184@TK2MSFTNGP04.phx.gbl...
"Michel_D" <Michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message
de
news:eRRJ7rZOIHA.2268@TK2MSFTNGP02.phx.gbl
Bonsoir,
| Voici ma contribution à savoir lancer un script qui affiche ton
| message :
Très bonne idée ;-)
Une petite optimisation toutefois (un seul script)
--- Coupez ici : Processing.vbs ---
Set oSh=CreateObject("WScript.Shell")
If WScript.Arguments.Count = 1 Then
If WScript.Arguments(0) = "popup" Then
While True
oSh.Popup "Processing ... Please wait !"
Wend
End If
End If
' ------------ Main ------------
Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup")
WScript.Sleep (5000) ' traitement
oExec.Terminate
--- Coupez ici : Processing.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Je crois que c'est la bonne solution. Merci encore à tous pour votre contribution. Ted
"Gilles LAURENT [MVP]" a écrit dans le message de news: %
"Michel_D" a écrit dans le message de news:
Bonsoir,
| Voici ma contribution à savoir lancer un script qui affiche ton | message :
Très bonne idée ;-) Une petite optimisation toutefois (un seul script)
--- Coupez ici : Processing.vbs --- Set oSh=CreateObject("WScript.Shell") If WScript.Arguments.Count = 1 Then If WScript.Arguments(0) = "popup" Then While True oSh.Popup "Processing ... Please wait !" Wend End If End If ' ------------ Main ------------ Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup") WScript.Sleep (5000) ' traitement oExec.Terminate --- Coupez ici : Processing.vbs ---
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
