GB単位の物理ドライブサイズを取得するWindowsコマンドライン


1

私は以下の簡単なコードを使用しているコマンドラインですべての接続されたディスクドライブのモデル、名前、インデックス、サイズを表示したい

    wmic diskdrive GET index,caption,name,size /format:table

出力

Caption                   Index  Name                Size
SAMSUNG SSD PM830 2.5" 7  0      \\.\PHYSICALDRIVE0  256052966400
Seagate backup plus       1      \\.\PHYSICALDRIVE1  536870912000

サイズをGB単位で表示することを除いて、上記と同じ出力が必要です。

forループとtemp vbファイルを使用してそれを行う方法はいくつかあると思います。

Windows cmdコードを具体的に探しています。誰でも助けることができますか?

サイズ変換を行い、cmdで表示することができます

    for /f "tokens=1,2" %a in ('WMIC DISKDRIVE GET Name^,Size ^|FINDSTR /I /V "Name"') do @echo wsh.echo "%a" ^& " size=" ^& FormatNumber^(cdbl^(%b^)/1024/1024/1024, 2^)^& " GiB" > %temp%\tmp.vbs & @if not "%b"=="" @echo( & @cscript //nologo %temp%\tmp.vbs & del %temp%\tmp.vbs

出力

\\.\PHYSICALDRIVE0 Size=238.47 (GB)

しかし、私はまだモデル名を正しく表示することができません。私はforループを意図したとおりに実行することができません(私の場合、モデル名の間にスペースがあります以下のコードはモデルを印刷するだけで動作します

    for /f "tokens=1-5 skip=1" %a in ('wmic diskdrive GET model') do @echo. %a %b %c %d %e

出力

SAMSUNG SSD PM830 2.5" 7

誰かが両方のコードを組み合わせて、次のように表示するのを手伝ってくれますか

SAMSUNG SSD PM830 2.5" 7  \\.\PHYSICALDRIVE0  Size=238.47 (GB)


もちろんできます。WMICの出力をファイルに送信し(/ OUTPUTなどを使用するか、リダイレクトによって)、VBScriptにファイルを読み取らせます。または、VBScriptで(WMICを使用する代わりに)WMIと対話することもできますが、これは簡単かもしれません。数値をVBScriptに取得したら、除算は簡単なはずです。
TOOGAM

回答:


0

/ Aを設定したcmdでの計算は32ビットの符号付き数値に制限されるため、計算を行うにはvbscriptまたはPowerShellが必要です。バッチ、wmic、vbscriptを使用する代わりに、一時ファイルを作成する必要のないハイブリッドバッチ/ vbscriptファイルがあります。欠点は、rem &両方のスクリプトバージョンでファイルを受け入れるために必要なエコーです。

これを.cmd / .batファイルとして保存します

rem^ &@cls&cscript //nologo //e:vbscript "%~f0"&Pause&exit /b
On Error Resume Next
sComputer = "."
Set oWMI = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set cItems = oWMI.ExecQuery("Select * from Win32_DiskDrive",,48)
sOut = ""
For Each oItem in cItems
  sOut = sOut & JL(26,oItem.Model) & JL(20,oItem.Name) & "Size=" & _
  JR(8,FormatNumber(cdbl(oItem.Size)/1024/1024/1024, 2)) & " (GiB)" &vbCRLF
Next
Set cItems = Nothing

wscript.echo sOut

Function JL(Places, Value) ' Justify Left within Places
  If len (Value) < Places then
    JL=Left(Value & Space(Places), Places)
  Else
    JL=Value
   End If
end Function 
Function JR(Places, Value) ' Justify Right within Places
  If Len (Value) < Places then
    JR = Right(Space(Places) & Value, Places)
  Else
    JR=Value
   End If
end Function 

システムでの出力(ドイツ語ロケール)

Hitachi HDS722020ALA330   \\.\PHYSICALDRIVE2  Size=1.863,01 (GiB)
VB0250EAVER               \\.\PHYSICALDRIVE0  Size=  232,88 (GiB)
ST2000DL003-9VT166        \\.\PHYSICALDRIVE1  Size=1.863,01 (GiB)

Drücken Sie eine beliebige Taste . . .
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.