encore un raccoursis

[sebdraluorg]

salut a tous,

 

voici un petit script qui permet d'ajouter le raccourci que l'on veut dans le menu demarrer en dessous de "executer"

je n'ai pu tester que sur XP donc a voir pour d'autre OS

 

Option Explicit
On Error Resume Next
Dim ss, p1, p2, p3, p4, reponse
Set ss = WScript.CreateObject("WScript.Shell")
p3 = InputBox("Veuillez entrer le nom du racoursis", "ENTREZ LE NOM DU RACCOURCI","Exemple : Regedit")
p2 = InputBox("veuillez entrer le chemin complet de la cible ","ENTREZ LE CHEMIN DE LA CIBLE", "exemple : C:\WINDOWS\Regedit.exe")
p1 = "HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\"
p4 =  InputBox("Entrez le chemin complet pour l'icone", "")
ss.RegWrite p1, p3
ss.RegWrite p1 & "Infotip", p3
ss.RegWrite p1 & "DefaultIcon\", p4
ss.RegWrite p1 & "InProcServer32\","%systemroot%\system32\shdocvw.dll", "REG_EXPAND_SZ"
ss.RegWrite p1 & "InProcServer32\ThreadingModel","Apartment"
ss.RegWrite p1 & "Instance\CLSID","{3f454f0e-42ae-4d7c-8ea3-328250d6e272}"
ss.RegWrite p1 & "Instance\InitPropertyBag\CLSID","{13709620-C279-11CE-A49E-444553540000}"
ss.RegWrite p1 & "Instance\InitPropertyBag\Command","&Ouvrir"
ss.RegWrite p1 & "Instance\InitPropertyBag\method","ShellExecute"
ss.RegWrite p1 & "Instance\InitPropertyBag\Param1", p2
ss.RegWrite p1 & "shellex\ContextMenuHandlers\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\",""
ss.RegWrite p1 & "shellex\MayChangeDefaultMenu\",""
ss.RegWrite p1 & "ShellFolder\Attributes",0,"REG_DWORD"
ss.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartMenu\StartPanel\ShowOEMLink\NoOEMLinkInstalledd",0,"REG_DWORD"
MsgBox "Les inforamtions ont bien ete enregistree " & vbCrLf & "pour appliquer les paramettres maintenant veuillez redemarrer", 64, "Confiramtion"
reponse = MsgBox ("voulez vous redemarrer maintenant?", 36, "redeamrrer")
if reponse = vbYes then ss.run "shutdown -r -t 00"
Set ss = Nothing

 

voila il suffit de faire un copier coller dans le bloc note et de sauvegarder sous l'extention .vbs

 

 

Oup's desole je viens de m'apercevoir que l'astuce etait deja sur le site dans Personalisation... Desole

Modifié le 16 novembre 2004 par sebdraluorg