probleme de copie avec vbs

Version imprimable

Bonjour à tous
Depuis quelque jour j'aimerai copié un fichier qui se trouve dans un dossier ex c:\test\toto.txt d'un pc1 a un pc 2 sur c:\toto.txt.
je precise que je fais une recherche du fichier sur le pc1 et ensuite je le copie sur le pc 2 à l'endroit que je vous ai dit auparavant
Ces pc se trouve dans un reseau privé
j'utilise le wmi de windows mais je ne le maitrise pas trés bien apres quelque recherche sur le net j'ai reussi a faire un bout de script mais je suis pas un spécialiste et donc ce que j'ai fait ne marche pas
voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 strComputer = pc38 set services = GetObject("winmgmts:\\" & strComputers & _ "\root\CIMV2") set copy = services.ExecQuery("SELECT * from CIM_DataFile where drive = 'c:' and FileName = 'toto' and Extension= 'txt' ") set objfso = createobject("scripting.FileSystemObject") cp ="pc39" for Each objec in copy wscript.echo "Nom: " & " " & objec.name objfso.copyfile objec.name "c:\Temp" & cp & "\" next wscript.echo "copie finie"

16/05/2007, 08h56
SfJ5Rpw8

juste une chose ... il 'y as t'il une raison pour effectuer la rechercher ..? le fichier à copier n'est-'il pas toujours au même endroit .?
le script s'exécute sur quel PC ( source ou destination .?)
16/05/2007, 09h08
tese84

oui ce que vous dite est juste apres reflexion mais enfait je n'arrive pas dans ma requette à pointer dans le dossier si j'ajoute dans la requette

Code:

name = '\log\'

pour qu'il pointe dans le dossier mais il me lance une erreur donc je le laisse faire une recherche pour qu'il me trouve le fichier et ensuite je le copie

Mais par la suite je vais avoir besoin de faire des recherches de fichier sur d'autre pc pour les copie ensuite dans un dossier sur le pc1
16/05/2007, 09h13
SfJ5Rpw8

1/pour la copie de fichier as tu essayé :

Comment copier un fichier ? :faq:

2/ pour ta recherche .. tu as un probléme sur le nom de ta variable strComputers un coup avec un coup sans ( s..)

copie du fichier resolu

merci de ton aide j'ai resolu mon probléme
voici ma soluce

Code:

1
2
3
4
5
6
7
8
9
10
11
 
strComputers="pc38"
set services = GetObject("winmgmts:\\" & strComputers & _
"\root\CIMV2")
set copy = services.ExecQuery("SELECT * from CIM_DataFile where drive = 'c:' and FileName = 'toto'  and Extension= 'txt' ")
set objfso = createobject("scripting.FileSystemObject")
cp ="pc39"
for Each objec in copy
wscript.echo "Nom: " & " " & objec.name
objfso.copyfile objec.name, "\\cp\c$\Temp\" 
Next