#!PECMD
ENVI^ EnviMode=1  //避免意外错误，空变量，外部变量，
ENVI^ FORCELOCAL=1  //可以处理大变量. 不影响外部变量

//定义局部变量，不影响外部变量
SET-def 信息=
SET-def 全部磁盘=
SET-def 磁盘=
SET-def 磁盘信息=
SET-def 分区=
SET-def 分区信息=
SET-def 首字=
SET-def T=
PART list disk,&全部磁盘
//ENVI 信息=全部磁盘: %全部磁盘%\n
forx * %全部磁盘%,&磁盘,
{
    SET 信息=%信息%磁盘:%磁盘% \n
    PART list disk %磁盘%,&磁盘信息
    SET 信息=%信息%  磁盘信息 磁盘号   大小(字节)         柱面数 磁头数 扇数 扇区 媒体     签名 总线\n
    SET 信息=%信息%             %磁盘信息% \n
    
    SET 信息=%信息%  字符说明 激活 __本分区起始__ 分区 __本分区结束__ _______本分区______ ______本分区_______\n
    SET 信息=%信息%  激活为0x80    磁头_扇区_柱面 类型 磁头_扇区_柱面 _____起始扇区号____ _____扇区总数______\n

//  SET 信息=%信息%  4大金刚  激活 __H_起_S_始_C_ 类型 __H_结_S_束_C_ _____起始扇区______ ______扇区数_______\n
//  SET 信息=%信息%  4大金刚  激活 __H_起_S_始_C_ 类型 __H_结_S_束_C_ _____起始扇区______ ______扇区数_______\n
    TEAM GETF \\.\PhysicalDrive%磁盘%,446#16,&T|  SET 信息=%信息%  主分区1: %T% \n
    TEAM GETF \\.\PhysicalDrive%磁盘%,462#16,&T|  SET 信息=%信息%  主分区2: %T% \n
    TEAM GETF \\.\PhysicalDrive%磁盘%,478#16,&T|  SET 信息=%信息%  主分区3: %T% \n
    TEAM GETF \\.\PhysicalDrive%磁盘%,494#16,&T|  SET 信息=%信息%  主分区4: %T% \n
    TEAM GETF \\.\PhysicalDrive%磁盘%,510#2,&T |  SET 信息=%信息%  标志   : %T% \n    
    PART list part %磁盘%,&全部分区
    SET 信息=%信息%  全部分区: %全部分区% \n
    SET 信息=%信息%  分区  类型 激活(1) 起始(字节)     长度(字节)    隐藏扇区     结尾(字节) 物理# 盘符\n
    forx * %全部分区%,&分区,
    {
	FIND $%分区%=0, EXIT -  //continue   SD Ka
	PART  -hextp -phy# list part %磁盘%#%分区%,&分区信息
    	SET 信息=%信息%    %分区信息% \n
    }
}

MESS+min  %信息% @磁盘分区信息#OK


