[已解决]批处理如何以以MB和GB为单位转换内存和硬盘的容量大小？

dennisle

請教批處理前輩及大哥們

小弟想求得實體內存計算成(MB)以及磁碟大小計算成(GB)

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "tokens=1* delims==" %%a in ('wmic path win32_physicalmemory get banklabel^,capacity /value 2^>nul') do (
   
4.         if /i "%%a"=="banklabel" set "banklabel=%%b"
   
5.         if /i "%%a"=="capacity" set /a "capacity=%%b/1024/1024" & echo.實體內存 = !capacity! MB !banklabel:~,-1!
   
6. )
   
7. for /f "tokens=1* delims==" %%a in ('wmic path win32_diskdrive get caption^,interfacetype^,size /value 2^>nul') do (
   
8.         if /i "%%a"=="caption" set "caption=%%b"
   
9.         if /i "%%a"=="size" set /a "size=%%b/1024/1024" & ECHO.磁碟名稱 = !Caption:~,-1!  Size: !Disk! GB
   
10. )
    
11. pause >nul
    

复制代码

希望代碼能適用於XP及WIN7的環境，懇請不吝指教!!

dennisle

終於發現原來是被除數過大的限制!
已經解決問題了!!

pcl_test

bat+vbs

1. '&cls&cscript -nologo -e:vbscript "%~fs0"&pause&exit
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set wmi = GetObject("winmgmts:\\.\root\cimv2")
   
4. 
   
5. WSH.echo GetMemory()&GetHardDisk()
   
6. 
   
7. '内存容量
   
8. Function GetMemory()
   
9.     Dim i, s
   
10.     Set Memory = wmi.execquery("select * from win32_physicalmemory")
    
11.     For Each item In Memory
    
12.         i = i+1
    
13.         s = s &"内存"& i &"[容量:"& GetSize(item.Capacity) &"]"& vbCrLf
    
14.     Next  
    
15.     GetMemory = s
    
16. End Function
    
17. 
    
18. '硬盘容量
    
19. Function GetHardDisk()
    
20.     Dim i, s
    
21.     Set HardDisk = wmi.execquery("select * from win32_diskdrive")
    
22.     For Each item In HardDisk
    
23.         i = i+1
    
24.         s = s &"硬盘"& i &"[名称:"& item.Caption &",接口类型:"& item.InterfaceType &",容量:"&GetSize(item.Size) &"]"& vbCrLf
    
25.     Next  
    
26.     GetHardDisk = s
    
27. End Function
    
28. 
    
29. '转换单位
    
30. Function GetSize(size)
    
31.     If size >= 1125899906842624 Then
    
32.         GetSize = FormatNumber(size/1125899906842624, 2, true) & "PB"
    
33.     ElseIf size >= 1099511627776 Then
    
34.         GetSize = FormatNumber(size/1099511627776, 2, true) & "TB"
    
35.     ElseIf size >= 1073741824 Then
    
36.         GetSize = FormatNumber(size/1073741824, 2, true) & "GB"
    
37.     ElseIf size >= 1048576 Then
    
38.         GetSize = FormatNumber(size/1048576, 2, true) & "MB"
    
39.     ElseIf size >= 1024 Then
    
40.         GetSize = FormatNumber(size/1024, 2, true) & "KB"
    
41.     Else
    
42.         GetSize = size & "字节"   
    
43.     End If
    
44. End Function

复制代码