Discussion :

[GADENSEB]

Bonsoir,
Pour pallier à mon probléme de mon post précédent : ici

Je dois réaliser un script pour modifier les raccourcis qui sont sur un fond d'écran (XP) et qui pointent sur un dossier partagé du réseau.
Je vais monter un lecteur réseau ("connecter un lecteur réseau")

Bien sur pour cela je dois modifier xxxx raccourcis sur les bureaux

Liens actuel :
\\DLINK-0A4272\Volume_1\Partage


Et le futur lien serait (lecteur réseau) :
P:\Volume_1\Partage

Est-ce que j'ai été clair ????


J'ai trouvé ce lien mais pas sur que celui ci soit bien adapté

ici

Avis aux bonnes âme ;-)

Bonne soirée

[GADENSEB]

J'ai testé ce script comme ceci :
(Avec mes pc perso)

Le script m'affiche bien un a un les dossiers et me modifie les raccourcis.
Pa contre, une fois le lien modifié, en double cliquant dessus, j'ai le message d'erreur :
le raccourci à été modifié ou n'éxiste plus
Voulez-vous supprimer ce raccourci ?


Le départ est pas mal !!!!!

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
CONST serveur1 = "\\GADENSEB\"
CONST serveur2 = "Z:\"
 
 
Dim courant_Dir
courant_dir =  WScript.ScriptFullName 
courant_dir = left(courant_dir, InStrRev(courant_dir, "\"))
 
explore_dossier(courant_dir)
wscript.quit
 
 
 
 
Sub explore_dossier(Dir_path)
    Dim Dir
	Dim collection_Dir, courant_Dir
	Dim collection_Fichiers, courant_Fichier
	Dim oFso, WshShell, Shortcut
 
	Set oFso = CreateObject("Scripting.FileSystemObject")
	Set WshShell = WScript.CreateObject("WScript.Shell")
 
 
	msgbox Dir_path
	Set Dir = oFso.getFolder(Dir_path)
	Set collection_Dir = Dir.SubFolders
	Set collection_Fichiers = Dir.Files
 
 
	For each courant_Dir in collection_Dir
		explore_dossier(courant_Dir.Path)
	Next
 
	For each courant_Fichier in collection_Fichiers
		if (courant_fichier.type = "Raccourci") then 
		    msgbox courant_fichier.path
		    Set Shortcut = WshShell.CreateShortcut(courant_fichier.path)
			Shortcut.TargetPath = replace(Shortcut.TargetPath, Serveur1, Serveur2)
			Shortcut.WorkingDirectory = replace(Shortcut.WorkingDirectory, Serveur1, Serveur2)
 
			Shortcut.save			        
		end if
	Next
end Sub

[GADENSEB]

Hello

Le script marche au poil !

C'est moi qui m'était planté dans les valeurs à remplacer .....

Biz Bon We