Script to Check Devices Without Drivers

This is a quick script that I wrote to identify if a remote computer has a device without a driver installed.

'==========================================================================
' NAME: DevicesWithoutDrivers
' AUTHOR: Nick Moseley, https://t3chn1ck.wordpress.com
' DATE  : 3/30/2011
' COMMENT: Connects to WMI on a remote computer to check for devices without
' a driver installed.
'==========================================================================
Option Explicit
Dim oWMI, sComputerName, colItems, oItem
sComputerName = ucase(InputBox ("Enter Computer Name", "Name", "."))
Set oWMI = GetObject ("winmgmts:\\" & sComputerName & "\root\cimv2")
Set colItems = oWMI.ExecQuery ("Select * from Win32_PnPEntity where status = 'error'")

For Each oItem In colItems
 WScript.Echo "Name: " & oItem.Name & "; status = " & oItem.status
Next