I'm using WSH in excel VBA to list Printer Name, Driver and Port of the default printer in code below.

Wondering if this could be modified (using WSH) to loop through all printers and get info for each.

I have found a method that works at link below, but was hoping to modify my method to keep it simple. http://www.cpearson.com/Excel/GetPrinters.aspx

Sub GetDefault()

Set WshShell = CreateObject("WScript.Shell")


defaultprn = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device")


Debug.Print "Default Printer: " & Split(defaultprn, ",")(0)
Debug.Print "Driver: " & Split(defaultprn, ",")(1)
Debug.Print "Port: " & Split(defaultprn, ",")(2)




End Sub