Discussion :

[teurpi]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tsuji]

Comme ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[teurpi]

Merci