Get Signed Drivers Report (VBScript)

' ============================================================
' GetPnPSignedDriverReport.vbs
'
' Reports Signed Drivers via WMI (Win32_PnPSignedDriver).
'
' Usage: cscript GetPnPSignedDriverReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT DeviceName, DriverVersion, Manufacturer, DriverDate FROM Win32_PnPSignedDriver")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "DeviceName: " & objItem.DeviceName & vbCrLf
    strOutput = strOutput & "DriverVersion: " & objItem.DriverVersion & vbCrLf
    strOutput = strOutput & "Manufacturer: " & objItem.Manufacturer & vbCrLf
    strOutput = strOutput & "DriverDate: " & objItem.DriverDate & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Signed Drivers found."
Else
    WScript.Echo strOutput
End If