Supprimer répertoires $Ntuninstall auto

Le Forum Windows XP

Supprimer répertoires $Ntuninstall auto

Messagepar herve62 » 10 Mai 2010, 18:57

Bonsoir
Ayant vu des utilisateurs qui ont eu des soucis pour supprimer une kirielle de répertoires $Ntuninstall...
sous C:\WINDOWS car le script SUPPUNINSTALL.vbs que l'on trouve sur le net ne fonctionne pas s'il n'y a plus
les CLES de REGISTRE , j'ai remodifié ce script pour qu'il fonctionne quand meme
Car supprimer + de 200 rep à la paluche c'est pas marrant :twisted:
Voici le code , a mettre dans un éditeur de texte puis sauvegarder en .vbs

Code: Tout sélectionner
' Script permettant de supprimer automatiquement tous les répertoires
' inutiles de désinstallation sous c:\WINDOWS lorsque le Script : VBUNINSTALL
' ne fonctionne pas à cause des CLES de REGISTRE absentes
'  Herve62   mai-2010

On error resume next
Dim SupRep (),conf
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
Set shell=WScript.CreateObject("WScript.Shell")
Specdir=shell.ExpandEnvironmentStrings("%systemroot%")
Tit_Box="Suppression des répertoires Uninstall"

set Specdir=fso.GetFolder(Specdir)
set SousRep=Specdir.SubFolders
compte=0

for each Rep in SousRep
nomRep=Rep.Name
   If left(nomrep,3)="$Nt" then
   compte = compte +1
   Redim preserve SupRep(compte)
   SupRep(compte)= nomRep      
   end if
next

conf=MsgBox ("Il y a " & compte & " répertoires à supprimer "  & VBCRLF & " CONTINUER ?", vbquestion+vbYesNo, Tit_Box)
If (conf=vbno) then  wscript.quit

For x = 1 to compte
fso.DeleteFolder Specdir & "\" & SupRep(x), true
next
fini= Msgbox ( " Les Répertoires ont été supprimés" , 0, Tit_Box)
wscript.quit
herve62
 
Messages: 67
Inscrit le: 24 Mar 2010, 13:11

Re: Supprimer répertoires $Ntuninstall auto

Messagepar darkmaul37 » 10 Mai 2010, 19:30

Bonjour.

Oui ces dossiers prennent de la place. Cependant il faut faire attention avant de les supprimer. Car ces dossiers servent à désinstaller une mise à jour (Windows) qui ferait planter un PC au cas où. Ça peut arriver. Donc il faut être sur que les mises à jour sont bien passées et que tout fonctionne avant de supprimer ces dossiers.

C'est un risque à prendre si vous les supprimez.

Cordialement.
Image
Avatar de l’utilisateur
darkmaul37
 
Messages: 15
Inscrit le: 08 Fév 2010, 19:24

Re: Supprimer répertoires $Ntuninstall auto

Messagepar LeLapinFou » 10 Mai 2010, 19:30

Bonsoir,
herve62 a écrit:Car supprimer + de 200 rep à la paluche c'est pas marrant

Cela se fait quand même en quelques secondes a la souris... mais il est vrai qu'a la paluche, il y en a qui prennent leur temps. :okjesors:
Avatar de l’utilisateur
LeLapinFou
Modérateur
 
Messages: 9512
Inscrit le: 09 Déc 2002, 10:25
Localisation: 0001 Processeur Ville

Re: Supprimer répertoires $Ntuninstall auto

Messagepar Kejin » 13 Mai 2010, 08:33

Bonjour,

Dans Ccleaner, il y a une option "avancée" pour supprimer ces dossiers avec les clés de registre qui vont bien
Ce que vous appelez l'enfer, Rambo il appelle ça chez lui...
Avatar de l’utilisateur
Kejin
Modérateur
 
Messages: 4651
Inscrit le: 31 Oct 2004, 11:59


Retour vers Windows XP

Qui est en ligne ?

Utilisateurs parcourant actuellement ce forum : Yahoo [Bot] et 3 invités

  •  Liens commerciaux