VBS /CopyFile permission refusé / code 800A0046

VBS /CopyFile permission refusé / code 800A0046 - VB/VBA/VBS - Programmation

Marsh Posté le 24-06-2008 à 16:56:11    

bonjour,
je souhaite réaliser un script qui me permettrait d'insérer un raccourci dans les profils TSE de mes utilisateurs.
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é:  
 
' 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"
 
j'ai pourtant tous les droits sur ce dossier.
 
si quelqu'un peut m'éclairer et me dire ce qui ne va pas ?


Message édité par sneke1 le 26-06-2008 à 09:24:25
Reply

Marsh Posté le 24-06-2008 à 16:56:11   

Reply

Marsh Posté le 26-06-2008 à 09:09:15    

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 :
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 :
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 ?

Reply

Marsh Posté le 20-08-2010 à 11:48:11    

il faut terminer proprement la désignation du répertoire de destination en ajouyant "\" à la fin

Reply

Marsh Posté le 21-08-2010 à 13:31:25    

et là c'est pas un raccourci que tu copies mais l'exe :o

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed