déploiment de raccourci sur le bureau par script

Version imprimable

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\"

25/08/2010, 09h02
brice_94

bonjour,

j'ai modifier la ligne qui posait problème mais maintenant
j'en ai une autre :

ligne: 7
caract. : 6
erreur: instruction attendue
code : 800A0400
source: erreur de compilation M VBscript
25/08/2010, 17h41
ProgElecT

Salut

Citation:

Envoyé par brice_94

bonjour,
.....
ligne: 7
caract. : 6
....

Mes nous la ligne ou se produit l'erreur car là, pour ma part, je ne voie pas à quoi correspond cette ligne d'erreur.
25/08/2010, 21h44
l_autodidacte

Pourtant sur mes 2 machines(XP Home et XP Pro), il n'y a aucun message d'erreur.
Je viens juste de rectifier le code en mettant les n° de lignes et en permettant l'annulation de l'action à entreprendre.
Reteste-le et regarde si l'erreur persiste ou non.
Il faut savoir(chose connue de tous) qu'une ligne vide(ou saut de ligne) compte et que la variable Msg est affectée sur une SEULE ligne bien qu'en apparence, elle en occupe 4.
26/08/2010, 08h54
brice_94

bonjour,

ok merci c'est bien ce je voulais et avec ça peut-on
rajouter le déploiment de word excel et outlook
je suppose que pour cela il faut qu'il soit déja installer
26/08/2010, 16h07
l_autodidacte

Oui si on indique le chemin de chaque programme(si installé)
26/08/2010, 16h20
brice_94

bonsoir,

merci mais l'indiquer ok mais comment en VBS ?
26/08/2010, 17h17
l_autodidacte

Comme dans ce POST

bonjour,

donc si j'ai bien compris je dois rajouter ça

Code:

1
2
3
4
5
 
Dim lRet,RegVal,Msg,WS,strDesktop,tb(3)
tb(1)="C:\Program Files\Microsoft Office\Winword.exe"
tb(2)="C:\Program Files\Microsoft Office\Excel.exe"
tb(3)="C:\Program Files\Microsoft Office\Outlook.exe"

c'est bien ça ?

Bon voici tout le code en espérant avoir correctement répondu à tes questions:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,myShort
Dim I,Prg,Prg1, Msg,tb(3),lRet,RegVal,Creer
 
Const DestKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\"
tb(1)="C:\Program Files\Microsoft Office\Winword.exe"
tb(2)="C:\Program Files\Microsoft Office\Excel.exe"
tb(3)="C:\Program Files\Microsoft Office\Outlook.exe"
 
set Fso=CreateObject("Scripting.FileSystemObject")
Set WS = WScript.CreateObject("WScript.Shell")
Msg="Souhaitez-vous afficher les éléments suivants sur le bureau ?" _
     & vbcrlf & vbtab & Ucase("Poste de travail") _
     & VbCrLf & vbtab & uCase("Mes Documents") _
     & VbCrLf & vbtab & Ucase("Favoris Réseau") _
     & VbCrLf & vbtab & Ucase("Internet Explorer") _
     & VbCrLf & vbtab & Ucase("winword") _
     & VbCrLf & vbtab & Ucase("Outlook") _
     & VbCrLf & vbtab & Ucase("Excel") 				          
lRet= MsgBox(Msg,VbYesNoCancel,"Raccourcis bureau")				 
If lRet=VbYes then
   RegVal="0"
   Creer=True
ElseIf lRet=VbNo Then
   RegVal="1"
   Creer=False 
ElseIf lRet=VbCancel Then
   Wscript.Quit
End If									
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		
strDeskTop=WS.SpecialFolders("DeskTop")       
 
    For I=1 to 3  
      prg=tb(I) :  Prg1=tb(I)
      Prg1=Left(prg1,instrrev(prg1,"\")) 
      prg=Right(prg,len(prg)-instrrev(prg,"\"))
      If Creer Then 
        Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
        With oMyShortCut
          .TargetPath = tb(I) 
          .Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))  
          .WorkingDirectory=Prg1
          .WindowStyle = 1
          .IconLocation= tb(i) & ",0"
          .Save
        End With
      Else
        set myShort=FSO.GetFile(strDesktop & "\" & prg & ".lnk")
        myShort.Delete
      End If
    Next
 
ws.run "%Windir%\System32\rundll32.exe USER32.DLL,UpdatePerUserSystemParameters 0",1,1
Set WS=Nothing
Set FSO= Nothing
Wscript.Quit

Et si tu as d'autres raccourcis vers des programmes à rajouter, il suffit de les déclarer avec tb(4), tb(5).... et changer la portée du compteur I(dans For I = 1 To ...) en conséquence et n'oublie surtout pas d'élargir le tb(4 ou 5 ou ..) dans la définition de celui-ci.

27/08/2010, 23h39
ProgElecT

Pour l_autodidacte :ccool:
Etant plutôt branché VB6 et que trés occasionnellement VBScript

Citation:

Envoyé par l_autodidacte

Bon voici
.......
et changer la portée du compteur I(dans For I = 1 To ...) en conséquence
.......

Ma petite contribution ;)

Code:

For I = 1 To Ubound(tb)
28/08/2010, 00h15
l_autodidacte

Citation:

Ma petite contribution
For I = 1 To Ubound(tb)

Tout à fait s'il ne connait pas la limite sup du compteur.
Ce qui n'est pas le cas mais cela reste toujours valable.
29/08/2010, 13h53
brice_94

bonjour,

merci beaucoup pour vos contributions,

Tout à fait s'il ne connait pas la limite sup du compteur.

tout à fait je suis vraiment nul en dev je n'ai fait que du C et C++
en cours et je n'était pas très fort.

en tout cas merci pour votre aide maintenant ça fonctionne très bien
30/08/2010, 13h44
brice_94

autre question est-ce que je peux avoir la même chose sans la boite
de dialogue qui demande si on veut les raccourci ou non et que en executant
le script il les mets sur le bureau comme sur le script d'avant mais sans la boite de dialogue.
et si il y a possbiliter de renomer winword.exe dans la ligne
tb(1)="c:\Program Files\Microsoft Office\Office14\Winword.exe"
car cette ligne fonctionne mais me cree un raccourcie winword.exe
j'aimerais qui s'apple plutot word.exe

Tout à fait possible avec quelques petites modifications du

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
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,myShort
Dim I,Prg,Prg1,tb(3)
Const RegVal=0 
Const DestKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\"
tb(1)="C:\Program Files\Microsoft Office\Winword.exe"
tb(2)="C:\Program Files\Microsoft Office\Excel.exe"
tb(3)="C:\Program Files\Microsoft Office\Outlook.exe"
 
set Fso=CreateObject("Scripting.FileSystemObject")
Set WS = WScript.CreateObject("WScript.Shell")
 
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		
strDeskTop=WS.SpecialFolders("DeskTop")       
 
    For I=1 to 3  
      prg=tb(I) :  Prg1=tb(I)
      Prg1=Left(prg1,instrrev(prg1,"\")) 
      prg=Right(prg,len(prg)-instrrev(prg,"\"))
      prg=Left(prg,Len(prg)-4)
      If Ucase(prg)="WINWORD" then prg=Right(prg,4)
      Set oMyShortCut = WS.CreateShortcut(strDesktop & "\" & prg & ".lnk")
        With oMyShortCut
          .TargetPath = tb(I) 
          .Hotkey = "ALT+CTRL+" & Ucase(Left(prg,1))  
          .WorkingDirectory=Prg1
          .WindowStyle = 1
          .IconLocation= tb(i) & ",0"
          .Save
        End With
    Next
 
ws.run "%Windir%\System32\rundll32.exe USER32.DLL,UpdatePerUserSystemParameters 0",1,1
Set WS=Nothing
Set FSO= Nothing
Wscript.Quit

31/08/2010, 09h14
brice_94

bonjour,

ok merci pour ta contribution

désoler de revenir mais mon tuteur veux encore des modification donc
il veut que:
tb(1)="C:\Program Files\Microsoft Office\Office14\WINWORD.exe"
tb(2)="C:\Program Files\Microsoft Office\Office14\EXCEL.exe"
tb(3)="C:\Program Files\Microsoft Office\Office14\OUTLOOK.exe"
soit crée en word 2010.exe excel 2010.exe et outlook 2010.exe comme raccourcie
autre probleme la création de mes documents ne se fait pas sur Seven 64 bits.
31/08/2010, 20h52
l_autodidacte

Juste après cette ligne

Code:

If Ucase(prg)="WINWORD" then prg=Right(prg,4)

ajoute

Code:

prg=prg+" 2010.exe"