Board logo

标题: [系统相关] [已解决]bat批处理，硬盘格式及分区检测，能否按照硬盘0、1、2、3的顺序依次显示？ [打印本页]
作者: ygqiang    时间: 2015-1-20 23:24     标题: [已解决]bat批处理，硬盘格式及分区检测，能否按照硬盘0、1、2、3的顺序依次显示？

[已解决]bat批处理，硬盘格式及分区检测，能否按照硬盘0、1、2、3的顺序依次显示？
  1. @echo off

  2. 

  3. echo ——————————————————————————————————————— >nul 2>nul

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

  5. 

  6. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (

  7.     more +%%i "%~f0" > c:\diskinfo.vbs

  8. )

  9. 

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

  11. 

  12. cls

  13. cscript /nologo c:\diskinfo.vbs

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

  15. 

  16. CScript /NoLogo c:\diskinfo.vbs>c:\diskinfo.txt

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

  18. 

  19. cls

  20. Type c:\diskinfo.txt

  21. 

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

  23. 

  24. 

  25. 

  26. echo ——————————————————————————————————————— >nul 2>nul

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

  28. 

  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%"

  33. 

  34. cls

  35. type "%log%"

  36. 

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

  38. 

  39. goto :eof

  40. 

  41. 

  42. 

  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.   For Each objDisk in colDisks

  51.     s = s & "硬盘" & objDisk.Index & ":" & vbTab

  52.     s = s & "大小:" & GetSize(objDisk.Size) & vbTab

  53.     s = s & "型号:" & objDisk.Caption & vbTab

  54.     s = s & "分区表:" & IsGPT(objDisk.Index) & vbCrLf

  55.     strDiskID = Replace(objDisk.DeviceID, "\", "\\")

  56.     Set colPartitions = objWMI.ExecQuery _

  57.         ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _

  58.         & " where AssocClass=Win32_DiskDriveToDiskPartition")

  59.     For Each objPartition in colPartitions

  60.       strPartId = objPartition.DeviceID

  61.       Set colLogicalDisks = objWMI.ExecQuery _

  62.           ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """}  where AssocClass=Win32_LogicalDiskToPartition")

  63.       For Each objLogicalDisk in colLogicalDisks

  64.         size = objLogicalDisk.Size

  65.         free = objLogicalDisk.Freespace

  66.         used = FormatNumber((size - free) / size * 100, 2, true) & "%"

  67.         s = s & "分区" & objLogicalDisk.DeviceID & vbTab

  68.         s = s & "大小:" & GetSize(size) & vbTab

  69.         s = s & "剩余:" & GetSize(free) & vbTab

  70.         s = s & "使用率:" & used & vbCrLf

  71.       Next

  72.     Next

  73.     s = s & vbCrLf

  74.   Next

  75.   WScript.Echo s

  76. End Sub

  77. 

  78. ' 格式化

  79. Function GetSize(intSize)

  80.   If intSize/1024/1024 > 1024 Then

  81.     GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"

  82.   Else

  83.     GetSize = FormatNumber(intSize/1024/1024, 2, true) & "MB"

  84.   End If

  85. End Function

  86. 

  87. ' 获取指定硬盘的分区表类型(GPT/MBR)

  88. Function IsGPT(ByVal nDiskIndex)

  89.   IsGPT = "MBR"

  90.   Dim wso, sLogFile, sText

  91.   Set wso = CreateObject("WScript.Shell")

  92.   sLogFile = wso.ExpandenVironmentStrings("%temp%\diskpart.log")

  93.   wso.Run "cmd /c ""chcp 437 & cls & (echo list disk | diskpart | find /i ""Disk " & nDiskIndex & """) >""" & sLogFile & """ "" ", 0, False

  94.   Call TxtFile(sLogFile, 1, -2, sText)

  95.   If Trim(Right(sText,3)) = "*" Then IsGPT = "GPT"

  96. End Function

  97. 

  98. ' 对文本指定编码进行读写操作2

  99. 'nRW: 1只读, 2只写, 8追加 'nCharset: -2(系统), -1(Unicode), 0(ASCII)

  100. Sub TxtFile(ByVal FileName, ByVal nRW, ByVal nCharset, ByRef sText)

  101.   Dim fso :  Set fso = CreateObject("Scripting.filesystemobject")

  102.   If sText <> "" And (nRW = 2 Or nRW = 8) Then

  103.     fso.OpenTextFile(FileName, nRW, True, nCharset).Write sText

  104.   ElseIf fso.FileExists(FileName) And nRW = 1 Then

  105.     If fso.GetFile(FileName).Size > 0 Then _

  106.       sText = fso.OpenTextFile(FileName, nRW, False, nCharset).ReadAll

  107.   End If

  108. End Sub

  109. 

  110. ' 以管理员身份运行

  111. Sub RunAsAdmin()

  112.   Dim objItems, objItem, strVer, nVer

  113.   Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

  114.   For Each objItem In objItems

  115.     strVer = objItem.Version

  116.   Next

  117.   nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)

  118.   If nVer >= 60 Then

  119.     Dim oShell, oArg, strArgs

  120.     Set oShell = CreateObject("Shell.Application")

  121.     If Not WScript.Arguments.Named.Exists("ADMIN") Then

  122.       For Each oArg In WScript.Arguments

  123.         strArgs = strArgs & " """ & oArg & """"

  124.       Next

  125.       strArgs = strArgs & " /ADMIN:1"

  126.       Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)

  127.       Set oShell = Nothing

  128.       WScript.Quit(0)

  129.     End If

  130.     Set oShell = Nothing

  131.   End If

  132. End Sub
复制代码
作者: yu2n    时间: 2015-1-21 06:24

本帖最后由 yu2n 于 2015-1-21 06:27 编辑 
  1. Main

  2. Sub Main()

  3.   Dim objWMI, colDisks

  4.   Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

  5.   Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")

  6.   ' 获取硬盘最大序号

  7.   nIndexMax = 0

  8.   For Each objDisk in colDisks

  9.     If Cint(objDisk.Index) > nIndexMax Then nIndexMax = Cint(objDisk.Index)

  10.   Next

  11.   ' 按序号取信息

  12.   For i = 0 To nIndexMax

  13.     For Each objDisk in colDisks

  14.       ' 只取该序号信息

  15.       If objDisk.Index = i Then

  16.         s = s & "硬盘" & objDisk.Index & ":" & vbTab

  17.         s = s & "大小:" & GetSize(objDisk.Size) & vbTab

  18.         s = s & "型号:" & objDisk.Caption & vbTab

  19.         s = s & "分区表:" & IsGPT(objDisk.Index) & vbCrLf

  20.         strDiskID = Replace(objDisk.DeviceID, "\", "\\")

  21.         Set colPartitions = objWMI.ExecQuery _

  22.             ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _

  23.             & " where AssocClass=Win32_DiskDriveToDiskPartition")

  24.         For Each objPartition in colPartitions

  25.           strPartId = objPartition.DeviceID

  26.           Set colLogicalDisks = objWMI.ExecQuery _

  27.               ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId _

  28.               & """}  where AssocClass=Win32_LogicalDiskToPartition")

  29.           For Each objLogicalDisk in colLogicalDisks

  30.             size = objLogicalDisk.Size

  31.             free = objLogicalDisk.Freespace

  32.             used = FormatNumber((size - free) / size * 100, 2, true) & "%"

  33.             s = s & "分区" & objLogicalDisk.DeviceID & vbTab

  34.             s = s & "大小:" & GetSize(size) & vbTab

  35.             s = s & "剩余:" & GetSize(free) & vbTab

  36.             s = s & "使用率:" & used & vbCrLf

  37.           Next

  38.         Next

  39.         s = s & vbCrLf

  40.       End If

  41.     Next

  42.   Next

  43. 

  44.   WScript.Echo s

  45. End Sub
复制代码
结果：
  1. 硬盘0:  大小:298.09GB   型号:ST3320613AS        分区表:MBR

  2. 分区C:  大小:100.07GB   剩余:92.77GB    使用率:7.30%

  3. 

  4. 硬盘1:  大小:298.09GB   型号:Hitachi HDS721032CLA362    分区表:MBR

  5. 

  6. 硬盘2:  大小:298.09GB   型号:Hitachi HDS721032CLA362    分区表:MBR

  7. 

  8. 硬盘3:  大小:465.76GB   型号:WDC WD5000AAKX-001CA0      分区表:MBR

  9. 分区D:  大小:365.76GB   剩余:148.91GB   使用率:59.29%
复制代码
作者: ygqiang    时间: 2015-1-21 07:10

结果：
yu2n 发表于 2015-1-21 06:24



    win7 64原版系统    2个硬盘环境   运行有错误。最后也没有显示啥结果。

能否在1楼代码基础上，简单修改下，实现？
作者: yu2n    时间: 2015-1-21 09:47

本帖最后由 yu2n 于 2015-1-21 09:58 编辑

自行替换 45-76 行。

问之前能思考一下？
这样一点都不好，完全不懂的话要慢慢看，查清楚是做什么用的。
胡乱拼凑，害人害己。

坛子里面都看到好几个这样的了，不求甚解，一点都不去想代码会有怎样的后果。
甚至看到一个什么清理工具，随便删用户的数据文件，一个个分区的删，真心觉得这样不好。
作者: ygqiang    时间: 2015-1-21 11:21

本帖最后由 ygqiang 于 2015-1-21 11:22 编辑

[已解决]多谢。。。。
  1. @echo off

  2. 

  3. echo ——————————————————————————————————————— >nul 2>nul

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

  5. 

  6. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (

  7.     more +%%i "%~f0" > c:\diskinfo.vbs

  8. )

  9. 

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

  11. 

  12. cls

  13. cscript /nologo c:\diskinfo.vbs

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

  15. 

  16. CScript /NoLogo c:\diskinfo.vbs>c:\diskinfo.txt

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

  18. 

  19. cls

  20. Type c:\diskinfo.txt

  21. 

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

  23. 

  24. 

  25. 

  26. echo ——————————————————————————————————————— >nul 2>nul

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

  28. 

  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%"

  33. 

  34. cls

  35. type "%log%"

  36. 

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

  38. 

  39. goto :eof

  40. 

  41. 

  42. 

  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

  87. 

  88.   WScript.Echo s

  89. End Sub

  90. 

  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

  99. 

  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

  110. 

  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

  122. 

  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
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2