Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

encore un raccoursis


Messages recommandés

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 :P

Modifié par sebdraluorg
Lien à poster
Partager sur d’autres sites

Join the conversation

You are posting as a guest. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×
×
  • Créer...