Bonjour,
J'ai un PB de retour d'information sur un script VBS et d'ordre de lancement.
PS : pour information, je suis débutant, se scripte et pour un projet personnel et à ma curiosité
Voici mon Script à lancer
Code :
- ' Fichier TEST
- msgbox("Debut..." )
- Set WshShell = WScript.CreateObject("WScript.Shell" )
- Modul01 = "01_MsBox_01_test.vbs"
- return=wshshell.run(Modul01,true)
- Wscript.Echo ("Msg1 dans Run => " & vbCrLf & "CheminDuScript : " & CheminDuScript)
- Wscript.Echo ("Msg2 dans Run => " & vbCrLf & "NomDuScript : " & NomDuScript)
- msgbox("Fin..." )
|
mon 1er souci c'est que dans mon 1er script : il n'attend pas que le run se termine 
Mon second probleme dans ce script , aucunne variable n'est remonté dans ce premier script
Le Script qui est lancé par le premier via un RUN
Code :
- '
- Dim CheminDuScript, NomDuScript, fso1, fso2, ofso1, ofso2
- ' Affiche le nom et chemin complet du script en cours d'exécution :
- Set fso1 = CreateObject("Scripting.FileSystemObject" )
- CheminDuScript = fso1.GetParentFolderName(wScript.ScriptFullName)
- ' Affiche le nom du script en cours d'exécution :
- Set fso2 = CreateObject("Scripting.FileSystemObject" )
- NomDuScript = fso2.GetParentFolderName(wScript.ScriptName)
- Wscript.Echo ("Msg1 dans Test => " & vbCrLf & "CheminDuScript : " & CheminDuScript)
- Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
- Wscript.Echo ("Msg2 dans Test => " & vbCrLf & "NomDuScript : " & NomDuScript)
- Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
|
le problème dans se second script , mais non important car c'est un fichier test pour mon autoformation : la seconde variable ne s'affiche pas
merci de votre Aide
