Suppresson de raccourcis dans menu démarrer

Messages postés
1
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 décembre 2015
-
Bonjour à tous,
Je cherche à supprimer des raccourcis dans un répertoire du menu démarrer,
dans:"C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Utilitaires\PDFCreator"

Merci d'avance de votre aide
Option Explicit
On Error Resume Next
Dim objFSO
Dim objShell
Dim strAllUsersFiles, strShortPath
Set objShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")
strAllUsersFiles = objShell.ExpandEnvironmentStrings("%programdata%")

strShortPath = strAllUsersFiles & "\Microsoft\Windows\Start Menu\Programs\Utilitaires\PDFCreator"

objFSO.DeleteFolder strShortPath & "\Licenses",True
objFSO.DeleteFile strShortPath & "\Faire un don.lnk",True
objFSO.DeleteFile strShortPath & "\Page d'accueil de PDFCreator.lnk",True

'objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{0001B4FD-9EA3-4D90-A79E-FD14BA3AB01D}\SystemComponent", "1","REG_DWORD"

Set objFileCopy = nothing
Set objShell = nothing
Set objFSO = nothing



EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
215
0
Merci
Bonjour,
Et ?

- enlève déjà la ligne On Error Resume Next pour voir où il y a erreur
- quelle difficulté rencontres-tu ? (erreur, effet, ...)
- quel est ton OS ? (certains dossiers sont protégés avec certains OS et ne peuvent être modifiés qu'en Administrateur).
Commenter la réponse de ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
215
0
Merci
Tiens ...
J'ai (en plus de ce que je t'ai dit plus haut en ce qui concerne la protection de certains dossiers, selon l'OS), deux petits cadeaux pour toi :
Ils concernent :
- l'un, la gestion d'erreurs
- l'autre, de quoi carrément éviter une telle gestion (pas jolie)
http://www.lehtml.com/vb/erreur.htm
http://www.devguru.com/technologies/vbscript/14056
Tu as besoin de ces deux lectures.
Le second lien utilise une expression conditionnelle, que tu peux compléter avec une clause Else ...
Commenter la réponse de ucfoutu