Discussion :

[brice_94]

bonjour,

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

Code :

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

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

[l_autodidacte]

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 :

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

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

[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

[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).

[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

[l_autodidacte]

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 :

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
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.