Discussion :

[tese84]

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 :

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

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"

[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 .?)

[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 :

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

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

[SfJ5Rpw8]

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

Comment copier un fichier ?




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

[tese84]

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

Code :

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

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