Script vbs de suppression des partition C et D depuis un WinPE
Script unmap c et D WinPE
L’objectif de ce script et de libérer les lettres C et D depuis un WinPE. Ce qui permet de créer les partitions diskpart sans conflit avec les partitions existantes.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
Const MapTemp = "x:\windows\temp\" Dim ValeurDVD Dim MacAdresse Set Fso = CreateObject("Scripting.FileSystemObject") Set Shell = CreateObject("WScript.Shell") 'recuperation MAC du poste set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") If Err.Number = 0 Then for each IPConfig in IPConfigSet MacAdresse = Replace(IPConfig.MACAddress,":","") Next End If FichierListDisk = MapTemp & MacAdresse & "_ListDisk.txt" FichierDiskpartInfo = MapTemp & MacAdresse & "_InfoDisk.txt" FichierCreatePartition = MapTemp & MacAdresse & "_CreaPart.txt" 'Creation fichier list disk Set inf = Fso.CreateTextFile(FichierListDisk, True) CodeRetour = inf.Writeline("list vol") inf.close 'Creation fichier info disk CodeRetour = Shell.run("cmd /c diskpart /s " & FichierListDisk & ">" & FichierDiskpartInfo,,True) 'Creation fichier Reponse diskpart wscript.Echo FichierCreatePartition Set infNew = Fso.CreateTextFile(FichierCreatePartition, True) 'Analyse fichier diskpart list disk Set inf = Fso.OpenTextFile(FichierDiskpartInfo, 1, False) While inf.AtEndOfStream <> True ValeurDVD = "" Ligne = Trim(Inf.Readline) If instr(UCase(Ligne),"C ") Then Temp = Split(Ligne,"C ") Temp(0) = Trim(Temp(0)) CodeRetour = infNew.Writeline("select " & Temp(0)) CodeRetour = infNew.Writeline("remove all noerr") End If If instr(UCase(Ligne),"D ") Then Temp = Split(Ligne,"D ") Temp(0) = Trim(Temp(0)) CodeRetour = infNew.Writeline("select " & Temp(0)) CodeRetour = infNew.Writeline("remove all noerr") End If Wend inf.close 'Enregistrement du fichier Reponse diskpart + execution infNew.close CodeRetour = Shell.run("cmd /c diskpart /s " & FichierCreatePartition,,True) Function GetPath() Dim path Deftpath = WScript.ScriptFullName GetPath = Left(Deftpath, InStrRev(Deftpath, "\")) End Function |
Cet article n'a pas été revu depuis la publication.
Cet article a été créé par david le 26 décembre 2016.
Laisser un commentaire