[分享]批处理获取本地磁盘空间保留小数点后边数值

/zhqsystem/zhq

利用群内pcl提供混编VBS生成,去除所有延迟变量,去除for内tokens分割参数[超出数值范围会出现错误数值],可以合并到其他区域

1. 
   
2. @echo off&chcp 936
   
3. for /f "delims=" %%i in ('wmic logicaldisk where driveType^="3" get caption^,freespace^,size /value')do if /i not "%%i"=="" (
   
4. for /f "delims=" %%j in ("%%i")do (
   
5.   for /f "delims==" %%k in ("%%j")do (
   
6.    if /i "%%k"=="caption" (set "#%%j"
   
7.    )else if /i "%%k"=="freespace" (set "#%%j"
   
8.     for /f "delims==" %%c in ('call echo,%%#%%k%%')do (
   
9.      call set "#calc#=%%c"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][剩余:单位: B "%%#calc_result#%%" ]')do echo,%%d
   
10.      call set "#calc#=%%c/1024"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][剩余:单位:KB "%%#calc_result#%%" ]')do echo,%%d
    
11.      call set "#calc#=%%c/1024/1024"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][剩余:单位:MB "%%#calc_result#%%" ]')do echo,%%d
    
12.      call set "#calc#=%%c/1024/1024/1024"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][剩余:单位:GB "%%#calc_result#%%" ]')do echo,%%d
    
13.     )
    
14.    )else if /i "%%k"=="size" (set "#%%j"
    
15.     for /f "delims==" %%c in ('call echo,%%#%%k%%')do (
    
16.      call set "#calc#=%%c"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][容量:单位: B "%%#calc_result#%%" ]')do echo,%%d
    
17.      call set "#calc#=%%c/1024"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][容量:单位:KB "%%#calc_result#%%" ]')do echo,%%d
    
18.      call set "#calc#=%%c/1024/1024"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][容量:单位:MB "%%#calc_result#%%" ]')do echo,%%d
    
19.      call set "#calc#=%%c/1024/1024/1024"&&call :calc&&for /f "delims==" %%d in ('call echo,[盘符:"%%#caption%%" ][容量:单位:GB "%%#calc_result#%%" ]')do echo,%%d
    
20.     )
    
21.    )
    
22.   )
    
23. )
    
24. )
    
25. pause
    
26. goto :eof
    
27. :calc
    
28. for /f "delims=" %%c in ('mshta.exe "vbscript:createobject("scripting.filesystemobject").getstandardstream(1).write(%#calc#%)(close)"') do if /i "%%~nc"=="" (set "#calc_result#=0%%~xc")else (set "#calc_result#=%%~nxc")
    
29. goto :eof
    

复制代码

cc5511

学习了 谢谢