Discussion :

[sneke]

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 ?

[julien0709]

Il me semble qu'il ne faut pas mettre de guillemets après le copyfile
tu peux aussi essayer de stocker le chemin dans une variable et de faire le copyfile de cette variable

[ced600]

et si tu mets "C:\essai\" cela donne quoi ?

Dans la boucle que tu utilises pour copier rajoute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox element.path

Et vérifie à l'oeil nue si le chemin afficher est correcte.

[sneke]

bonjour,
effectivement, lorsque je mets "C:\essai\"cela fonctionne.
comment pourrais-je faire pour que cela fonctionne également avec element.path

j'avance un peu en mettant element.path & "\" cela fonctionne

[ced600]

si element.path te renvois un chemin sans le \ au bout, alors tu n'as pas le choix. tu es obliger de faire ce que tu as fais: rajouter le \

[sneke]

Je suis venu à bout de mon petit script.

merci pour votre aide.

@+