Set sh = WScript.CreateObject("WScript.Shell") 
Set fso = CreateObject("Scripting.FileSystemObject") 

'paramètres pour 6666
tmp="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Fichiers temporaires\StateFlags6666"
tif="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Internet Cache Files\StateFlags6666"
actx="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Downloaded Program Files\StateFlags6666"
bin="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Recycle Bin\StateFlags6666"
adr=array(tmp,tif,actx,bin)
for num=0 to ubound(adr)
sh.regwrite adr(num),2,"REG_DWORD"
next

'recherche de l'adresse du regcleaner
adr_clnr=sh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\CleanupPath\")
'retirer les arguments
adr_clnr=left(adr_clnr,instr(adr_clnr,".exe")+3)
'lancer regcleaner sur tous les disques
sh.run adr_clnr & " /sagerun:6666",0,true

set fso=nothing
set sh=nothing