Suppresson de raccourcis dans menu démarrer

Signaler
Messages postés
1
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 décembre 2015
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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.

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
229
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).
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
229
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 ...