VBS Pour copier un fichier dans all users [Résolu]

Signaler
Messages postés
16
Date d'inscription
jeudi 14 septembre 2006
Statut
Membre
Dernière intervention
8 décembre 2006
-
cs_Bidou
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Modérateur
Dernière intervention
20 juin 2013
-
Bonjour, je veux copier un fichier dans un répertoire local par GPO. J'ai utilisé un VBS existant mais le fichier ne se copie pas. Soit que c'est dossierlocal qui pose problème ou le dossierServeur ou mon copy qui est mal fait. Quelqu'un a une idée? Je suis débutant ;)
Merci d'avance!!!

Dim DossierServeur
Dim Fichier
Dim DossierLocal



Const OverwriteExisting = True



Set objFSO = CreateObject("Scripting.FileSystemObject")
Fichier = "GRC.DAT"
DossierLocal = "c:\Documents and Settings\All Users\Application Data\Symantec\Norton AntiVirus Corporate Edition\7.5"
DossierServeur = "[file://\\serveur\vphome \\serveur\vphome]"
If objFSO.FolderExists(DossierLocal) Then
    DossierServeur.Fichier Copy DossierLocal
    End If

4 réponses

Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
10
qqch comme ça ?






Dim DossierServeur
Dim Fichier

Dim DossierLocal1
Dim DossierLocal2



Const OverwriteExisting = True



Set objFSO = CreateObject("Scripting.FileSystemObject")





DossierLocal1 = "C:\Documents and Settings\All Users\Application Data\Symantec\Norton AntiVirus Corporate Edition\7.5"
DossierLocal2 = "
c:\documents and settings\all users\application data\symantec\symantec antivirus corporate edition\7.5\
"
DossierServeur = "
[file://%5c%5cserveur%5cvphome%5c/
\\serveur\vphome\
]
"
Set objServerFile = objFSO.GetFile(DossierServeur & Fichier)
If objFSO.FolderExists(DossierLocal1) Then
   objFSO.CopyFile objServerFile.Path, DossierLocal1, OverwriteExisting


Else
   objFSO.CopyFile objServerFile.Path, DossierLocal2, OverwriteExisting
 End If




<hr size="2" width="100%" />
Je suis en deuxième année en école d'ingénieur etpassionné de développement logiciel sous D7 et VB6. Je cherche un stage en entreprise sur Paris de début avril à fin juillet 2007.
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
10
Salut,

Merci de poster au bon endroit : je doute que tout ceux du bar soit intéressé par le vbs...

J'ai pas trops saisi ce que tu voulais copié et où... Donc je vais me simplifier la vie.

Copie des fichiers d'un répertoire :

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")

source = "c:\*.*"
destination = "c:\windows"

objFSO.FileCopy source, destination, OverwriteExisting


Copie d'un fichier :

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")


source = "c:\allo.txt"

destination = "c:\windows\allo.txt"

objFSO.FileCopy source, destination, OverwriteExisting

@+
<hr size="2" width="100%" />Je suis en deuxième année en école d'ingénieur et passionné de développement logiciel sous D7 et VB6. Je cherche un stage en entreprise sur Paris de début avril à fin juillet 2007.
Messages postés
16
Date d'inscription
jeudi 14 septembre 2006
Statut
Membre
Dernière intervention
8 décembre 2006

Merci RT 15, entre temps jai travaillé un peu mon script. ça fonctionne mais je me suis rendu compte que j'ai 2 répertoires possible de destination. Je voudrais que mon script vérifie l'existance du répertoire et si il existe qu'il copie le fichier... Merci

Soit: c:\documents and settings\all users\application data\symantec\symantec antivirus corporate edition\7.5\
ou:   c:\documents and settings\all users\application data\symantec\norton antivirus corporate edition\7.5\



Dim DossierServeur
Dim Fichier
Dim DossierLocal



Const OverwriteExisting = True



Set objFSO = CreateObject("Scripting.FileSystemObject")
Fichier = "GRC.DAT"
DossierLocal = "C:\Documents and Settings\All Users\Application Data\Symantec\Norton AntiVirus Corporate Edition\7.5"
DossierServeur = "
[file://\\serveur\vphome\
\\serveur\vphome\
]
"
If objFSO.FolderExists(DossierLocal) Then
    Set objServerFile = objFSO.GetFile(DossierServeur & Fichier)
    objFSO.CopyFile objServerFile.Path, DossierLocal, OverwriteExisting
    End If
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Modérateur
Dernière intervention
20 juin 2013
44
Déplacé du vbfrance (VBS)












<hr size="2" />




VC# forever