Commande dos épingler

**der43e** · 18/06/2015, 01h39

bonjour, voilà tout est dans le titre ;-) je cherche une commande pour créer un script dos ou vbs au pire pour épingler un raccourci a la bar des tache j'ai déjà tanner la copie dans le dossier ou sont stocker les lnk des soft épingler mais ça ne marche pas....

Auriez vous une solution?

Merci d'avances!

**hackoofr** · 18/06/2015, 03h55

En passant par powershell pour épingler le Bloc-Notes et la calculatrice à titre d'exemple:

Code POWERSHELL :

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

1
2
3
4
5
6
7
$sa = new-object -c shell.application
$path2Notepad = $env:windir
$path2Calc = "$env:windir\System32"
$pn = $sa.namespace($path2Notepad).parsename('notepad.exe')
$pn.invokeverb('taskbarpin')
$pn = $sa.namespace($path2Calc).parsename('calc.exe')
$pn.invokeverb('taskbarpin')

ou bien on peut générer ce même code en PinTaskBar.ps1 et l'exécuter en passant par un vbscript PinTaskbar.vbs

Code VBSCRIPT :

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
Option Explicit
Dim URL,Ws,ByPassPSFile,PSFile,MyCmd,Result
Set Ws = CreateObject("wscript.Shell")
PSFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "ps1"
ByPassPSFile = "cmd /k PowerShell.exe -ExecutionPolicy bypass -noprofile -file "
MyCmd = "$sa = new-object -c shell.application" & VbCrlF
MyCmd = MyCmd & "$path2Notepad = $env:windir" & VbCrlF
MyCmd = MyCmd & "$path2Calc = "& DblQuote("$env:windir\System32") & VbCrlF
MyCmd = MyCmd & "$pn = $sa.namespace($path2Notepad).parsename('notepad.exe')" & VbCrlF
MyCmd = MyCmd & "$pn.invokeverb('taskbarpin')" & VbCrlF
MyCmd = MyCmd & "$pn = $sa.namespace($path2Calc).parsename('calc.exe')" & VbCrlF
MyCmd = MyCmd & "$pn.invokeverb('taskbarpin')"
Call WriteMyPSFile(MyCmd)
Result = Ws.run(ByPassPSFile & PSFile,1,True)
'**********************************************************************************************
Sub WriteMyPSFile(strText)
Dim fs,ts,PSFile
Const ForWriting = 2
    PSFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "ps1"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(PSFile,ForWriting,True)
    ts.WriteLine strText
    ts.Close
End Sub
'**********************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************