[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 8# ygqiang


    先不管多个硬盘的事情,试试合并之后能否正常执行吧。

TOP

试试这样合并:
DAIC 发表于 2015-1-2 18:49



    rem 判定是否是GPT磁盘。
这个bat代码,只能判定1个硬盘的情况。

如果有2个或者多个,就不行了。

TOP

试试这样合并:
DAIC 发表于 2015-1-2 18:49



    1楼的2个bat代码。

第一个bat 。只能判断1个硬盘的gpt情况

如果有2个或者多个硬盘,如何判断每个硬盘是MBR还是GTP?

TOP

试试这样合并:
  1. @echo off
  2. :IsGPT
  3. rem 判定是否是GPT磁盘。
  4. echo list disk >yiwuyun.txt
  5. for /f "skip=8 tokens=3 delims=B" %%k in ('diskpart /s yiwuyun.txt') do (
  6.         set temp=%%k
  7.         if "!temp:~8,1!"=="*" goto gpt
  8. )
  9. set gpt=false
  10. echo Your disk is MBR disk!
  11. ping 127.0.0.1 -n 5 >nul 2>nul
  12. goto nogpt
  13. :gpt
  14. set gpt=true
  15. echo Your disk is GPT disk!
  16. ping 127.0.0.1 -n 5 >nul 2>nul
  17. :nogpt
  18. del /f /q yiwuyun.txt
  19. del /q c:\diskinfo.* >nul 2>nul
  20. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
  21.     more +%%i "%~f0" > c:\diskinfo.vbs
  22. )
  23. ping 127.0.0.1 -n 2 >nul 2>nul
  24. echo ——————————————————————————————————————— >nul 2>nul
  25. start c:\diskinfo.vbs
  26. ping 127.0.0.1 -n 5 >nul 2>nul
  27. cls
  28. type c:\diskinfo.txt
  29. ping 127.0.0.1 -n 15 >nul 2>nul & del /q c:\diskinfo.* & exit/b
  30. goto :eof
  31. echo ——————————————————————————————————————— >nul 2>nul
  32. :DynamicScript
  33. Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  34. Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
  35. For Each objDisk in colDisks
  36.     i = i + 1
  37.     s = s & "硬盘" & i & ":" & vbTab
  38.     s = s & "大小:" & GetSize(objDisk.Size) & vbTab
  39.     s = s & "型号:" & objDisk.Caption & vbCrLf
  40.     strDiskID = Replace(objDisk.DeviceID, "\", "\\")
  41.     Set colPartitions = objWMI.ExecQuery _
  42.     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
  43.     & " where AssocClass=Win32_DiskDriveToDiskPartition")
  44.     For Each objPartition in colPartitions
  45.         strPartId = objPartition.DeviceID
  46.         Set colLogicalDisks = objWMI.ExecQuery _
  47.         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """}  where AssocClass=Win32_LogicalDiskToPartition")
  48.         For Each objLogicalDisk in colLogicalDisks
  49.             size = objLogicalDisk.Size
  50.             free = objLogicalDisk.Freespace
  51.             used = FormatNumber((size - free) / size * 100, 2, true) & "%"
  52.             s = s & "分区" & objLogicalDisk.DeviceID & vbTab
  53.             s = s & "大小:" & GetSize(size) & vbTab
  54.             s = s & "剩余:" & GetSize(free) & vbTab
  55.             s = s & "使用率:" & used & vbCrLf
  56.         Next
  57.     Next
  58.     s = s & vbCrLf
  59. Next
  60. Set fso = CreateObject("Scripting.FileSystemObject")
  61. fso.OpenTextFile("c:\diskinfo.txt", 2, true).Write s
  62. Function GetSize(intSize)
  63.     If intSize/1024/1024 > 1024 Then
  64.         GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
  65.     Else
  66.         Getize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
  67.     End If
  68. End Function
复制代码

TOP

第一个脚本不能达到功能吗?
第二个脚本是BAT+VBS混编。
yu2n 发表于 2015-1-2 12:51




第一个bat 。
只能判断1个硬盘的gpt情况

如果有2个或者多个硬盘,如何判断每个硬盘是MBR还是GTP?

TOP

第一个脚本不能达到功能吗?
第二个脚本是BAT+VBS混编。
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

回复 2# yiwuyun


    帮忙合并下1楼的2个代码?谢谢

最好合并成1个bat文件。谢谢

TOP

其实原理是一样的,依次对每个硬盘号进行判定就可以了。如果用VBS,而不是纯批,在WINPE下可能行不通。只有纯批才能保证在WINPE下也能运行。

TOP

返回列表