Discussion :

[legomaniac071]

Bonjour à tous,

Je rencontre actuellement un problème dans l'exécution d'un script VBS.
Tout fonctionne bien, sauf que je n'arrive pas à obtenir de LOG dans le dossier spécifié, aucun fichier ne se crée.
Ce script lance un .EXE nommé clientautocad.exe (qui permet en fait de dessiner nos produits dans Autocad depuis notre ERP, ndlr sans rentrer dans les détails), et lui passe un certains nombres de paramètres dont le chemin du fichier de logs en sortie.
Le dessin se fait bien sous Autocad je n'ai pas d'erreur, en revanche aucun fichier de logs n'est généré.
Lorsque je lance directement l'exécutable dans une fenêtre de commande, le log se crée bien, en revanche rien depuis le .VBS.

Voici un extrait de mon script :

Code :

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

1
2
3
4
5
6
7
8
9
if ProfilUtil = "DAO" or ProfilUtil = "ADM" then
    'Commande Creation Fichier dwg  
    if CadDwgFicExt <> "---" then 
        DcmdDwg = "W:\vs\Macrovs\exec\clientautocad.exe " & CadSrv & " " & CadUtiMac & " " & CadDwgFicExt & " " & CadDwgExeMod & " " & Guillemet & CadDwgRepFicGen & Guillemet & " -in " & Guillemet & CadDwgNomFicGen & Guillemet & " -out " & Guillemet & CadDwgSorRep & Guillemet & fleche & Guillemet & CadFicTra & Guillemet
   Else
        DcmdDwg = ""
    End If
    'Commande Lancement Autocad
    Dcmd = "W:\vs\Macrovs\exec\clientautocad.exe " & CadSrv & " " & CadUtiMac & " " & CadFicExt & " " & CadExeMod & " " & Guillemet & CadRepFicGen & Guillemet & " -in " & Guillemet & CadNomFicGen & Guillemet & " -out " & Guillemet & CadSorRep & Guillemet & fleche & Guillemet & CadFicTra & Guillemet

Guillemet et fleche sont des variables que je positionne de la manière suivante :
Guillemet = chr(34) : correspond à "
fleche = chr (62) : correspond à >

Merci d'avance à tous, si ce n'est pas assez précis merci de me le dire.

Cordialement ;

[l_autodidacte]

Ne fallait-il pas passer par l'objet Shell ainsi :

Code :

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

1
2
3
4
5
Set oShell = CreateObject("WScript.Shell")
'...............
'...............
oShell.Run DcmdDwg, i, True ' i=0 pour masquer la fenêtre, i=1 pour l'afficher
oShell.Run Dcmd, i, True

[legomaniac071]

Bonjour,

D'abord un grand merci pour ta réponse. Je suis technicien d'exploitation / infrastructure et pas développeur (projet à cheval sur les deux services et c'est tombé chez nous), aussi je me permet : Où dois-je positionner ce bout de code ? Je vais essayer quand même car j'ai de bonnes bases.

En fait on dirai qu'il ignore complètement la commande ">CadFicTra" qui est sensée me créer le fichier de logs.

Merci encore

[l_autodidacte]

Salut;

La ligne 1 du code peut être placée avant la définition(affectation) de "DcmdDwg".
Les lignes 4 et 5 sont à mettre après avoir défini les variables DcmdDwg et Dcmd

[legomaniac071]

Bonjour et merci ;
Cela ne fonctionne pas. Je pense quand même que le code (que je n'ai pas écris !) pose soucis. Je ne pense pas qu'on puisse générer un fichier de log de cette manière à partir d'un VBS.
Je suis tombé en fouinant sur ce type de code :

Code :

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

1
2
3
4
5
Dim fso, shl
 
Set fso = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")
shl.run "command  /c ipconfig /all > c:\ip.txt",0,true

Ce dernier lance un ipconfig /all et redirigie le résultat dans un fichier c:\ip.txt
Ne faudrait-il pas m'orienter vers ce type de solutions ? Mais le problème est que moi je passe un certains nombre de paramètre à un .EXE dont le chemin du fichier de sortie, qui est généré normalement pas le ">fichierlog".

[legomaniac071]

C'est quand même très étrange, j'ai continué mes tests.
Dans mon programme, si je mets cela dans mon programme à la place de l'exécutable, j'obtiens bien un log correspond à la commande :

Code :

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

1
2
3
DcmdDwg="command  /c ipconfig /all > c:\temp\ip.txt"
[..]
Dcmd="command  /c ipconfig /all > c:\temp\ip.txt"

si je fais simplement cela directement dans une fenêtre de commande :

Code :

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

c:\clientautocad.exe > c:\temp\fictra.txt

Cela fonctionne, j'ai un log avec une erreur concernant les paramètres.

Si je lance cela dans mon VBS :

Code :

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

DcmdDwg="c:\clientautocad.exe > c:\temp\fictra.txt"

RIEN !

J'en perds mon VBS

[pitchalov]

Bonjour,

Tu as dans les 2 derniers messages que tu as postés toutes les solutions à ton problème : mettre 'command /c' avant ta commande lancée par la fonction Run de l'objet WshShell pour que le renvoi de la sortie vers un fichier texte fonctionne.

Code :

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

1
2
3
4
Dim shl 
set shl = createobject("wscript.shell")
DcmdDwg="c:\clientautocad.exe > c:\temp\fictra.txt"
shl.run "command  /c " & DcmdDwg,0,true

Si ça ne fonctionne pas, poste l'ensemble de ton script afin que l'on voie ce qui peut être problématique

Bonne continuation.

[Cachlab]

salut ! J'éviterai également l'espace après le > à ta place ...
DcmdDwg="c:\clientautocad.exe >c:\temp\fictra.txt"

[legomaniac071]

Salut,

Merci à tous pour vos réponses ! Il faut simplement mettre "cmd /c" devant la suite de commande, au niveau des variables.
Je pense que cela pourra aider d'autres personnes !!

Je ne trouve pas pour mettre en "résolu" ?