获得硬盘分区写入文件.au3

*fuldho* *发表于 2012-01-11 14:02:33* · 发表于 2012-01-11 14:02:33

$fini = @ScriptDir &"\d.ini"
_test()
FileDelete($fini)
$fini2 = @ScriptDir &"\di.ini"
Func _test()
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colDiskDrives = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
For $objDrive In $colDiskDrives
      $strDeviceID = StringReplace($objDrive.DeviceID, "\", "\\")
      $colPartitions = $objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & $strDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
      $Read = IniRead($fini, "磁盘","磁盘列表","") ;申明
      $d = StringRight ($strDeviceID,1)          ;读取磁盘号
      IniWrite ($fini, "磁盘","磁盘列表",$Read&$d) ;申明+磁盘号，写入配置文件
      IniWrite ($fini, "磁盘","HD"&$d,$objDrive.Caption)  ;磁盘号\磁盘名，写入配置文件
      $d=$d+1
For $objPartition In $colPartitions
   $colLogicalDisks = $objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & $objPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
      For $objLogicalDisk In $colLogicalDisks
            $Read0 = IniRead($fini, "磁盘",$objDrive.Caption,"")    ;读取磁盘分区
            $dd = StringLen($Read0)                                     ;读取磁盘分区号
            $dd0 = $dd+1                                                    ;读取磁盘分区号+1
            $Str = StringReplace($objLogicalDisk.DeviceID, ":", "")                ;删除分区号冒号
            IniWrite ($fini, "磁盘",$objDrive.Caption,$Read0&$Str)             ;磁盘名=分区名，写入配置文件
            IniWrite (@ScriptDir &"\di.ini", "磁盘", $objLogicalDisk.DeviceID,$d&":"&$dd0) ;盘符名=磁盘号: 分区号
      Next
Next
Next
EndFunc

*dagrady* *发表于 2013-01-22 10:40:02* · 发表于 2013-01-22 10:40:02

不知道最后一个分区要怎么写。

*不离不弃* *发表于 2013-01-12 21:02:25* · 发表于 2013-01-12 21:02:25

不错。呵呵。

*chzj589* *发表于 2012-11-15 20:33:55* · 发表于 2012-11-15 20:33:55

谢谢楼主分享！

*低调上网* *发表于 2012-07-24 13:42:42* · 发表于 2012-07-24 13:42:42

回复看看研究下

*jsgh1983* *发表于 2012-03-11 18:41:20* · 发表于 2012-03-11 18:41:20

学习下实例，以后会用的到。谢谢楼主分享！

*|▍、ー种、未完* *发表于 2012-02-03 11:48:24* · 发表于 2012-02-03 11:48:24

谢谢楼主分享！

*电脑爱好者* *发表于 2012-01-12 01:51:32* · 发表于 2012-01-12 01:51:32

谢谢楼主分享！

楼主| *fuldho* *发表于 2012-01-11 14:29:43* · 发表于 2012-01-11 14:29:43

②號发表于 2012/1/11 14:14
要过年了，大家都很忙，楼主辛苦。

一年前写的，只是才分享出来而已。

[其它] 获得硬盘分区写入文件.au3

本帖子中包含更多资源

评分