un ami m'a montré une clef USB contenant une version WinPE 5.1 x64 faite à partir de votre tutorial et avec les outils que vous mettez à disposition.
J'ai donc pu tester "Recuva", j'ai constaté un dysfonctionnement identique à celui que j'obtenais sous mon WinPE 5.1 x32 !
Toutefois deux détails m'ont intrigué :
_1 votre réponse du 24 février contient : "C'est sur Windows 8.1 ou plus ancien ?"
_2 "lanceur_x64.exe" indiquait "WinPE 5.0".
Pour en avoir le cœur net, j'ai lancé mon "WinPE 5.1" (x32) puis, sous ce WinPE j'ai lancé "lanceur_x32.exe" qui a affiché "WinPE 5.0" !
Donc mon ami et moi avons fait des "WinPE 5.0" au lieu de "WinPE 5.1" !
J'ai donc relu avec attention les indications que vous donniez le 07 mai 2014, j'ai suivi le lien concernant la procédure officielle et j'ai compris l'erreur commise par mon ami et par moi !
J'ai donc intégré les packages, dans l'ordre préconisé par Microsoft, qui est d'ailleurs l'ordre que vous indiquez, et là Recuva fonctionne correctement.
J'ai donc fouillé dans le registre (j'aime ça !) et j'ai trouvé une clef intéressante :
"HKLM\Software\Microsoft\Windows NT\CurrentVersion" dont la donnée de la valeur "BuildLabEx" est édifiante :
_"9600.16384.x86fre.winblue_rtm.130821-1623" pour WinPE 5.0
_"9600.17031.x86fre.winblue_gdr.140221-1952" pour WinPE 5.1
J'ai donc vérifié la donnée de la valeur "BuildLab" pour WinPE 3.1, : "7601.win7sp1_rtm.101119-1850" donc bien du WinPE 3.1 !
Donc pour vous remercier je vous fait un petit cadeau qui permet de réduire la taille d'une image (à faire lorsqu'elle est montée), cette réduction est d'au moins 7 Mo pour "WinPE 5.1" : il s'agit d'un script que j'ai nommé "ADMIN_allège_winpe.vbs" dont le code est ci-dessous :
Code : Tout sélectionner
Option Explicit
Dim a,b,c,d,fso,r,rep,wss
a="Allège WinPE"
Set wss=WScript.CreateObject("WScript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")
rep=InputBox("Indiquez ci-dessous le nom complet du répertoire ""mount""."&VbCr&_
"Par exemple : ""F:\winPE5\mount""",a)
If rep="" Then WScript.Quit
rep=rep&"\Windows\"
If Not fso.FolderExists(rep) Then WScript.Echo "Répertoire """&rep&""""&" non trouvé !":WScript.Quit
c=rep&"WinSxS\"
repertoires(c)
fichiers(c&"Backup")
fichiers(c&"FileMaps")
fichiers(c&"Manifests")
c=rep&"Boot\"
droits c,0
for Each a in fso.GetFolder(c&"Fonts").Files
If LCase(a.Name)<>"wgl4_boot.ttf" Then
droits a,1
fso.DeleteFile a,True
d=d+1
End If
r=r+1
Next
repertoires(c&"EFI")
repertoires(c&"PCAT")
repertoires(c&"PXE")
repertoires(rep&"SysWOW64")
c=rep&"System32"
repertoires(c)
droits c,0
for Each a in fso.GetFolder(c).Files
b=LCase(a.Name)
If Left(b,3)="kbd" Then
If Right(b,4)=".dll" Then
If b<>"kbdfr.dll" Then
If b<>"kbdus.dll" Then
droits a,1
fso.DeleteFile a,True
d=d+1
End If
End If
End If
End If
r=r+1
Next
If d=0 Then a="aucun n'"
If d=1 Then a=1&" "
If d>1 Then
a=d&" ont été détruits"
Else
a=a&"a été détruit"
End If
WScript.Echo r&" dossiers ou fichiers scrutés, dont "&a&"."
Sub fichiers(fich)
Dim a
If fso.FolderExists(fich) Then
droits fich,0
for Each a in fso.GetFolder(fich).Files
If presence(a.Name)=1 Then
droits a,1
fso.DeleteFile a,True
d=d+1
End If
r=r+1
Next
End If
End Sub
Sub repertoires(srep)
If fso.FolderExists(srep) Then
for Each a in fso.GetFolder(srep).SubFolders
If presence(a.Name)=1 Then
droits a,0
fso.DeleteFolder a,True
d=d+1
End If
r=r+1
Next
End If
End Sub
Sub droits(e,f)
Dim a
If f=0 Then
a="(CI)(OI)"
wss.Run "takeown /F "&e&" /R /D O",0,True
Else
a=""
End If
wss.Run "icacls "&e&" /grant *S-1-1-0:"&a&"F",0,True
End Sub
Function presence(nom)
Dim i
presence=0
i=1
Do While i<=40
If i=11 Then i=i+1'ne pas supprimer le français (numéro 11 dans la fonction "lang")
If i=37 Then i=i+1'ne pas supprimer l'américain (numéro 37 dans la fonction "lang")
If InStr(1,nom,lang(i),1)<>0 Then
presence=1
Exit Do
End If
i=i+1
Loop
End Function
Function lang(numero)
numero=numero+0
Select Case numero
Case 1 lang="ar-sa"
Case 2 lang="bg-bg"
Case 3 lang="cs-cz"
Case 4 lang="da-dk"
Case 5 lang="de-de"
Case 6 lang="el-gr"
Case 7 lang="en-gb"
Case 8 lang="es-es"
Case 9 lang="et-ee"
Case 10 lang="fi-fi"
Case 11 lang="fr-fr"
Case 12 lang="he-il"
Case 13 lang="hr-hr"
Case 14 lang="hu-hu"
Case 15 lang="it-it"
Case 16 lang="ja-jp"
Case 17 lang="ko-kr"
Case 18 lang="lt-lt"
Case 19 lang="lv-lv"
Case 20 lang="nb-no"
Case 21 lang="nl-nl"
Case 22 lang="pl-pl"
Case 23 lang="pt-br"
Case 24 lang="pt-pt"
Case 25 lang="ro-ro"
Case 26 lang="ru-ru"
Case 27 lang="sk-sk"
Case 28 lang="sl-si"
Case 29 lang="sr-latn-cs"
Case 30 lang="sr-..-cs"
Case 31 lang="sr-latn-rs"
Case 32 lang="sr-..-rs"
Case 33 lang="sv-se"
Case 34 lang="th-th"
Case 35 lang="tr-tr"
Case 36 lang="uk-ua"
Case 37 lang="us-us"
Case 38 lang="zh-cn"
Case 39 lang="zh-hk"
Case 40 lang="zh-tw"
End Select
End Function
À bientôt,
moums3