cs_Patrin
Messages postés16Date d'inscriptionjeudi 14 septembre 2006StatutMembreDernière intervention 8 décembre 2006
-
28 sept. 2006 à 10:55
cs_Bidou
Messages postés5487Date d'inscriptiondimanche 4 août 2002StatutMembreDernière intervention20 juin 2013
-
29 sept. 2006 à 00:24
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
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 201413 28 sept. 2006 à 14:00
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.
@+
<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.
cs_Patrin
Messages postés16Date d'inscriptionjeudi 14 septembre 2006StatutMembreDernière intervention 8 décembre 2006 28 sept. 2006 à 13:49
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