[VBS] retour d'information sur variable d'un run !!!

retour d'information sur variable d'un run !!! [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 31-08-2013 à 17:53:53    

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 :
  1. ' Fichier TEST
  2. msgbox("Debut..." )
  3. Set WshShell = WScript.CreateObject("WScript.Shell" )
  4. Modul01 = "01_MsBox_01_test.vbs" 
  5. return=wshshell.run(Modul01,true)
  6. Wscript.Echo ("Msg1 dans Run => " & vbCrLf & "CheminDuScript : " & CheminDuScript)
  7. Wscript.Echo ("Msg2 dans Run => " & vbCrLf & "NomDuScript : " & NomDuScript)
  8. msgbox("Fin..." )


 
:sweat: mon 1er souci c'est que dans mon 1er script : il n'attend pas que le run se termine :??:  
:sweat: 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 :
  1. '
  2. Dim CheminDuScript, NomDuScript, fso1, fso2, ofso1, ofso2
  3. ' Affiche le nom et chemin complet du script en cours d'exécution :
  4. Set fso1 = CreateObject("Scripting.FileSystemObject" )
  5. CheminDuScript = fso1.GetParentFolderName(wScript.ScriptFullName)
  6. ' Affiche le nom du script en cours d'exécution :
  7. Set fso2 = CreateObject("Scripting.FileSystemObject" )
  8. NomDuScript = fso2.GetParentFolderName(wScript.ScriptName)
  9. Wscript.Echo ("Msg1 dans Test => " & vbCrLf & "CheminDuScript : " & CheminDuScript)
  10. Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
  11. Wscript.Echo ("Msg2 dans Test => " & vbCrLf & "NomDuScript : " & NomDuScript)
  12. 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

Reply

Marsh Posté le 31-08-2013 à 17:53:53   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed