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.

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

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,":","")

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

Laisser un commentaire Annuler la réponse.

Cet article n'a pas été revu depuis la publication.

Cet article a été créé par david le 26 décembre 2016.