Aller au contenu
Zebulon
  • 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


sebdraluorg

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 vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous publiez en tant qu’invité. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être 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...