IBM + PM + ghost 8.3 一键还原光盘版安装程序

wangrenmi · 发表于 2007-8-24 08:19:25

IBM + PM + ghost 8.3 一键还原光盘版安装程序
http://hi.baidu.com/yyzzkj/blog/item/4dd2fb164396ff1b962b430d.html
测试成功。
下载地址：
http://www.zjj-pengzhai.cn/uploadfile/IBM_F11Key_Ghost测试版.rar
安装运行条件：
1、只支持一个硬盘。
2、最后分区不能是主分区。（也就是说安装类似系统或本系统之后也不能在进行第二次安装）
3、分区数不能少于两个。（也就是说至少要有一个逻辑分区）
4、最后分区未使用空间不能少于3G或未分配空间加上最后分区未使用空间不能少于3G

说明.rar (676 Bytes, 下载次数: 320)

2009-1-22 15:03 上传

点击文件名下载附件
=========以上是测试成功的作品，现共享给大家。好久没来了。希望大家喜欢，使用方便。2009年1月22日更新==================================================================
================以下是以前的内容=======================================================

IBM + PM + ghost 8.3 一键还原光盘版安装程序

我在做IBM + PM + ghost 8.3 一键还原光盘版安装程序

安装分三个部分
第一是 PQPM 脚本自动划分空间大小  卷标为 IBM_SERVICE
第二是把自制作的ghost备份还原代码拷到划分的卷标为 IBM_SERVICE 分区里
第三安装IBM F11 隐藏卷标为 IBM_SERVICE 分区。实现一键启动。

目前第二步还没有解决。有知道的给个代码。
QQ:279331909  Email:wangrenmi20030610@163.com

在Virtual PC 手工安装 IBM + PM + ghost 8.3 已经测试成功。。

另付 PQPM 脚本自动划分空间代码

// ****************************************************************************************************************
// F11_AutoCreatePartition.PQS：在第一块硬盘的最后建立第一个分区使用空间的1/2 + 200MB大小的主分区
// 本脚本的设计目标是适应各种情况的硬盘。
// 脚本创建者：Climbing(QQ:653668, Email:xclimbing@msn.com, Homepage:http://climbing.minidns.net/dvbbs)
// 创建日期：2004.03.17
// 目前本脚本运行状态：初步测试运行正常，但没有运行各种极限情况下的测试，因此需要进一步测试
// ****************************************************************************************************************

// 允许用户在操作后手工重新启动计算机，否则将自动重新启动计算机
Allow Manual Reboot

//默认情况下不检测坏扇区，提高操作速度
Set Default Bad Sector Test State OFF

// 选择第一块硬盘
Select Disk 1

//选择第一个分区
Select Partition First
Dim PriSize
// 检测第一个分区的使用空间，将PriSize设置成其使用空间的1/2再加上200M，否则恐怕不够用
PriSize = GetUsedAmount / 2 + 200

// 检测当前硬盘上的主分区数量
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

// 只有主分区数量小于4才可以继续
IF PriNum < 4 Then
      // 如果存在扩展分区，则选择扩展分区，让它占满前后所有的未分配空间
      If ExtNum <> 0 Then
            Select Disk 1
            Select Partition Extended
            Resize Max
      End if

      // dOperPnum用来保存操作过多少分区
      Dim dOperPnum
      dOperPnum = 0

      // bMove 用来判断是否进行了空间腾出操作，如果是，刚为后面的空间移动提供判断基础
      Dim bMove
      bMove = 0

      // dLastOpPar保存最后一次操作的分区编号
      Dim dLastOpPar

      // 如果当前未分配空间数量已经满足需要，将不需要进行重新分配空间操作
      If GetTotalUnallocatedSpaces < PriSize Then

            //选择最后一个分区并判断其是否为主分区
            Select Partition Last
            Check

            // FreeSpace用来保存已经腾出的空间
            Dim FreeSpace
            FreeSpace = 0

            // NeedSpace用来保存还需要腾出多少空间
            Dim NeedSpace
            NeedSpace = PriSize

            Dim dTmp
            dTmp = 0

            // 从最后一个分区循环往前操作以腾出需要的空间
            i = 0
            Do While FreeSpace < PriSize
                     // 将当前操作分区扩到最大
                     Resize Larger Max

                     // 检测该分区未使用空间是否满足要求，如果满足，空出需要空间，如果不满足，继续操作
                     IF GetUnusedAmount >= NeedSpace Then
                              //改变该分区的大小，在其后面空出需要大小的空间（即NeedSpace变量保存的值）
                              Resize Space After NeedSpace
                              FreeSpace = FreeSpace + NeedSpace
                              bMove = 1
                     Else
                              // 如果本分区剩余空间大于100M，则将本分区缩小未使用空间减100M的大小
                              If GetUnusedAmount > 100 Then
                                    dTmp = GetUnusedAmount - 100
                                    Resize Space After dTmp
                                    FreeSpace = FreeSpace + dTmp
                                    NeedSpace = PriSize - FreeSpace
                                    bMove = 1
                              End If
                     End If
                     i = i + 1
                     dOperPnum = dOperPnum + 1
                     // 如果循环到了第一个分区但空间仍然不足，则直接退出循环
                     If i < GetTotalPartitions Then
                              Select Partition Previous
                              Check
                              dLastOpPar = GetPartitionNumber Next
                     Else       If FreeSpace < PriSize Then
                              dLastOpPar = GetPartitionNumber First
                              Exit Loop
                     End If
            Loop
      End If

      // 如果没有进行分区分割操作，两个原因：1、磁盘空间不足；2、未分配空间已经够用
      If bMove = 0 Then
            dLastOpPar = GetPartitionNumber First
            dOperPnum = GetTotalPartitions
            Select Partition First
            Move Left Max
      Else
            // 开始将前一个循环中腾出的空间进行后移操作
            Dim LastMoveParType
            Dim CurParNum
            i = 1
            If bMove = 1 Then
                     Select Disk 1
                     Select Partition dLastOpPar
                     CurParNum = GetPartitionNumber Next
                     If IsPrimary Then
                              LastMoveParType = 1
                     Else
                              LastMoveParType = 0
                     End If
                     Do While i < dOperPnum
                              Select Partition Next
                              If IsPrimary Then
                                    If LastMoveParType = 0 Then
                                             Select Disk 1
                                             Select Partition Extended
                                             Resize Min
                                    End If
                              Else
                                    If LastMoveParType = 1 Then
                                             Select Disk 1
                                             Select Partition Extended
                                             Resize Left Boundary Max
                                    End If
                              End If
                              Select Partition CurParNum
                              Move Left Max
                              If IsPrimary Then
                                    LastMoveParType = 1
                              Else
                                    LastMoveParType = 0
                              End If
                              CurParNum = GetPartitionNumber Next
                              i = i + 1
                     Loop
                     // 选中最后的未分配空间（刚才空出的）
                     Select Unallocated After Selected Partition

                     //在硬盘最后创建指定大小的分区，分区卷标为SYS_GHOST，当然，你可以根据实际情况修改卷标。
                     Create /FS=FAT32 /LABEL="SYS_GHOST"

                     // 将这个分区转换为主分区
                     Convert To Primary
            End If
      End If
End If

[ 本帖最后由 wangrenmi 于 2009-1-22 15:03 编辑 ]

mmBlue · 发表于 2007-8-24 18:51:05

这段代码很需要，谢谢LZ提供，也向石头大哥表示敬意

mmBlue · 发表于 2007-8-24 19:06:29

对了，LZ
你说的第2部分不难,有自动GHOST到最后分区的BAT
第3步也不难，做个IMG，AUTOEXEC。BAT里面运行就OK了,刚好IBM写MBR的在DOS下，不像BENQ的在WIN下
全部结合一步没做过，也许做起来有点麻烦。
有了这个自动分区代码很YY:lol

[ 本帖最后由 mmBlue 于 2007-8-24 07:24 PM 编辑 ]

demonxie · 发表于 2007-8-25 01:20:57

IBM X60上能用吗？

wangrenmi · 发表于 2007-8-27 09:11:11

IBM + PM + ghost 8.3 一键还原光盘版安装程序测试
上面的自动分区代码测试结果
测试平台：Virtual PC + Win98

IBM 一键启动隐藏分区安装成功
PQPM 脚本自动划分空间代码运行正常
自制ghost 8.3 备份程序安装成功

按 F11 键从 IBM_SERVICE 隐藏分区启动备份系统。提示不能从 IBM_SERVICE 隐藏分区引导。

后来仔细分析这段自动分区脚本。发现一个严重的问题。

”F11_AutoCreatePartition.PQS：在第一块硬盘的最后建立第一个分区使用空间的1/2 + 200MB大小的主分区“

从硬盘最后建立划分空间做为主分区，意思就是在扩展分区上建立的。。。。问题就出在这里。。
我们来看看IBM一键启动的规定：

注意：新建立的备份分区必须在主分区C的后面，假如建在主分区的前面或者建在扩展分区上都将导致F11功能无法使用。分区域格式必须为FAT32,卷标必须为IBM_SERVICE,否则IBM的F11恢复软件将不能工作。

ali88home · 发表于 2007-8-27 18:40:00

偶看的雾煞煞地
而第二步，有的用ghost、pqdi、ati，有的用copy方式，只要能想办法弄进去就行，自己想象吧！
注意：新建立的备份分区必须在主分区C的后面，假如建在主分区的前面或者建在扩展分区上都将导致F11功能无法使用。分区域格式必须为FAT32,卷标必须为IBM_SERVICE,否则IBM的F11恢复软件将不能工作。
这个有人作主分区C的后面，有人作最后面，都可，{两主分区}

wangrenmi · 发表于 2007-9-13 15:01:58

IBM + PM + ghost 8.3 一键还原光盘版安装程序

安装分三个部分
第一是 PQPM 脚本自动划分空间大小  卷标为 IBM_SERVICE
第二是把自制作的ghost备份还原代码拷到划分的卷标为 IBM_SERVICE 分区里
第三安装IBM F11 隐藏卷标为 IBM_SERVICE 分区。实现一键启动。

以下是自制作的ghost备份还原代码安装到划分的卷标为 IBM_SERVICE 分区里

@echo off
set bian=z
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=y
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=x
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=w
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=v
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=u
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=t
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=s
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=r
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=q
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=p
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=o
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=n
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=m
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=l
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=k
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=j
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=i
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=h
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=g
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=f
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=e
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=d
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

set bian=c
dir c:\  >%bian%:\yjhf.txt
if exist %bian%:\yjhf.txt goto copy

:copy

TW /np /n3 > nul
cls
@ ECHO 找到“IBM_SERVICE”隐藏分区
@ ECHO 正在安装,请等候……
copy  ghost.sys %bian%:\ghost.cab >nul
copy  ebd.sys  %bian%:\ebd.cab >nul
ghost /y /l %bian%:\ /e %bian%:\ghost.cab >nul
copy  ghost.exe  %bian%:\extract.exe >nul
copy  restart.com  %bian%:\  >nul
del %bian%:\ghost.cab  >nul
dir %bian%:\  /w/a
@ ECHO ghost备份程序成功安装在“IBM_SERVICE”隐藏分区。
@ ECHO 请不要取出光盘，按任意键继续，进行第三步安装。
@ ECHO 重启后“安装 IBM F11 一键启动”。
Echo.
Echo.
Echo 有问题请QQ、Email、博客留言。
Echo QQ：279331909
Echo Email:wangrenmi20030610@163.com
Echo 百度博客：http://hi.baidu.com/yyzzkj
pause
%bian%:\restart.com
:end

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

测试结果：

测试一：
测试平台：Virtual PC
测试系统：winXP
安装前硬盘分区情况：Ｃ盘（ＦＡＴ格式）、Ｄ盘（ＦＡＴ格式）、Ｅ盘（ＦＡＴ格式）、Ｆ盘（ＦＡＴ格式）
安装后硬盘分区情况：Ｃ盘（ＦＡＴ格式）、Ｄ盘（ＦＡＴ格式）、Ｅ盘（ＦＡＴ格式）、Ｆ盘（ＦＡＴ格式）、Ｇ盘（ＦＡＴ格式　IBM_SERVICE　隐藏分区）
测试结果：正常

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

测试二：
测试平台：Virtual PC
测试系统：winXP
安装前硬盘分区情况：Ｃ盘（ＦＡＴ格式）、Ｄ盘（ＮＴＦＳ格式）
安装后硬盘分区情况：Ｃ盘（ＦＡＴ格式）、Ｄ盘（ＮＴＦＳ格式）、Ｅ盘（ＦＡＴ格式　IBM_SERVICE　隐藏分区）
测试结果：自动划分指定大小的IBM_SERVICE隐藏分区正常，第二部分安装出现异常，自制的ghost备份代码全部安装到了Ｃ盘，正常情况应该安装在卷标为“IBM_SERVICE”的Ｅ盘里。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

有谁知道是什么原因的请指点一下。

濁酒半壺 · 发表于 2007-9-13 16:27:38

学习中虽然不懂，不过慢慢会好地

zqdong · 发表于 2007-9-13 22:26:43

这个很有用，谢谢提供！

hedongzhuhou · 发表于 2007-9-13 23:19:34

楼上的都是强人

我可插不上嘴了，呵呵

lp1129 · 发表于 2007-9-14 12:15:22

换IBM的为GRUB吧，学会GRUB，就永远不要提IBM了

lp1129 · 发表于 2007-9-14 12:16:25

GRUB与IBM的一健还原，真的不可同日而语

demonxie · 发表于 2007-9-16 23:17:29

再次表示关注。。。
偶的X60还没做还原

ybsice_123 · 发表于 2007-9-17 09:32:13

:L 好多批处理。。看不懂~

zgxin · 发表于 2007-9-17 23:45:53

谢谢，长见识了，以前光用别人做好了的

wangrenmi · 发表于 2007-10-18 14:49:52

IBM + PM + ghost 8.3 一键还原光盘版安装程序
好消息，我制作的 IBM 一键备份还原系统运行成功了。
现在没地方放成品。大家介绍个空间。我上传上去。
点击浏览：光盘样品

mcc123 · 发表于 2007-10-18 19:11:38

谢谢楼主的分享！....加入了图片感觉更具体！

mcc123 · 发表于 2007-10-18 19:17:14

这空间不错的，盼能早日得见楼主的大作！
http://www.mediafire.com/

zqdong · 发表于 2007-10-18 20:45:07

学习一下这段代码，谢谢

fzfchao · 发表于 2007-10-18 23:01:23

发到新浪共享去吧，不错的！

zilong1014 · 发表于 2007-10-19 01:06:16

支持。希望楼主快点出来！

study0123456 · 发表于 2007-10-19 14:51:20

谢谢楼主提供这么具体的代码，关注

amolucky · 发表于 2007-10-20 02:52:30

:( :hug: :hug: :hug: :Q :lol :lol :Q :kiss: :kiss: :kiss:

wangrenmi · 发表于 2007-10-20 18:14:52

IBM + PM + ghost 8.3 一键还原光盘版安装程序
http://hi.baidu.com/yyzzkj/blog/ ... 96ff1b962b430d.html
测试成功。

下载地址：
http://www1.51ok.com/down.do?9AF ... E897569764C6AB08B11

fsnhli2003 · 发表于 2007-10-21 08:30:41

原帖由 wangrenmi 于 2007-10-20 06:14 PM 发表
IBM + PM + ghost 8.3 一键还原光盘版安装程序
http://hi.baidu.com/yyzzkj/blog/item/4dd2fb164396ff1b962b430d.html
测试成功。

下载地址：
http://www1.51ok.com/down.do?9AF7BA6607640E409244B4FA86 ...

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

测试结果：

测试一：
测试平台：Virtual PC
测试系统：winXP
安装前硬盘分区情况：Ｃ盘（ＦＡＴ格式）
安装后硬盘分区情况：Ｃ盘（ＦＡＴ格式）、Ｄ盘（ＦＡＴ格式　IBM_SERVICE　隐藏分区）
测试结果：不成功
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
未命名.JPG

wangrenmi · 发表于 2007-10-21 11:29:43

QUOTE:
原帖由 wangrenmi 于 2007-10-20 06:14 PM 发表

IBM + PM + ghost 8.3 一键还原光盘版安装程序
http://hi.baidu.com/yyzzkj/blog/item/4dd2fb164396ff1b962b430d.html
测试成功。

下载地址：
http://www1.51ok.com/down.do?9AF7BA6607640E409244B4FA86 ...

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

测试结果：

测试一：
测试平台：Virtual PC
测试系统：winXP
安装前硬盘分区情况：Ｃ盘（ＦＡＴ格式）
安装后硬盘分区情况：Ｃ盘（ＦＡＴ格式）、Ｄ盘（ＦＡＴ格式　IBM_SERVICE　隐藏分区）
测试结果：不成功
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

未命名.JPG (32.95 KB)
2007-10-21 08:30 AM

=====================================================================

回复：

IBM + PM + ghost 8.3 一键还原光盘版安装程序

安装运行条件：

1、只支持一个硬盘。
2、最后分区不能是主分区。（也就是说安装类似系统或本系统之后也不能在进行第二次安装）
3、分区数不能至少两个。（也就是说至少要有一个逻辑分区）
4、最后分区未使用空间不能少于3G或未分配空间加上最后分区未使用空间不能少于3G

对于上楼的朋友测试运行情况，我想没有人会把整个几十G或几百G的硬盘全部作为系统盘吧。实际上也不可能吧。
对于使用双硬盘的朋友们，我想这个问题应该难不倒他们吧。

fsnhli2003 · 发表于 2007-10-21 16:23:34

原帖由 wangrenmi 于 2007-10-21 11:29 AM 发表
QUOTE:
原帖由 wangrenmi 于 2007-10-20 06:14 PM 发表
IBM + PM + ghost 8.3 一键还原光盘版安装程序
http://hi.baidu.com/yyzzkj/blog/item/4dd2fb164396f ...
回复：

IBM + PM + ghost 8.3 一键还原光盘版安装程序

安装运行条件：

1、只支持一个硬盘。
2、最后分区不能是主分区。（也就是说安装类似系统或本系统之后也不能在进行第二次安装）
3、分区数不能至少两个。（也就是说至少要有一个逻辑分区）
4、最后分区未使用空间不能少于3G或未分配空间加上最后分区未使用空间不能少于3G

对于上楼的朋友测试运行情况，我想没有人会把整个几十G或几百G的硬盘全部作为系统盘吧。实际上也不可能吧。
对于使用双硬盘的朋友们，我想这个问题应该难不倒他们吧。

一键还原精灵装机版7.52 可以在只有一个系统盘的情况下使用

如果不考虑尽可能多的运行情况的话，就不用测试了！！！:L :L

请考虑一下测试的目的是什么？？:@

[ 本帖最后由 fsnhli2003 于 2007-10-21 04:25 PM 编辑 ]

wangrenmi · 发表于 2007-10-22 09:19:17

纯属钻牛角尖。

牛人不用软件。
菜鸟研究软件。
实用才是真理。

lajiaomian · 发表于 2007-10-22 15:23:25

岁数大了学东西真费劲慢慢琢磨吧

wangrenmi · 发表于 2007-10-23 08:35:17

IBM + PM + ghost 8.3 一键还原光盘版安装程序

IBM + PM + ghost 8.3 一键还原光盘版安装程序
http://hi.baidu.com/yyzzkj/blog/item/4dd2fb164396ff1b962b430d.html
测试成功。
下载地址：
http://www.zjj-pengzhai.cn/uploadfile/IBM_F11Key_Ghost测试版.rar
安装运行条件：
1、只支持一个硬盘。
2、最后分区不能是主分区。（也就是说安装类似系统或本系统之后也不能在进行第二次安装）
3、分区数不能少于两个。（也就是说至少要有一个逻辑分区）
4、最后分区未使用空间不能少于3G或未分配空间加上最后分区未使用空间不能少于3G

说明.rar (676 Bytes, 下载次数: 232)

		自动登录	找回密码
密码			注册

IBM + PM + ghost 8.3 一键还原光盘版安装程序

点评