déploiment de raccourci sur le bureau par script

Version imprimable

Voir 40 message(s) de cette discussion en une page

bonjour,

comment faire pour deployer par script les raccourci bureau style
mes documents ordinateur et word outlook et excel
avec ceux-si
Code:

1 2 3 4 5 6 7 8 9 10 Dim Wsh As New WshShell DesktopPath = Wsh.SpecialFolders("Desktop") Set Shortcut = Wsh.CreateShortcut(DesktopPath & "\Test.lnk") With Shortcut .TargetPath = App.EXEName .Description = "Mon Programme" .WindowStyle = 4 .Save End With
merci d'avance de vos réponse

Certaines déclarations/définitions ne sont pas reconnues sous VBScript telles que Dim x As..... : on n'ajoute pas le type.
App.Path et App.EXEName sont spécifiques à Visual Basic.
Voici un petit exemple de code :
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Dim WshShell, strDesktop, oMyShortCut Set WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("DeskTop") Set oMyShortCut = WshShell.CreateShortcut(strDesktop & "\MonProg.lnk") oMyShortCut.TargetPath = "Chemin Complet" oMyShortCut.Hotkey = "ALT+CTRL+E" oMyShortCut.Save

15/08/2010, 12h20
brice_94

bonjour,

merci beaucoup mais ça ne m'aide pas beaucoup
moi ce que j'aimerais savoir sais comment déployer par script
avec ton script par exemple mes document bureau ainsi que word excel
et outlook tous ça dans le même script qui serait placé dans une GPO
et qui à l'ouverture de session me crée les raccourcie
15/08/2010, 21h39
l_autodidacte

Dans ce cas de figure, tu peux référencer tous les programmes(ou fichiers/dossiers) pour lesquels tu veux créer des raccourcis dans le même fichier script(recopie le script précédent autant de fois que nécessaire en modifiant ce qui se rapporte à chaque programme, fichier ou dossier).
Une fois le fichier enregistré - bien sûr après test- place un raccourci dudit script dans Démarrer\Tous les programmes\démarrage.

A chaque démarrage de session, il y aura création des raccourcis(s'ils n'existent pas au préalable).
15/08/2010, 23h57
brice_94

bonsoir,

merci c'est gentil mais je ne connais pas les paramètre
à rentrer pour faire ce que tu dis copiez coller je sais faire
mais ces les paramètre que sais pas faire

Salut;

Voici un exemple de code qui crée des raccourcis pour les dossiers "SpecialFolders"
Il faut au préalable créer un dossier "FOLD" sur le bureau.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Dim WS, strDesktop, oMyShortCut
dim I,cnt,Prg,Prg1
 
set WS=WScript.CreateObject("WScript.Shell")
cnt=ws.specialfolders.count
 
For I=0 to cnt-1  
    On Error Resume Next
     if err then msgbox err.description
     strDesktop = WS.SpecialFolders("DeskTop") & "\FOLD"
     prg=WS.SpecialFolders(I)
     Prg1=WS.SpecialFolders(I)
     Prg1=Left(prg1,instrrev(prg1,"\"))
     prg=Right(prg,len(prg)-instrrev(prg,"\"))
     Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
     oMyShortCut.TargetPath = WS.SpecialFolders(I) '  "Chemin Complet"
     oMyShortCut.Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))
     oMyShortCut.WorkingDirectory=Prg1
     oMyShortCut.Save
     strDeskTop=""
Next
Wscript.Quit

Tu peux ensuite modifier ce code selon ton besoin.

17/08/2010, 08h57
brice_94

1 pièce(s) jointe(s)

bonjour,

merci beaucoup ça à l'air pas mal
peux-tu m'expliquer ligne par ligne ce que fait
ton script que je puisse le modifier selon ce que j'ai à faire.
j'ai attacher un fichier avec regarde exactement ce que je veux

Salut;
Voici le code commenté :

Code:

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
Option Explicit
'==== Déclaration des variables
Dim WS, strDesktop, oMyShortCut,FSO,Fd
dim I,cnt,Prg,Prg1,myFolder
 
'########## Création d'une instance de FileSystemObject
set Fso=CreateObject("Scripting.FileSystemObject")
 
'########## Création d'une instance de Shell
set WS=WScript.CreateObject("WScript.Shell")
 
myFolder=WS.SpecialFolders("DeskTop")       '### Obtenir le dossier "Bureau"
 
  If Not FSO.FolderExists(myFolder & "\FOLD") Then
   set Fd=FSO.CreateFolder(myFolder & "\FOLD") ' ### Création du dossier "FOLD"
  Else : Set Fd=FSO.GetFolder(myFolder & "\FOLD") '### Sinon, on obtient le dossier
  End If
cnt=ws.specialfolders.count             '### Obtention du nombre de dossiers spéciaux   
 
For I=0 to cnt-1  ' Boucle pour traiter tous les SpecialFolders
     '## Gestion des erreurs au cas où...
     On Error Resume Next
     if err then msgbox err.description
 
     strDesktop = fd 'une autre variante de [WS.SpecialFolders("DeskTop") & "\FOLD"]
     prg=WS.SpecialFolders(I) ' ###Obtention du dossier spécial n° i
     Prg1=WS.SpecialFolders(I)' idem
     Prg1=Left(prg1,instrrev(prg1,"\"))  '### Retourne l'arborescence jusqu'à l'avant-dernier 
'###dossier pour l'utiliser comme dossier cible
     prg=Right(prg,len(prg)-instrrev(prg,"\"))'### Retourne le dernier dossier de l'arborescence 
'###pour utiliser son nom comme raccourci.
     Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
     oMyShortCut.TargetPath = WS.SpecialFolders(I) '###Chemin Complet
     oMyShortCut.Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))  ' ###Touche de raccourci
     oMyShortCut.WorkingDirectory=Prg1   ' ###Dosssier de travail
     oMyShortCut.Save  '###Sauvegarde du raccourci
Next
' ######## Nettoyage de l'environnement ########
Set WS=Nothing
Set FSO= Nothing
Wscript.Quit

18/08/2010, 09h44
brice_94

bonjour,

ok merci as-tu vue l'image que j'ai attaché à ma réponse précédente
et est-ce que avec ton script on peut fair la même chose avec word excel
et outlook

Tout à fait sous condition d'indiquer le chemin d'accès de chaque dossier ou fichier.
Dans le script suivant, tu peux remplacer les valeurs de tb() par celles qui te conviennent:

Code:

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
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,Fd
dim I,cnt,Prg,Prg1,myFolder,tb(6)
tb(1)="C:\Program Files\API-Guide\API-Guide.exe"
tb(2)="C:\Program Files\Microsoft Visual Studio\VB98\VB6.exe"
tb(3)="C:\Program Files\Microsoft Windows Script\ScriptDocs\Script56.CHM"
tb(4)="C:\Documents and Settings\HP_Propriétaire\Mes documents"
tb(5)="C:\Program Files\Internet Explorer\iexplore.exe"
tb(6)="Poste de travail.{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
 
set Fso=CreateObject("Scripting.FileSystemObject")
set WS=WScript.CreateObject("WScript.Shell")
myFolder=WS.SpecialFolders("DeskTop")       
  If Not FSO.FolderExists(myFolder & "\FOLD") Then
   set Fd=FSO.CreateFolder(myFolder & "\FOLD") 
  Else : Set Fd=FSO.GetFolder(myFolder & "\FOLD") 
  End If
 
For I=1 to 5  
     On Error Resume Next
     if err then msgbox err.description
     strDesktop = fd 
     prg=tb(I) 
     Prg1=tb(I)
     Prg1=Left(prg1,instrrev(prg1,"\")) 
     prg=Right(prg,len(prg)-instrrev(prg,"\"))
     Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
     oMyShortCut.TargetPath = tb(I) 
     oMyShortCut.Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))  
     oMyShortCut.WorkingDirectory=Prg1   
     oMyShortCut.Save  
Next
set fd=Fso.CreateFolder(Fd & "\" & tb(6))
Set WS=Nothing
Set FSO= Nothing
Wscript.Quit

19/08/2010, 09h03
brice_94

bonjour,

d'accord merci j'ai une autre question ce script
fonctionne t-il avec Vista et Seven et vue que je
dois déployer ce script sur chaque nouvel machine
est-ce que ce script prend comme argument le nom
de login du profil
19/08/2010, 22h32
l_autodidacte

Citation:

ce script fonctionne t-il avec Vista et Seven ....

Je ne l'ai pas testé sur ces OS mais il devrait marcher si tu indiques bien le contenu des variables tb().
Par exemple, tu peux remplacer tb(4) par :
tb(4)="%userprofile%\Mes documents"
"%UserProfile%" : indique la session en cours c-à-d :
X:\Documents And Settings\Nom_Utilisateur (si la session se trouve sur le lecteur X)

Citation:

ce script prend comme argument le nom de login du profil

Tel qu'il est non; il faudra le modifier pour y arriver.
20/08/2010, 09h40
brice_94

bonjour,

ok merci et comme je suis sous AD ce que tu me donner
ça fonctionne aussi.
autre chose j'ai éssayer ton script c'est presque ça sauf
que mes document devient un raccourcie alor que aux démarage
il faut savoir qu'il n'y a aucun icône et que quand on fait clique droit
propriété bureau personalisation du bureau on voit apparaître élément
du bureau et dessus on peut cliquer sur les icône que l'on veut sur le bureau
ces ce genre d'icône que je veux qui ce déploit à l'ouverture de ton script
voila est-ce que c'est possible.

Essaie ceci :

Code:

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
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,Fd
dim I,cnt,Prg,Prg1,myFolder,tb(5)
 
tb(1)="Corbeille.{645FF040-5081-101B-9F08-00AA002F954E}"
tb(2)="Favoris Réseau.{208D2C60-3AEA-1069-A2D7-08002B30309D}"
tb(3)="Poste de travail.{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
 
tb(4)="%userprofile%\Mes documents"
tb(5)="C:\Program Files\Internet Explorer\iexplore.exe"
 
on error resume next
set Fso=CreateObject("Scripting.FileSystemObject")
set WS=WScript.CreateObject("WScript.Shell")
myFolder=WS.SpecialFolders("DeskTop")       
  If Not FSO.FolderExists(myFolder & "\FOLD") Then
   set Fd=FSO.CreateFolder(myFolder & "\FOLD") 
  Else : Set Fd=FSO.GetFolder(myFolder & "\FOLD") 
  End If
 
For I=4 to 5  
     On Error Resume Next
     if err then msgbox err.description
     strDesktop = fd 
     prg=tb(I) 
     Prg1=tb(I)
     Prg1=Left(prg1,instrrev(prg1,"\")) 
     prg=Right(prg,len(prg)-instrrev(prg,"\"))
     Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
     oMyShortCut.TargetPath = tb(I) 
     oMyShortCut.Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))  
     oMyShortCut.WorkingDirectory=Prg1   
     oMyShortCut.Save  
Next
dim newFold
For i=1 to 3
   set newFold=Fso.CreateFolder(Fd & "\" & tb(i))
Next      
' ######## Nettoyage de l'environnement ########
Set WS=Nothing
Set FSO= Nothing
Wscript.Quit

23/08/2010, 09h30
brice_94

bonjour,

c'est génial mais j'aimerais la même chose que poste de travail
et autre sur mes documents et sur IE après tu va dire que je suis
embétant mais j'aimerais la même chose sans avoir à crée le dossier
fold et donc quand on éxécute le script ça les crée directement sur le bureau

Citation:

après tu va dire que je suis embétant mais

Je ne dirais rien de tel car personne ne m'a obligé de répondre. Je répondrai à toute question dans la limite de mes possibilités.
Pour déployer les raccourcis directement sur le bureau il suffit de modifier le code pour ne plus avoir à créer le dossier FOLD:

Code:

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
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,Fd
dim I,cnt,Prg,Prg1,myFolder,tb(5)
 
tb(1)="Corbeille.{645FF040-5081-101B-9F08-00AA002F954E}"
tb(2)="Favoris Réseau.{208D2C60-3AEA-1069-A2D7-08002B30309D}"
tb(3)="Poste de travail.{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
 
tb(4)="%userprofile%\Mes documents"
tb(5)="C:\Program Files\Internet Explorer\iexplore.exe"
 
on error resume next
set Fso=CreateObject("Scripting.FileSystemObject")
set WS=WScript.CreateObject("WScript.Shell")
myFolder=WS.SpecialFolders("DeskTop")       
 ' If Not FSO.FolderExists(myFolder & "\FOLD") Then
 '  set Fd=FSO.CreateFolder(myFolder & "\FOLD") 
 ' Else : Set Fd=FSO.GetFolder(myFolder & "\FOLD") 
 ' End If
 
For I=4 to 5  
     On Error Resume Next
     if err then msgbox err.description
     strDesktop = myFolder 
     prg=tb(I) 
     Prg1=tb(I)
     Prg1=Left(prg1,instrrev(prg1,"\")) 
     prg=Right(prg,len(prg)-instrrev(prg,"\"))
     Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
     oMyShortCut.TargetPath = tb(I) 
     oMyShortCut.Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))  
     oMyShortCut.WorkingDirectory=Prg1   
     oMyShortCut.Save  
Next
dim newFold
For i=1 to 3
   set newFold=Fso.CreateFolder(myFolder & "\" & tb(i))
Next      
' ######## Nettoyage de l'environnement ########
Set WS=Nothing
Set FSO= Nothing
Wscript.Quit

Mais l'embêtant est que l'icône "Favoris Réseau" ne sera pas affichée sur le bureau(elle existe dans le dossier ..\Documents And Settings\UserName\Bureau) bizarre non !

Bon, je viens de trouver une autre solution en plus de celle déjà évoquée plus haut :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Const DestKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\"
Dim lRet,RegVal,Msg,WS,strDesktop
Set WS = WScript.CreateObject("WScript.Shell")
Msg="Souhaitez-vous afficher les éléments suivants sur le bureau ?" _
     & vbcrlf & Ucase("Poste de travail") _
     & VbCrLf & uCase("Mes Documents") & VbCrLf & Ucase("Favoris Réseau") _
     & VbCrLf & Ucase("Internet Explorer") 				          ' ligne 5
lRet= MsgBox(Msg,VbYesNoCancel,"Raccourcis bureau")				  ' ligne 6
If lRet=VbYes then
   RegVal="0"
ElseIf lRet=VbNo Then
   RegVal="1"
ElseIf lRet=VbCancel Then
   Wscript.Quit
End If									' ligne 13
WS.RegWrite DestKey & "{20D04FE0-3AEA-1069-A2D8-08002B30309D}",RegVal,"REG_DWORD"  ' Poste de travail
WS.RegWrite DestKey & "{450D8FBA-AD25-11D0-98A8-0800361B1103}",RegVal,"REG_DWORD"  ' Mes documents
WS.RegWrite DestKey & "{208D2C60-3AEA-1069-A2D7-08002B30309D}",RegVal,"REG_DWORD"  ' Favoris Réseau
WS.RegWrite DestKey & "{871C5380-42A0-1069-A2EA-08002B30309D}",RegVal,"REG_DWORD"  ' IE pour XP 
WS.RegWrite DestKey & "{645FF040-5081-101B-9F08-00AA002F954E}",RegVal,"REG_DWORD"  ' Corbeille		'  ligne 18
 
ws.run "%Windir%\System32\rundll32.exe USER32.DLL,UpdatePerUserSystemParameters 0",1,1			' ligne 20

Mais cela nécessite, après exécution du script, d'appuyer sur la touche F5 (en ayant activé au préalable le bureau par clic sur un zone vide de celui-ci)

24/08/2010, 09h11
brice_94

bonjour,

merci ton script c'est exactement ce que je veux sauf
que j'ai une érreur à l'exécution
ligne: 2
caract. : 7
erreur: identificateur attendu
code: 800A03F2
source: erreur de compilation Microsoft VBscript
24/08/2010, 09h26
SfJ5Rpw8

un saut de ligne en trop :

Code:

Const DestKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewSta

;)

Citation:

Envoyé par bbil

un saut de ligne en trop :

Tout à fait, c'est dû à "copier/coller" et je ne m'en suis pas rendu compte.
Merci bibil
La valeur correcte est:
Code:

1 2 3 Const DestKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\" ' ou un peu plus court : Const DestKey="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\"

Voir 40 message(s) de cette discussion en une page