VBScript 脚本调用 WMI 获取硬盘与分区个数及其对应关系

IUnknown

1. 'VBScript 脚本调用 WMI 获取硬盘与分区个数及其对应关系
   
2. 'By IUnknown @ www.bathome.net 批处理之家
   
3. 
   
4. 'Ref: http://msdn.microsoft.com/en-us/library/windows/desktop/aa393259(v=vs.85).aspx
   
5. 
   
6. LineSeparator = String(79, "=")
   
7. ItemSeparator = String(79, "-")
   
8. 
   
9. RunInCmd
   
10. 
    
11. Set objWbemServices = GetObject("winmgmts:\\.\root\cimv2")
    
12. 
    
13. Set colDiskDrives = objWbemServices.ExecQuery("SELECT * FROM Win32_DiskDrive")
    
14. WScript.Echo "硬盘个数: " & colDiskDrives.Count
    
15. WScript.Echo
    
16. For Each objDrive In colDiskDrives
    
17.     WScript.Echo "硬盘名称: " & objDrive.Caption & " | " & objDrive.DeviceID
    
18.     Set colPartitions = objWbemServices.ExecQuery( _
    
19.         "ASSOCIATORS OF {" & objDrive.SystemProperties_("__RelPath") & "} " _
    
20.         & " WHERE AssocClass = Win32_DiskDriveToDiskPartition")
    
21.     WScript.Echo "物理区数: " & colPartitions.Count
    
22.     WScript.Echo "逻辑区数: " & objDrive.Partitions
    
23.     WScript.Echo LineSeparator
    
24.     For Each objPartition In colPartitions
    
25.         WScript.Echo "物理分区: " & objPartition.DeviceID _
    
26.             & " | " & IIF(objPartition.PrimaryPartition, "主分区", "扩展分区")
    
27.         WScript.Echo ItemSeparator
    
28.         Set colLogicalDisks = objWbemServices.ExecQuery( _
    
29.             "ASSOCIATORS OF {" & objPartition.SystemProperties_("__RelPath") & "} " _
    
30.             & " WHERE AssocClass = Win32_LogicalDiskToPartition")
    
31.         For Each objLogicalDisk In colLogicalDisks
    
32.             WScript.Echo "逻辑分区: " & objLogicalDisk.DeviceID _
    
33.                 & " | " & objLogicalDisk.FileSystem
    
34.         Next
    
35.         If colLogicalDisks.Count=0 Then
    
36.             WScript.Echo "未分配盘符"
    
37.         End If
    
38.         WScript.Echo LineSeparator
    
39.     Next
    
40. Next
    
41. 
    
42. Function IIF(expr, TruePart, FalsePart)
    
43.   If (expr) Then
    
44.     IIF = TruePart
    
45.   Else
    
46.     IIF = FalsePart
    
47.   End If
    
48. End Function
    
49. 
    
50. Function strdup(s, n)
    
51.     Dim a() : ReDim a(n)
    
52.     strdup = Join(a, s)
    
53. End Function
    
54. 
    
55. Sub RunInCmd()
    
56.   If InStr(1, WScript.FullName, "wscript.exe", 1) Then
    
57.     CreateObject("WScript.Shell").Run "cmd.exe /d /c " _
    
58.         & "title IUnknown @ www.bathome.net | cscript.exe -nologo """ _
    
59.         & WScript.ScriptFullName & """ &pause"
    
60.     WScript.Quit
    
61.   End If
    
62. End Sub
    
63. 
    

复制代码

IUnknown

JavaScript/JScript 脚本调用 WMI 获取硬盘与分区个数及其对应关系

1. @set @n=0//& cscript.exe -nologo -e:jscript "%~f0" &pause&exit/b
   
2. 
   
3. // JavaScript/JScript 脚本调用 WMI 获取硬盘与分区个数及其对应关系
   
4. // By IUnknown @ www.bathome.net 批处理之家
   
5. 
   
6. // Ref: http://msdn.microsoft.com/en-us/library/windows/desktop/aa393259(v=vs.85).aspx
   
7. 
   
8. LineSeparator = strdup("=", 79);
   
9. ItemSeparator = strdup("-", 40);
   
10. 
    
11. objWbemServices = GetObject("winmgmts:\\\\.\\root\\cimv2");
    
12. 
    
13. colDiskDrives = objWbemServices.ExecQuery("SELECT * FROM Win32_DiskDrive");
    
14. WScript.Echo( "硬盘个数: " + colDiskDrives.Count );
    
15. WScript.Echo( );
    
16. enumItems = new Enumerator(colDiskDrives);
    
17. for (; !enumItems.atEnd(); enumItems.moveNext())
    
18. {
    
19.     objDrive = enumItems.item();
    
20.     WScript.Echo( "硬盘名称: " + objDrive.Caption + " | " + objDrive.DeviceID );
    
21.     colPartitions = objWbemServices.ExecQuery(
    
22.         "ASSOCIATORS OF {" + objDrive.SystemProperties_("__RelPath") + "} "
    
23.         + " WHERE AssocClass = Win32_DiskDriveToDiskPartition");
    
24.     WScript.Echo( "物理区数: " + colPartitions.Count );
    
25.     WScript.Echo( "逻辑区数: " + objDrive.Partitions );
    
26.     WScript.Echo( LineSeparator );
    
27. 
    
28.     enumItems2 = new Enumerator(colPartitions);
    
29.     for (; !enumItems2.atEnd(); enumItems2.moveNext())
    
30.     {
    
31.         objPartition = enumItems2.item();
    
32.         WScript.Echo( "物理分区: " + objPartition.DeviceID
    
33.             + " | " + (objPartition.PrimaryPartition? "主分区" : "扩展分区") );
    
34.         WScript.Echo( ItemSeparator );
    
35. 
    
36.         colLogicalDisks = objWbemServices.ExecQuery(
    
37.             "ASSOCIATORS OF {" + objPartition.SystemProperties_("__RelPath") + "} "
    
38.             + " WHERE AssocClass = Win32_LogicalDiskToPartition");
    
39.         enumItems3 = new Enumerator(colLogicalDisks);
    
40.         for (; !enumItems3.atEnd(); enumItems3.moveNext())
    
41.         {
    
42.             objLogicalDisk = enumItems3.item();
    
43.             WScript.Echo( "逻辑分区: " + objLogicalDisk.DeviceID
    
44.                 + " | " + objLogicalDisk.FileSystem );
    
45.         }
    
46.         if (0 == colLogicalDisks.Count) WScript.Echo( "未分配盘符" );
    
47. 
    
48.         WScript.Echo( LineSeparator );
    
49.     }
    
50. }
    
51. 
    
52. function strdup(s, n)
    
53. {
    
54.     return new Array(n+1).join(s);
    
55. }
    
56. 
    

复制代码

tiandyoin

不正确，在 win11 上用vb js 得到结果都 不对，用 PS 得到结果是对的。想写个batch ，但不会