ghost自动备份时，活动主分区、最后分区号与盘符的确定思路和批处理（含win/dos下）

haohaodlam

minito 兼容性不是很好　ＳＡＴＡ和ＡＴＡ混用的情况下ＯＤＳ下运行死机　（已经加了－ＮＯＨＰ）参数

lpic2003

谢谢！留下来看看.
还不够字！哈哈

lianjiang

批处理只是提供一种方法和思路，仅供参考。
我也发现minito兼容性不佳，已经放弃，gghost中早已改用dspt了。

willsion

原帖由 lianjiang 于 2007-7-2 10:24 PM 发表
批处理只是提供一种方法和思路，仅供参考。
我也发现minito兼容性不佳，已经放弃，gghost中早已改用dspt了。

lianjiang大虾，dspt有windows版本吗？

能否提供一个，谢谢了。

lianjiang

原帖由 willsion 于 2007-7-11 12:11 AM 发表


lianjiang大虾，dspt有windows版本吗？

能否提供一个，谢谢了。

目前是测试版，我的网盘有下载，无限制。『dsptw_test_win32 目录中』，无需密码。
据作者说，若无bug报告的话，7月15日日后将发布正式版。
马上就会出正式版了。

lianjiang

关于dspt的更多信息，请去dos联盟论坛查询。

willsion

原帖由 lianjiang 于 2007-7-11 08:26 AM 发表

目前是测试版，我的网盘有下载，无限制。『dsptw_test_win32 目录中』，无需密码。
据作者说，若无bug报告的话，7月15日日后将发布正式版。
马上就会出正式版了。

从您的网盘下载了测试版。

关注正式版发布时间。

谢谢了。

[ 本帖最后由 willsion 于 2007-7-11 09:14 AM 编辑 ]

willsion

利用dsptw.exe读取当前硬盘（第一硬盘）活动分区的au3脚本。
请各位大侠指正。

#include <process.au3>
#include <file.au3>

Dim $file1,$found,$i,$nline,$str

FileInstall("dsptw.exe",@ScriptDir & "\dsptw.exe",1)
_rundos( @ScriptDir & "\dsptw.exe 0 /l > " & @TempDir & "\partinfo.txt")
$nline=_FileCountLines(@TempDir & "\partinfo.txt")
$file1=FileOpen(@TempDir & "\partinfo.txt",0)
If $file1=-1 Then MsgBox(16,"错误","不能读取数据文件！")

For $i=6 to $nline+1 Step 1
   $str=FileReadLine($file1,$i)
   $found=StringInStr($str,"yes")
   if $found <> 0 Then ExitLoop
   Next

If $found = 0 Then
   MsgBox(48,"活动分区","当前硬盘没有活动分区！")
   Exit
Else
   msgbox(64,"活动分区","当前硬盘活动分区为" & StringMid($str,6,2) & " ")
EndIf

[ 本帖最后由 willsion 于 2007-7-31 11:12 AM 编辑 ]

lianjiang

原帖由 willsion 于 2007-7-31 10:56 AM 发表
利用dsptw.exe读取当前硬盘（第一硬盘）活动分区的au3脚本。
请各位大侠指正。

dsptw已发布正式版。

willsion

原帖由 lianjiang 于 2007-7-31 11:30 AM 发表

dsptw已发布正式版。

我是从您的网盘上下载的0717版，应该是正式版了。

lianjiang

0717是正式版。。。。。。。。。

LOL

好像在本论坛也发过。。。。。。

willsion

读取机器硬盘活动分区AU3脚本修正版。

支持多个硬盘。

#include <process.au3>
#include <file.au3>
Dim $file1,$active,$i,$str
FileInstall("dsptw.exe",@ScriptDir & "\dsptw.exe",1)
_rundos( @ScriptDir & "\dsptw.exe /A /PDR > " & @TempDir & "\partinfo.txt")
$file1=FileOpen(@TempDir & "\partinfo.txt",0)
If $file1=-1 Then MsgBox(16,"错误","不能读取数据文件！")
$i=3
$str=FileReadLine($file1,$i)
Do
   $active=StringMid($str,9,1)
   If $active="A" Then ExitLoop
   $i=$i+1
   $str=FileReadLine($file1,$i)
   Until @error=-1
   
If $active<>"A" Then
MsgBox(48,"活动分区","当前机器硬盘没有活动分区！")
Else
msgbox(64,"活动分区","当前机器硬盘活动分区为" & StringLeft($str,2) & " ")
EndIf