CopyFile /permission refusé / code 800A0046
bonjour,
je souhaite réaliser un script qui me permettrait d'insérer un raccourci dans les profils TSE de mes utilisateurs.(le serveur TSE tourne sous Win 2K3)
j'ai quelques notions de vbs, mais n'ayant pas pratiqué depuis longtemps, je galère un peu.
voici le script que j'ai réalisé (la première parti n'a pas de réel intérêt, juste un contrôle) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
' declaration
option explicit
dim ObjectFile, liste , element ,dossiers , sousdossiers
'creation des objets
set ObjectFile = CreateObject("Scripting.FileSystemObject" )
set dossiers = ObjectFile.getFolder("C:\essai" ) ' initialise un objet pour le dossier racine
set sousdossiers = dossiers.subfolders ' intialise l'objet contenant les sous dossiers du dossier racine
liste = " liste des dossiers du lecteur C:\essai " & VBCRLF
'lister les sous-dossiers contenus dans "dossiers"
for each element in sousdossiers
liste = liste & element.path & VBCRLF ' prepare l'affichage des propriétés du dossier courant
next
wscript.echo liste ' affichage des résultats
'pour chaque sous dossier copier "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" dans le sous dossier
for each element in sousdossiers
ObjectFile.CopyFile "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" , element.path
next |
la première parti fonctionne bien,
mais j'ai à chaque fois l'erreur : permission refusé code 800A0046 pour la ligne "ObjectFile.CopyFile "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" , element.path"
après recherches, il s'avère que le problème vienne de la méthode CopyFile de l'objet FSO.
En effet le script suivant fonctionne :
Code:
1
2
3
| dim FSO
set FSO = CreateObject("Scripting.FileSystemObject" )
FSO.CopyFile "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" , "C:\" |
je peux copier le fichier OUTLOOK.EXE à la racine, mais pas dans un dossier.
le script :
Code:
1
2
3
| dim FSO
set FSO = CreateObject("Scripting.FileSystemObject" )
FSO.CopyFile "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" , "C:\essai" |
ne fonctionne pas alors que j'ai tous les droits dessus, par contre en commande DOS cela fonctionne.
quelqu'un a une idée ?
