Export Physical Disk Drives to CSV via WMI (VBA)

Attribute VB_Name = "DiskDriveWmiExport"
Option Explicit

Public Sub DiskDriveWmiExport()
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim outPath As String
    Dim fileNum As Integer
    Dim propsArr() As String
    Dim c As Long
    Dim lineOut As String
    Dim val As String
    Dim rowCount As Long

    outPath = Environ("USERPROFILE") & "\Documents\DiskDriveExport.csv"
    propsArr = Split("Model, Size, InterfaceType, Status", ", ")

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

    fileNum = FreeFile
    Open outPath For Output As #fileNum
    Print #fileNum, Join(propsArr, ",")

    rowCount = 0
    For Each objItem In colItems
        lineOut = ""
        For c = LBound(propsArr) To UBound(propsArr)
            val = ""
            On Error Resume Next
            val = CStr(objItem.Properties_(propsArr(c)).Value)
            On Error GoTo 0
            If c > LBound(propsArr) Then lineOut = lineOut & ","
            lineOut = lineOut & """" & Replace(val, """", """""") & """"
        Next c
        Print #fileNum, lineOut
        rowCount = rowCount + 1
    Next objItem

    Close #fileNum

    MsgBox rowCount & " Physical Disk Drives row(s) exported to " & outPath, vbInformation
End Sub