Discussion :

[Miistik]

Bonjour ,

Alors voilà, j'ai un petit problème de conversion DOS -> VBS.
J'ai une commande DOS et je ne vois pas du tout comment la coder en vbs ni même si cela est possible. (recherches web infructueuses).

Code :

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

\\Serv\chemin\everest.exe /r \\chemin\$HOSTNAME /CUSTOM \\Serv\chemin\gen.rpf /TEXT /SILENT

Pour informations, la commande se décompose en 3 parties : éxécution de l'exé everest, récupération du hostname suite au .exe , mise en .text et transparence utilisateur mais sa vous le saviez déjà.

Si vous pouvez m'aider, je suis preneur.

Merci à vous,

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
Function executeshell(command)
Dim WSH,Result
Set WSH = CreateObject("Wscript.shell")
Result= WSH.Run(Command,0,True)
Set WSH= nothing
end Function
Call executeshell("cmd /\\Serv\chemin\everest.exe /r \\chemin\$HOSTNAME /CUSTOM \\Serv\chemin\gen.rpf /TEXT /SILENT")

Si tu as des variables il faut fermer la partie texte ajouter la variable entres des &.

[Miistik]

Salut ProgElecT,

Merci de ta réponse .

Sympa l'insertion de la commande dos dans le vbs.

Je teste cela.