VBS, script de copie reseau

Marsh Posté le 04-05-2012 à 13:55:52

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.

Reply

Marsh Posté le 04-05-2012 à 13:55:52

Reply

Marsh Posté le 04-05-2012 à 22:59:17

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

Reply

Marsh Posté le 07-05-2012 à 10:38:27

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

---------------
"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.

Reply

VBS, script de copie reseau

Sujets relatifs:

Leave a Replay