' *********************************************************
' Suppression des packages de désinstallation des
' mises à jour et Service Pack sous Windows 2000, XP, 2003
' Supprime les fichiers et les clés de registre.
'
' Alain Vouillon © 2006
' *********************************************************
On error resume next

Dim shell,fso,RepertPK(),CleeBDR()
Const HKEY_LOCAL_MACHINE = &H80000002
Set shell=WScript.CreateObject("WScript.Shell")
Set fso=WScript.CreateObject("Scripting.FileSystemObject")

Windir=shell.ExpandEnvironmentStrings("%systemroot%")
BaseBDR="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
TitreMsg="Suppression des packages de désinstallation des mises à jour Microsoft"

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

set RepWindir=fso.GetFolder(Windir)
set SousRep=RepWindir.SubFolders
Index=0

For each Rep in SousRep
nomRep=Rep.Name
If left(nomRep,1)="$" and nomrRep<>"$hf_mig$" then ' si le nom de répertoire commence par $
For Each subkey In arrSubKeys
If left(subkey,1)<>"{" then
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey,"UninstallString",strValue
If InStr(1,strValue,nomRep,vbTextCompare)>0 Then ' il y a-t-il etc. (coupé sinon possible erreur)
Index=Index+1
redim preserve RepertPK(Index),CleeBDR(Index)
lennomRep=len(nomRep)
CleeBDR(Index-1)=subkey
RepertPK(Index-1)=nomRep
Exit For
end if
end if
Next
End If
Next

if Index=0 then
ret=MsgBox("Aucun package trouvé.",0, TitreMsg)
else
For i=1 To Index
line=line & "Rép:"& RepertPK(i-1) & "...Bdr:" & CleeBDR(i-1) & VBCRLF
Next
ret=MsgBox("Confirmez-vous la suppression de:" & VBCRLF & line,1, TitreMsg)
If ret=1 then
line2=""
For i=1 To Index
fso.DeleteFolder Windir & "\" & RepertPK(i-1),true
shell.RegDelete BaseBDR & CleeBDR(i-1) & "\"
If err.number<>0 Then
line2=line2 & Index & " "
err.clear
End If
LogFile= Windir & "\" & CleeBDR(i-1) & ".log"
If fso.FileExists(LogFile) Then fso.DeleteFile LogFile,true
If err.number<>0 Then
line2=line2 & Index & " "
err.clear
End If

Next
If line2<>"" then line2=" Erreur de suppression au(x) package(s) n°" & line2
ret=MsgBox(Index & " package(s) supprimé(s)." & line2 & VBCRLF & line,0, TitreMsg)
end if
end if

wscript.quit