Dim PriSize
PriSize = 2048
Allow Manual Reboot
Set Default Bad Sector Test State OFF
Select Disk 1
Dim PriNum
Dim i
i = 1
PriNum = 0
Select Partition FIRST
DO WHILE i < GetTotalPartitions
IF IsPrimary Then
PriNum = PriNum + 1
End If
Select Partition Next
i = i + 1
Loop
IF IsPrimary Then
PriNum = PriNum + 1
End If
dim ExtNum
ExtNum = GetPartitionNumber Extended
If ExtNum <> 0 Then
PriNum = PriNum + 1
End If
IF PriNum < 4 Then
Select Partition Last
check
Dim bQuit
bQuit = 0
IF GetUnusedAmount >= PriSize Then
Resize Space After PriSize
Else
bQuit = 1
End If
If bQuit = 0 Then
Select Unallocated After Selected Partition
Create /FS=FAT32 /LABEL="IBM_SERVICE"
Convert To Primary
End If
End IF
保存为：2G.PQS
执行用：pqmagic /cmd=2G.PQS /NRB
如果分区大小需要修改2048值控制
