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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?