Discussion :

[ghostvb]

Bonjour,

J'ai un script dont la fonctionnalité est la suivante :

1°) Je vérifie si le processus "ftp.exe" tourne sur le serveur. Si elle tourne, je tue le processus car autrement cela plante ma tâche planifiée.
2°) Je transfert des fichiers via ftp par une commande Windows cmd /c à l'aide d'un fichier de commande FTP et j'envoie le résultat dans un fichier log.
3°) Je copie les fichiers transférés dans un autre dossier (Lorsque mon problème FTP sera résolu, je déplacerai les fichiers au lieu de les copier).

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
set objWMIService = GetObject ("winmgmts:")
foundProc = False
procName = "ftp.exe"
 
for each Process in objWMIService.InstancesOf ("Win32_Process")
    If StrComp(Process.Name,procName,vbTextCompare) = 0 then
        foundProc = True
        procID = Process.ProcessId
    End If
Next
If foundProc = True Then
 
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    For Each objProcess in colProcessList    
        objProcess.Terminate()
    Next
    WScript.Sleep(1000) 'Pause avant de relancer le check processus
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    If colProcessList.count = 0 Then
	FichierCommandeFTP = "D:\FTP\ftptransf_Test.ftp"
    	FichierLogFTP = "D:\FTP\ftp_Test.log"
        Set WSHShell = CreateObject("WScript.Shell")
	WSHShell.CurrentDirectory = "D:\FTP"
    	WSHShell.Run "cmd /c ftp.exe -in -s:" & FichierCommandeFTP & " >> " & FichierLogFTP, 0 , True
		Dim FSO
		Set FSO = CreateObject("Scripting.FileSystemObject")
		FSO.CopyFile "D:\FTP\Test\*.txt", "D:\FTP\old\Test"
		'FSO.CopyFile "D:\FTP\Envoi\AFD_BL\*.csv", "D:\FTP\old\AFD_BL"
		'FSO.CopyFile "D:\FTP\Envoi\AFD_FAC\*.csv", "D:\FTP\old\AFD_FAC"
    End If
End If
WScript.quit

J'ai testé la commande cmd /c ftp.exe -in -s:FichierCommandeFTP >> FichierLogFTP toute seule et elle ne fonctionne que lorsque le promt est sur "D:\FTP".
Donc mon problème est de modifier le répertoire courant avant de lancer la commande cmd /c ftp.exe.

Merci pour votre aide.

[hackoofr]

Est-ce que cette ligne passe chez-vous ?

Code :

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

FSO.CopyFile "D:\FTP\Test\*.txt", "D:\FTP\old\Test"

[ghostvb]

Bonjour,

Oui, les fichiers sont bien copiés.

[hackoofr]

Essaies de commenter cette ligne

Code :

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

WSHShell.CurrentDirectory = "D:\FTP"

puis remplaces cette ligne :

Code :

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

WSHShell.Run "cmd /c ftp.exe -in -s:" & FichierCommandeFTP & " >> " & FichierLogFTP, 0 , True

par celle-ci :

Code :

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

WSHShell.Run "cmd /c ftp.exe -s:" & FichierCommandeFTP & " >> " & FichierLogFTP, 0 , True

puis tester

[ghostvb]

Cela ne fonctionne toujours pas.

Par contre en commande Windows lorsque j'entre

Code :

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

 cd D:\FTP

je reste sur le current directory de base. Il faut que je fasse

Code :

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

 d:

et là j'ai bien le prompt

Code :

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

 D:\FTP

[hackoofr]

Il y a quoi comme fichiers dans D:\FTP ?
il y a un fichier FTP.exe dans D:\FTP ?

[ghostvb]

Dans le dossier D:\FTP il y a les 2 fichiers ftptranf_Test.ftp (ligne 21) et ftp_Test.log (ligne 22) qui font partis de la commande ligne 25 du script.
Il n'y a pas de ftp.exe.

[hackoofr]

Testez cette fonction en tenant compte de vos paramètres ==> FTP sous VBS pour test débit avec affichage du résultat

[ghostvb]

Je n'ai pas testé le script par contre la commande Windows pour changer le répertoire courant en une seule fois est

Code :

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

 cd /d d:\FTP

.

Il doit être possible de lancer 2 commandes Windows à la suite : Une pour changer le répertoire courant + Une pour lancer le FTP

[hackoofr]

Cela ne fonctionne toujours pas.
Par contre en commande Windows lorsque j'entre

Code :

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

 cd D:\FTP

je reste sur le current directory de base. Il faut que je fasse

Code :

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

 d:

et là j'ai bien le prompt

Code :

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

 D:\FTP

Ou bien ceci doit-être fonctionner

Code :

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

D: & CD D:\FTP

Donc on peut faire ceci et c'est à vous de tester si ça marche ou non ?

Code :

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

WSHShell.Run "cmd /c CD /D d:\FTP & ftp.exe -i -n -s:" & FichierCommandeFTP & " >> " & FichierLogFTP, 0 , True

ou bien aussi :

Code :

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

WSHShell.Run "cmd /c D: & CD d:\FTP & ftp.exe -i -n -s:" & FichierCommandeFTP & " >> " & FichierLogFTP, 0 , True

[ghostvb]

J'ai essayé les 2 versions mais sans succès.

Je vais peut-être tout simplement lancer un script cmd depuis vbscript.

[tsuji]

WSHShell.CurrentDirectory = "D:\FTP"

Je ne pense pas que ça pose un problème : c'est tout à fait opérationnel même le point de départ se trouve en c: ou ailleurs.

Je propose que vous fournissez le parcours absolu pour ftp.exe pour tester. Et aussi, laissez la console apparue pour inspecter un peu plus près au premier temps (le deuxième argument étant 1 au lieu de 0 pour le cacher dans la méthode run()).

[l_autodidacte]

On est un peu dans le vague, il se peut que ce soit le contenu du fichier FichierCommandeFTP qui en est la cause.

Mais au fait, peut-on voir (une partie de ou) son contenu.

[l_autodidacte]

En relisant ton code, j'ai remarqué la ligne 20 If colProcessList.count = 0 Then .
Or cette condition est vrai. Le traitement devrait se faire jusqu'à la ligne 25 où la condition devient fausse.
Les lignes 27 et 28 ne seront donc jamais exécutées. C'est pour cela que la copie ne se fait pas.