ASK ABOUT PARTITION Value

HELLO ALL,I HAVE A VBS Followsseen，I HAVE A PARTITION Value NEED HELP

===========================================================
Set objShell = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")
Set colPhysicalDisks = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
strTempPath = objShell.ExpandEnvironmentStrings("%TEMP%")
strTempFile = strTempPath + "\Diskpart.txt"
strTempFile2 = strTempPath + "\Diskpart2.txt"

blnPhysicalDiskLower150 = False
For Each objPhysicalDisk in colPhysicalDisks
intSize = Int(objPhysicalDisk.Size /(1073741824))
If intSize < 150 Then
blnPhysicalDiskLower150 = True
End If
Exit For
Next

If blnPhysicalDiskLower150 Then
Set objDiskpartFile = objFS.OpenTextFile(strTempFile, 2, True)
objDiskpartFile.WriteLine "sel disk 0"
objDiskpartFile.WriteLine "list par"
objDiskpartFile.WriteLine "sel par 1"
objDiskpartFile.WriteLine "del par"
objDiskpartFile.WriteLine "cre par pri size=1024"
objDiskpartFile.WriteLine "assign letter=r"
objDiskpartFile.WriteLine "format FS=NTFS Label=WINRE QUICK OVERRIDE"
objDiskpartFile.WriteLine "active"
objDiskpartFile.WriteLine "cre par pri"
objDiskpartFile.WriteLine "assign letter=c"
objDiskpartFile.WriteLine "format FS=NTFS Label=SYSTEM QUICK OVERRIDE"
objDiskpartFile.WriteLine "sel par 1"
objDiskpartFile.WriteLine "rescan"
objDiskpartFile.Close
intRetVal = objShell.Run("diskpart /s " & Chr(34) & strTempfile & Chr(34), 1, true)
Else
Set objDiskpartFile = objFS.OpenTextFile(strTempFile, 2, True)
objDiskpartFile.WriteLine "sel disk 0"
objDiskpartFile.WriteLine "list par"
objDiskpartFile.WriteLine "sel par 1"
objDiskpartFile.WriteLine "del par"
objDiskpartFile.WriteLine "cre par pri size=1024"
objDiskpartFile.WriteLine "assign letter=r"
objDiskpartFile.WriteLine "format FS=NTFS Label=WINRE QUICK OVERRIDE"
objDiskpartFile.WriteLine "active"
objDiskpartFile.WriteLine "cre par pri"
objDiskpartFile.WriteLine "assign letter=c"
objDiskpartFile.WriteLine "format FS=NTFS Label=SYSTEM QUICK OVERRIDE"
objDiskpartFile.WriteLine "sel par 1"
objDiskpartFile.WriteLine "rescan"
objDiskpartFile.Close
intRetVal = objShell.Run("diskpart /s " & Chr(34) & strTempfile & Chr(34), 1, true)
End If
Set objDiskpartFile2 = objFS.OpenTextFile(strTempFile2, 2, True)
objDiskpartFile2.WriteLine "sel disk 0"
objDiskpartFile2.WriteLine "sel par 1"
objDiskpartFile2.WriteLine "active"
objDiskpartFile2.Close
intRetVal = objShell.Run("diskpart /s " & Chr(34) & strTempfile2 & Chr(34), 1, true)
WScript.Quit 0