设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [已解决]引导方式-分区表类型-空间占用-接口协议 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 8637|回复: 5

[系统相关] [已解决]引导方式-分区表类型-空间占用-接口协议

[复制链接]
ygqiang
发表于 2025-2-12 10:20:38 | 显示全部楼层 |阅读模式
本帖最后由 ygqiang 于 2025-2-13 22:05 编辑

[已解决]引导方式-分区表类型-空间占用-接口协议
请直接看6楼代码

磁盘分区容量-类型分析，gpt类型判断为mbr，如何修改？
win10系统，磁盘0为mbr，磁盘1为gpt。
bat文件编码保存为ANSI，运行代码后，分区表类型均显示mbr
  1. @echo off

  3. echo ——————————————————————————————————————— >nul 2>nul
  4. if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul)

  6. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
  7.     more +%%i "%~f0" > c:\diskinfo.vbs
  8. )

  10. ping 127.0.0.1 -n 2 >nul 2>nul

  12. cls
  13. cscript /nologo c:\diskinfo.vbs
  14. ping 127.0.0.1 -n 2 >nul 2>nul

  16. CScript /NoLogo c:\diskinfo.vbs>c:\diskinfo.txt
  17. ping 127.0.0.1 -n 2 >nul 2>nul

  19. cls
  20. Type c:\diskinfo.txt

  22. ping 127.0.0.1 -n 15 >nul 2>nul & if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul)



  26. echo ——————————————————————————————————————— >nul 2>nul
  27. if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul)

  29. set "vbs=c:\diskinfo.vbs"
  30. set "log=c:\diskinfo.log"
  31. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (more +%%i "%~f0" > "%vbs%")
  32. CScript //NoLogo "%vbs%" > "%log%"

  34. cls
  35. type "%log%"

  37. ping 127.0.0.1 -n 5 >nul 2>nul & if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul) & exit/b

  39. goto :eof



  43. echo ——————————————————————————————————————— >nul 2>nul
  44. :DynamicScript
  45. Main
  46. Sub Main()
  47.   Dim objWMI, colDisks
  48.   Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  49.   Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
  50.   ' 获取硬盘最大序号
  51.   nIndexMax = 0
  52.   For Each objDisk in colDisks
  53.     If Cint(objDisk.Index) > nIndexMax Then nIndexMax = Cint(objDisk.Index)
  54.   Next
  55.   ' 按序号取信息
  56.   For i = 0 To nIndexMax
  57.     For Each objDisk in colDisks
  58.       ' 只取该序号信息
  59.       If objDisk.Index = i Then
  60.         s = s & "硬盘" & objDisk.Index & ":" & vbTab
  61.         s = s & "大小:" & GetSize(objDisk.Size) & vbTab
  62.         s = s & "型号:" & objDisk.Caption & vbTab
  63.         s = s & "分区表:" & IsGPT(objDisk.Index) & vbCrLf
  64.         strDiskID = Replace(objDisk.DeviceID, "", "\")
  65.         Set colPartitions = objWMI.ExecQuery _
  66.             ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
  67.             & " where AssocClass=Win32_DiskDriveToDiskPartition")
  68.         For Each objPartition in colPartitions
  69.           strPartId = objPartition.DeviceID
  70.           Set colLogicalDisks = objWMI.ExecQuery _
  71.               ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId _
  72.               & """}  where AssocClass=Win32_LogicalDiskToPartition")
  73.           For Each objLogicalDisk in colLogicalDisks
  74.             size = objLogicalDisk.Size
  75.             free = objLogicalDisk.Freespace
  76.             used = FormatNumber((size - free) / size * 100, 2, true) & "%"
  77.             s = s & "分区" & objLogicalDisk.DeviceID & vbTab
  78.             s = s & "大小:" & GetSize(size) & vbTab
  79.             s = s & "剩余:" & GetSize(free) & vbTab
  80.             s = s & "使用率:" & used & vbCrLf
  81.           Next
  82.         Next
  83.         s = s & vbCrLf
  84.       End If
  85.     Next
  86.   Next

  88.   WScript.Echo s
  89. End Sub

  91. ' 格式化
  92. Function GetSize(intSize)
  93.   If intSize/1024/1024 > 1024 Then
  94.     GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
  95.   Else
  96.     GetSize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
  97.   End If
  98. End Function

  100. ' 获取指定硬盘的分区表类型(GPT/MBR)
  101. Function IsGPT(ByVal nDiskIndex)
  102.   IsGPT = "MBR"
  103.   Dim wso, sLogFile, sText
  104.   Set wso = CreateObject("WScript.Shell")
  105.   sLogFile = wso.ExpandenVironmentStrings("%temp%\diskpart.log")
  106.   wso.Run "cmd /c ""chcp 437 & cls & (echo list disk | diskpart | find /i ""Disk " & nDiskIndex & """) >""" & sLogFile & """ "" ", 0, False
  107.   Call TxtFile(sLogFile, 1, -2, sText)
  108.   If Trim(Right(sText,3)) = "*" Then IsGPT = "GPT"
  109. End Function

  111. ' 对文本指定编码进行读写操作2
  112. 'nRW: 1只读, 2只写, 8追加 'nCharset: -2(系统), -1(Unicode), 0(ASCII)
  113. Sub TxtFile(ByVal FileName, ByVal nRW, ByVal nCharset, ByRef sText)
  114.   Dim fso :  Set fso = CreateObject("Scripting.filesystemobject")
  115.   If sText <> "" And (nRW = 2 Or nRW = 8) Then
  116.     fso.OpenTextFile(FileName, nRW, True, nCharset).Write sText
  117.   ElseIf fso.FileExists(FileName) And nRW = 1 Then
  118.     If fso.GetFile(FileName).Size > 0 Then _
  119.       sText = fso.OpenTextFile(FileName, nRW, False, nCharset).ReadAll
  120.   End If
  121. End Sub

  123. ' 以管理员身份运行
  124. Sub RunAsAdmin()
  125.   Dim objItems, objItem, strVer, nVer
  126.   Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
  127.   For Each objItem In objItems
  128.     strVer = objItem.Version
  129.   Next
  130.   nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)
  131.   If nVer >= 60 Then
  132.     Dim oShell, oArg, strArgs
  133.     Set oShell = CreateObject("Shell.Application")
  134.     If Not WScript.Arguments.Named.Exists("ADMIN") Then
  135.       For Each oArg In WScript.Arguments
  136.         strArgs = strArgs & " """ & oArg & """"
  137.       Next
  138.       strArgs = strArgs & " /ADMIN:1"
  139.       Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)
  140.       Set oShell = Nothing
  141.       WScript.Quit(0)
  142.     End If
  143.     Set oShell = Nothing
  144.   End If
  145. End Sub
复制代码
回复

举报

ygqiang
 楼主| 发表于 2025-2-12 10:25:03 | 显示全部楼层
  1. powershell –NoProfile –ExecutionPolicy Bypass "Get-Disk"
复制代码
bat文件里面，以上命令可以显示正常的GPT和MBR
回复

举报

newswan
发表于 2025-2-12 10:38:04 | 显示全部楼层
本帖最后由 newswan 于 2025-2-12 11:01 编辑

给个参考
http://www.bathome.net/viewthread.php?tid=68303&highlight=
http://www.bathome.net/viewthread.php?tid=70544&extra=
回复

举报

aloha20200628
发表于 2025-2-13 10:58:41 | 显示全部楼层
本帖最后由 aloha20200628 于 2025-2-13 11:45 编辑

回复 2# ygqiang

用 powershell/vbs/jscript/wmic/... 等方法均可获取硬盘数据，比较而言，走 powershell 之道要慢一些，但要获取硬盘分区类型 MBR/GPT 数据还是 powershell 句式最简洁，以下给一个示例脚本，先完成自启提权窗口再来获取 MBR/GPT 数据，代码存为 test.bat 运行...

  2. @echo off
  3. %~1 powershell "start -file '%~f0' -arg '::' -verb runas" &exit/b
  4. echo,...正在获取本地和外接硬盘数据...
  5. powershell "get-disk|%%{''+$_.number+' '+[math]::round($_.size/1tb,1)+'TB '+$_.partitionStyle+' '+$_.FriendlyName}"|sort
  6. pause&exit/b
复制代码
回复

举报

ygqiang
 楼主| 发表于 2025-2-13 21:10:01 | 显示全部楼层
回复 4# aloha20200628


    谢谢。
  1. @echo off & setlocal enabledelayedexpansion
  2. echo 代码开始
  3. cls

  5. echo ------------系统引导方式:
  6. powershell –NoProfile –ExecutionPolicy Bypass "$env:Firmware_Type"

  8. echo.
  9. echo.
  10. echo ------------硬盘格式::
  11. powershell –NoProfile –ExecutionPolicy Bypass "Get-Disk"

  13. pause >nul
  14. exit
复制代码
回复

举报

ygqiang
 楼主| 发表于 2025-2-13 22:02:11 | 显示全部楼层
本帖最后由 ygqiang 于 2025-4-9 18:47 编辑

已解决，接近完美的代码。引导方式-分区表类型-空间占用-接口协议
  1. @echo off & setlocal enabledelayedexpansion
  2. echo 代码开始
  3. cls

  5. echo ——————————————————————————————————————— >nul 2>nul
  6. if exist "diskinfo.*" (echo del /q "diskinfo.*" >nul 2>nul)

  8. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
  9.     more +%%i "%~f0" > diskinfo.vbs
  10. )

  12. del /q "diskinfo.*" >nul 2>nul

  14. ping 127.0.0.1 -n 2 >nul 2>nul
  15. cls

  17. :stat
  18. cls

  20. echo ------------系统引导方式:
  21. powershell –NoProfile –ExecutionPolicy Bypass "$env:Firmware_Type"

  23. echo.
  24. echo ------------硬盘分区表类型::
  25. powershell "get-disk|%%{''+'     '+$_.number+' '+'    '+$_.partitionStyle+'   '+$_.FriendlyName}"|sort


  28. echo.
  29. echo.

  31. cd /d "%~dp0"
  32. echo ------------------分区表类型1.vbs------------------
  33. cscript //Nologo 分区表类型1.vbs


  36. echo.
  37. echo.

  39. cd /d "%~dp0"
  40. echo ------------------分区表类型2.vbs------------------
  41. cscript //Nologo 分区表类型2.vbs

  43. echo.
  44. echo.



  48. echo ------------硬盘接口协议::
  49. echo.           协议   机械/固态    接口
  50. set "_NVMe=NVMe====SSD    ::::::m.2"
  51. set "_USB=USB"
  52. set "_SATA=SATA====HDD/SSD::::::SATA-MSATA-m.2"
  53. for /f "tokens=2,4,5" %%a in ('"echo list disk|diskpart|findstr /irc:"磁盘  *[0-9]""') do (
  54.      for /f "tokens=3" %%i in ('"(echo sel disk %%a & echo detail disk & echo list part)|diskpart|findstr /irc:"类型  *:""') do (
  55.           if defined _%%i echo       %%a:   !_%%i!           %%b %%c
  56.      )
  57. )

  59. ping 127.0.0.1 -n 16 >nul 2>nul
  60. if exist "diskinfo.*" (echo del /q "diskinfo.*" >nul 2>nul)

  62. goto :stat

  64. exit





  70. CScript /NoLogo diskinfo.vbs>diskinfo.txt
  71. ping 127.0.0.1 -n 2 >nul 2>nul
  72. cls

  74. Type diskinfo.txt



  78. echo ——————————————————————————————————————— >nul 2>nul
  79. if exist "diskinfo.*" (echo del /q "diskinfo.*" >nul 2>nul)

  81. set "vbs=diskinfo.vbs"
  82. set "log=diskinfo.log"
  83. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (more +%%i "%~f0" > "%vbs%")
  84. CScript //NoLogo "%vbs%" > "%log%"

  86. cls
  87. type "%log%"

  89. ping 127.0.0.1 -n 16 >nul 2>nul & if exist "diskinfo.*" (echo del /q "diskinfo.*" >nul 2>nul) & exit/b

  91. goto :eof



  95. echo ——————————————————————————————————————— >nul 2>nul
  96. :DynamicScript
  97. Main
  98. Sub Main()
  99.   Dim objWMI, colDisks
  100.   Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  101.   Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
  102.   ' 获取硬盘最大序号
  103.   nIndexMax = 0
  104.   For Each objDisk in colDisks
  105.     If Cint(objDisk.Index) > nIndexMax Then nIndexMax = Cint(objDisk.Index)
  106.   Next
  107.   ' 按序号取信息
  108.   For i = 0 To nIndexMax
  109.     For Each objDisk in colDisks
  110.       ' 只取该序号信息
  111.       If objDisk.Index = i Then
  112.         s = s & "硬盘" & objDisk.Index & ":" & vbTab
  113.         s = s & "大小:" & GetSize(objDisk.Size) & vbTab
  114.         s = s & "型号:" & objDisk.Caption &  vbCrLf
  115.         's = s & "型号:" & objDisk.Caption & vbTab
  116.         's = s & "分区表:" & IsGPT(objDisk.Index) & vbCrLf
  117.         strDiskID = Replace(objDisk.DeviceID, "", "\")
  118.         Set colPartitions = objWMI.ExecQuery _
  119.             ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
  120.             & " where AssocClass=Win32_DiskDriveToDiskPartition")
  121.         For Each objPartition in colPartitions
  122.           strPartId = objPartition.DeviceID
  123.           Set colLogicalDisks = objWMI.ExecQuery _
  124.               ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId _
  125.               & """}  where AssocClass=Win32_LogicalDiskToPartition")
  126.           For Each objLogicalDisk in colLogicalDisks
  127.             size = objLogicalDisk.Size
  128.             free = objLogicalDisk.Freespace
  129.             used = FormatNumber((size - free) / size * 100, 2, true) & "%"
  130.             s = s & "分区" & objLogicalDisk.DeviceID & vbTab
  131.             s = s & "大小:" & GetSize(size) & vbTab
  132.             s = s & "剩余:" & GetSize(free) & vbTab
  133.             s = s & "使用率:" & used & vbCrLf
  134.           Next
  135.         Next
  136.         s = s & vbCrLf
  137.       End If
  138.     Next
  139.   Next

  141.   WScript.Echo s
  142. End Sub

  144. ' 格式化
  145. Function GetSize(intSize)
  146.   If intSize/1024/1024 > 1024 Then
  147.     GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
  148.   Else
  149.     GetSize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
  150.   End If
  151. End Function

  153. ' 获取指定硬盘的分区表类型(GPT/MBR)
  154. Function IsGPT(ByVal nDiskIndex)
  155.   IsGPT = "MBR"
  156.   Dim wso, sLogFile, sText
  157.   Set wso = CreateObject("WScript.Shell")
  158.   sLogFile = wso.ExpandenVironmentStrings("%temp%\diskpart.log")
  159.   wso.Run "cmd /c ""chcp 437 & cls & (echo list disk | diskpart | find /i ""Disk " & nDiskIndex & """) >""" & sLogFile & """ "" ", 0, False
  160.   Call TxtFile(sLogFile, 1, -2, sText)
  161.   If Trim(Right(sText,3)) = "*" Then IsGPT = "GPT"
  162. End Function

  164. ' 对文本指定编码进行读写操作2
  165. 'nRW: 1只读, 2只写, 8追加 'nCharset: -2(系统), -1(Unicode), 0(ASCII)
  166. Sub TxtFile(ByVal FileName, ByVal nRW, ByVal nCharset, ByRef sText)
  167.   Dim fso :  Set fso = CreateObject("Scripting.filesystemobject")
  168.   If sText <> "" And (nRW = 2 Or nRW = 8) Then
  169.     fso.OpenTextFile(FileName, nRW, True, nCharset).Write sText
  170.   ElseIf fso.FileExists(FileName) And nRW = 1 Then
  171.     If fso.GetFile(FileName).Size > 0 Then _
  172.       sText = fso.OpenTextFile(FileName, nRW, False, nCharset).ReadAll
  173.   End If
  174. End Sub

  176. ' 以管理员身份运行
  177. Sub RunAsAdmin()
  178.   Dim objItems, objItem, strVer, nVer
  179.   Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
  180.   For Each objItem In objItems
  181.     strVer = objItem.Version
  182.   Next
  183.   nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)
  184.   If nVer >= 60 Then
  185.     Dim oShell, oArg, strArgs
  186.     Set oShell = CreateObject("Shell.Application")
  187.     If Not WScript.Arguments.Named.Exists("ADMIN") Then
  188.       For Each oArg In WScript.Arguments
  189.         strArgs = strArgs & " """ & oArg & """"
  190.       Next
  191.       strArgs = strArgs & " /ADMIN:1"
  192.       Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)
  193.       Set oShell = Nothing
  194.       WScript.Quit(0)
  195.     End If
  196.     Set oShell = Nothing
  197.   End If
  198. End Sub
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 08:46 , Processed in 0.021572 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表