VBS, script de copie reseau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBS, script de copie reseau

skum

you'll never walk alone

Bonjour, :hello:

Je dois copier un fichier de profile pour chaque utilisateur, depuis le réseau vers un chemin en local de chaque machine.
Je souhaite donc faire un petit VBS que je pourrais ensuite implémenter dans l'AD.

J'ai donc fait un premier script pour tester ma fonction en local (qui fonctionne) :

Citation :

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject" )
oFSO.CopyFolder "c:\test","c:\test2",True

J'ai testé ensuite avec le bon chemin en source (le partage du serveur AD), mais ça ne fonctionne pas.

Citation :

Const OverWriteFiles = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject" )
objFSO.CopyFolder "\\SERVEUR\NETLOGON\Migration\AnyConnectProfile.xml" , "c:\test2" , OverWriteFiles

Si quelqu'un a une idée?

Message édité par skum le 04-05-2012 à 14:02:19

---------------
"Mundi placet et spiritus minima", ça n'a aucun sens mais on pourrait très bien imaginer une traduction du type : "Le roseau plie, mais ne cède... qu'en cas de pépin" ce qui ne veut rien dire non plus.

Publicité

ccp6128

Syntax error

T'es sur que tu devrais utiliser la méthode CopyFolder pour copier un fichier ?

skum

you'll never walk alone

Bon finalement j'ai un peu travaillé dessus ce week end et je suis partie sur autre chose.

Je test si un répertoire existe, puis je le créé, et ensuite je copie le fichier souhaité dans ce répertoire.

voici mon premier script avec un répertoire test a la racine de c:
il fonctionne parfaitement

Citation :

Option Explicit
Const OverWriteFiles = TRUE
Dim ofso, objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set ofso = CreateObject("Scripting.FileSystemObject" )

CreerRep("c:\test\" )

Sub CreerRep(Chemin)
If Not ofso.FolderExists(chemin) Then
CreerRep(ofso.GetParentFolderName(chemin))
ofso.CreateFolder(chemin)
End If
End Sub

objFSO.CopyFile "\\serveur\NETLOGON\Migration\AnyConnectProfile.xml" , "c:\test\AnyConnectProfile.xml" , OverWriteFiles

voici mon deuxième script, identique mais avec le bon répertoire de destination, cela ne fonctionne plus et je sais pas pourquoi

Citation :

Option Explicit
Const OverWriteFiles = TRUE
Dim ofso, objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set ofso = CreateObject("Scripting.FileSystemObject" )

CreerRep("c:\ProgramData\Cisco\Cisco AnyConnect VPN Client\" )

Sub CreerRep(Chemin)
If Not ofso.FolderExists(chemin) Then
CreerRep(ofso.GetParentFolderName(chemin))
ofso.CreateFolder(chemin)
End If
End Sub

objFSO.CopyFile "\\serveur\NETLOGON\Migration\AnyConnectProfile.xml" , "c:\ProgramData\Cisco\Cisco AnyConnect VPN Client\AnyConnectProfile.xml" , OverWriteFiles

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBS, script de copie reseau

Sujets relatifs
script pour s'authentifier sur un site et executer une action	Goto en VBS
Script de connexion DOS	Script VBS
Script incompatible avec firefox	Batch - Copie de fichier selon leur date de modification
[Ubuntu] Script complet demande aide	Exceution script VBA Excel 2010
Plus de sujets relatifs à : VBS, script de copie reseau

Page générée en 0.061 secondes