éxecution de commande MS-dos dans un Script VBS

Salut,

J'ai un problème avec un script .vbs que je n'arrive pas a faire fonctionner...

Le script doit remplacer un .bat

Dans ce point bat on trouve trois commandes :

cd C:\Program Files\Microsoft Office\
cscript ospp.vbs /sethst:sn.fr
cscript ospp.vbs /act

Dans mon .vbs je n'arrive pas en rentrer dans le répertoire, y rester et exécuter les deux autres commandes cscript ospp.vbs /sethst:sn.fr et cscript ospp.vbs /act.

:bug:

Code:

---

1 2 3 4 5 6

Set Shell = Wscript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject")   objFSO.GetFolder("C:\Program Files\Microsoft Office\")   Shell.run "cd ""C:\Program Files\Microsoft Office\"" & cscript ospp.vbs /sethst:sn.fr & cscript ospp.vbs /act"

---

Merci d'avance pour votre aide.

Comme ça.

Code:

---

1 2 3 4 5

set wshshell=createobject("wscript.shell") wshshell.currentdirectory="C:\Program Files\Microsoft Office\" wshshell.run "cscript //nologo ospp.vbs /sethst:sn.fr",,true wshshell.run "cscript //nologo ospp.vbs /act",,true

---

:salut:
Vous pouvez aussi utiliser une construction cumulatif de ligne de commande dans ce genre de problème dans le cas ou la commande à exécuter est un peu complexe ou bien un peu longue et pour la debugger utiliser plutôt un MsgBox ou bien wscript.echo pour voir la construction complète de votre commande à exécuter. voila un exemple :

Code:

---

1 2 3 4 5 6 7

Set objShell = CreateObject("Wscript.Shell") 'construction cumulatif de ligne de commande strCommand = "CMD /K CD C:\Program Files\Microsoft Office\ & Dir " 'et vous pouvez la remplacer par /C au lieu de /K strCommand = strCommand & " & cscript //nologo ospp.vbs /sethst:sn.fr" strCommand = strCommand & " & cscript //nologo ospp.vbs /act" wscript.echo strCommand ' <---temporairement (pour tester si la ligne de commande est correcte ou non) resultat=objShell.Run(strCommand,1,True) '1 pour afficher la console et 0 pour la cacher

---

Merci