:DiskStatus
echo Letter / Label / Total Space / Used Space / Free Space / Filesystem
set "GB=1073741824"
for /f "skip=1 delims=" %%i in ('wmic logicaldisk get DeviceID^,FreeSpace^,Size^,VolumeName^,Filesystem') do (
for /f "tokens=1-5" %%j in ("%%i") do call :Diskoutput %%j %%k %%l %%m %%n
)
:Diskoutput
if "%4"=="" (
goto :eof
)
for /f "tokens=1-6" %%i in (
'mshta vbscript:Execute("CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(FormatNumber(%4/%GB%, 2) & "" "" & FormatNumber((%4-%3)/%GB%, 2) & "" "" & FormatNumber(%3/%GB%, 2) & "" "" & Round((%4-%2)*50/%4)):Close"^)'
) do (
set "size=%%i"
set "used=%%j"
set "free=%%k"
set /a "nUsed=%%l, nFree=50-%%l"
)
echo %1 / %5 / %size:~-10% GB / %used:~-10% GB / %free:~-10% GB / %2
보시는대로 wmic로 가져온 정보를 vbs로 용량 부분 GBi로 변환후 출력하는 함수입니다
호출해서 돌리면 이런식으로 찍힙니다
문젠 스샷에도 나오듯이 Label이나 획득한 용량의 문자열 길이에 따라서 레이아웃이 엉망으로 출력이 됩니다
출력 직전의 %2~5를 가공해서 일정 길이가 안 되면 모잘란만큼 공백을 추가해서 길이를 맞추면 될듯한데, batch로 문자열 못 다루어서 글 올려봅니다
출력되는 문자열 길이는 현제 존재하는 가장 큰 디스크인 16T까지를 상정해서 #####.##GB, Label경우는 전체 길이를 고려해서 10~15byte정도를 상한으로 잡고 레이아웃으로 잡고자 합니다
Letter / Label / Total Space / Used Space / Free Space / Filesystem
C: /10글자/#####.##Gb /#####.##Gb /#####.##Gb / NTFS
D: / D/ 100.00Gb / 0.00Gb / 100.00Gb / FAT332
이런식으로 모잘란 길이만큼 전방 공백으로 처리해서 일정하게 출력하면 됩니다
참고로 Powershell을 쓸 수 없는 환경에서 돌릴꺼라 Powershell로는 짤 수 없습니다 (외부 바이너리 추가가 필요하면 써도 상관없지만, 상용 사용이 허가되어있어야 합니다)
http://www.2cpu.co.kr/hardware_2014/44147
컴 케이스 작다고 불타거나 하지 않아요
https://www.google.com/search?q=vbscript+pad+string&client=firefox-b-d&sxsrf=AOaemvKRfz34ZbmaHBX9kFq3BgyNi-Oqnw%3A1632966154217&ei=ChZVYeHfDIeK0ASLl6vQCA&oq=vbscript+pad+string&gs_lcp=Cgxnd3Mtd2l6LXNlcnAQAxgCMgUIABDLATIFCAAQywEyBAgAEB4yBAgAEB4yBAgAEB4yBAgAEB4yBAgAEB4yBggAEAgQHjoHCAAQRxCwAzoFCAAQgAQ6CAgAEIAEEIsDOggIABDLARCLA0oECEEYAFCuCljxHGDEQ2gCcAJ4AIABfogB4gSSAQMwLjWYAQCgAQHIAQO4AQLAAQE&sclient=gws-wiz-serp
제 컴퓨터에서 한번 돌려 볼게요...ㅎ
스크립트 내에
FormatNumber(%3/%GB%, 2)
로 된 부분을
Right(" " & FormatNumber(%3/%GB%, 2), 10)
요런 식으로 앞에 스페이스를 적당히 넣은 다음에 Right 함수로 원하는 길이(위에선 10칸이라 했고) 만큼 잘라서 쓰면...
Right(String(10," ") & FormatNumber(%3/%GB%, 2), 10) 요렇게 했더니 뭔가 에러가 나서 잘안되네요. vbs는 안써봐서...
) do (
set "label= %5"
set "size= %%i"
set "used= %%j"
set "free= %%k"
set /a "nUsed=%%l, nFree=50-%%l"
)
echo %1 / %label:~-10% / %size:~-10% GB / %used:~-10% GB / %free:~-10% GB / %2
위쪽에 컬럼명은 알아서 맞추시면 되고..
실컷 코드 짜다가 지금 들어와보니 정답이 있네요 (감사합니다)
echo Letter / Label/ Total Space / Used Space / Free Space / Filesystem
set "GB=1073741824"
for /f "skip=1 delims=" %%i in ('wmic logicaldisk get DeviceID^,FreeSpace^,Size^,VolumeName^,Filesystem') do (
for /f "tokens=1-5" %%j in ("%%i") do call :Diskoutput %%j %%k %%l %%m %%n
)
:Diskoutput
if "%4"=="" (
goto :eof
)
for /f "tokens=1-6" %%i in (
'mshta vbscript:Execute("CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(FormatNumber(%4/%GB%, 2) & "" "" & FormatNumber((%4-%3)/%GB%, 2) & "" "" & FormatNumber(%3/%GB%, 2) & "" "" & Round((%4-%2)*50/%4)):Close"^)'
) do (
set "size=%%i"
set "used=%%j"
set "free=%%k"
set /a "nUsed=%%l, nFree=50-%%l"
)
set varLetter=%1
rem -------------------------------------------------------------------
set varLabel=%5
set PadLabel1=%varLabel:~%
call :padLabel
set varLabel=%PadLabel2:~%
set varTotalSpace=%size:~-10%
set PadTotalSpace1=%varTotalSpace:~%
call :padTotalSpace
set varTotalSpace=%PadTotalSpace2:~%
set varUsedSpace=%used:~-10%
set PadUsedSpace1=%varUsedSpace:~%
call :padUsedSpace
set varUsedSpace=%PadUsedSpace2:~%
set varFreeSpace=%free:~-10%
set PadFreeSpace1=%varFreeSpace:~%
call :padFreeSpace
set varFreeSpace=%PadFreeSpace2:~%
set varFilesystem=%2
set PadFilesystem1=%varFilesystem:~%
call :padFilesystem
set varFilesystem=%PadFilesystem2:~%
goto :EOF
rem -------------------------------------------------------------------
:padLabel
set PadLabel1=%PadLabel1:~% **********
set PadLabel1=%PadLabel1:~0,14%
for /f "tokens=1,2" %%a in ("%PadLabel1%") do set PadLabel1=%%b%%a
set PadLabel1=%PadLabel1:~%
set PadLabel1=%PadLabel1: =`%
set PadLabel2=
set /a counter=-1
:Labelnxtchar
set /a counter+=1
call :EXEC set padchar=%%PadLabel1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadLabel2=%PadLabel2%%padchar%
goto :Labelnxtchar
rem -------------------------------------------------------------------
:padTotalSpace
set PadTotalSpace1=%PadTotalSpace1:~% **********
set PadTotalSpace1=%PadTotalSpace1:~0,9%
for /f "tokens=1,2" %%a in ("%PadTotalSpace1%") do set TotalSpace1=%%b%%a
set PadTotalSpace1=%PadTotalSpace1:~%
set PadTotalSpace1=%PadTotalSpace1: =%
set PadTotalSpace2=
set /a counter=-1
:TotalSpacenxtchar
set /a counter+=1
call :EXEC set padchar=%%PadTotalSpace1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadTotalSpace2=%padchar%%PadTotalSpace2%
goto :TotalSpacenxtchar
rem -------------------------------------------------------------------
:padUsedSpace
set PadUsedSpace1=%PadUsedSpace1:~% **********
set PadUsedSpace1=%PadUsedSpace1:~0,9%
for /f "tokens=1,2" %%a in ("%PadUsedSpace1%") do set UsedSpace1=%%b%%a
set PadUsedSpace1=%PadUsedSpace1:~%
set PadUsedSpace1=%PadUsedSpace1: =%
set PadUsedSpace2=
set /a counter=-1
:UsedSpacenxtchar
set /a counter+=1
call :EXEC set padchar=%%PadUsedSpace1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadUsedSpace2=%padchar%%PadUsedSpace2%
goto :UsedSpacenxtchar
rem -------------------------------------------------------------------
:padFreeSpace
set PadFreeSpace1=%PadFreeSpace1:~% **********
set PadFreeSpace1=%PadFreeSpace1:~0,9%
for /f "tokens=1,2" %%a in ("%PadFreeSpace1%") do set FreeSpace1=%%b%%a
set PadFreeSpace1=%PadFreeSpace1:~%
set PadFreeSpace1=%PadFreeSpace1: =%
set PadFreeSpace2=
set /a counter=-1
:FreeSpacenxtchar
set /a counter+=1
call :EXEC set padchar=%%PadFreeSpace1:~%counter%,1%%%
if not defined padchar goto :eof
if [%padchar%] EQU [*] set padchar=
set PadFreeSpace2=%padchar%%PadFreeSpace2%
goto :FreeSpacenxtchar
rem -------------------------------------------------------------------
:padFilesystem
set padFilesystem1=%padFilesystem1:~% **********
set padFilesystem1=%padFilesystem1:~0,11%
for /f "tokens=1,2" %%a in ("%padFilesystem1%") do set padFilesystem1=%%b%%a
set padFilesystem1=%padFilesystem1:~%
set padFilesystem1=%padFilesystem1: =`%
set padFilesystem2=
set /a counter=-1
:Filesystemnxtchar
set /a counter+=1
call :EXEC set padchar=%%PadFilesystem1:~%counter%,1%%%
if not defined padchar goto :done
if [%padchar%] EQU [*] set padchar=
set PadFilesystem2=%PadFilesystem2%%padchar%
goto :Filesystemnxtchar
rem -------------------------------------------------------------------
:done
echo %varLetter% / %PadLabel2% / %PadTotalSpace2% GB / %PadUsedSpace2% GB / %PadFreeSpace2% GB / %PadFilesystem2%
goto :EOF
:EXEC
%*
goto :EOF
이런 쓰레기 코드를 작성후 디버그 하고 있었습니다 (...) (작동은 하는데, 용량 부분이 테라단위가 되어서 너무 길면 문제되는거랑 Label이 없는경우 ~로 나오는것 고칠려고 삽질중이었음)
역시 프로그래밍은 아무리 간단한거라도 아는게 힘이군요 (코드 분량도 문제지만, 루프를 넘 많이 써서 처리 성능도 나쁨)
@echo off
echo ^|------^|---------------^|-------------^|-------------^|-------------^|----------^|
echo ^|Letter^| Label^| Total Space ^| Used Space ^| Free Space ^|Filesystem^|
echo ^|------^|---------------^|-------------^|-------------^|-------------^|----------^|
set "GB=1073741824"
for /f "skip=1 delims=" %%i in ('wmic logicaldisk get DeviceID^,FreeSpace^,Size^,VolumeName^,Filesystem') do (
for /f "tokens=1-5" %%j in ("%%i") do call :Diskoutput %%j %%k %%l %%m %%n
)
:Diskoutput
if "%4"=="" (
goto :eof
)
for /f "tokens=1-6" %%i in (
'mshta vbscript:Execute("CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(FormatNumber(%4/%GB%, 2) & "" "" & FormatNumber((%4-%3)/%GB%, 2) & "" "" & FormatNumber(%3/%GB%, 2) & "" "" & Round((%4-%2)*50/%4)):Close"^)'
) do (
set "label= %5"
set "size= %%i"
set "used= %%j"
set "free= %%k"
set "FileSystem= %2"
set /a "nUsed=%%l, nFree=50-%%l"
)
echo ^|%1 ^|%label:~-14% ^|%size:~-9% GB ^|%used:~-9% GB ^|%free:~-9% GB ^| %Filesystem:~-6% ^|
echo ^|------^|---------------^|-------------^|-------------^|-------------^|----------^|
이렇게 레이아웃 조절되었습니다