Get Physical Disk Drives Report (VBScript)

' ============================================================
' GetDiskDriveReport.vbs
'
' Reports Physical Disk Drives via WMI (Win32_DiskDrive).
'
' Usage: cscript GetDiskDriveReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Model, Size, InterfaceType, Status FROM Win32_DiskDrive")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Model: " & objItem.Model & vbCrLf
    strOutput = strOutput & "Size: " & objItem.Size & vbCrLf
    strOutput = strOutput & "InterfaceType: " & objItem.InterfaceType & vbCrLf
    strOutput = strOutput & "Status: " & objItem.Status & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Physical Disk Drives found."
Else
    WScript.Echo strOutput
End If