Decided to go with method below, there are a variety of methods listed a following link if anyone interested: https://social.technet.microsoft.com...ipt?forum=ITCG
Sub PrinterList()
Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
objReg.EnumValues HKEY_CURRENT_USER, strKeyPath, _
arrValueNames, arrValueTypes
For i = 0 To UBound(arrValueNames)
If arrValueTypes(i) = REG_SZ Then
objReg.GetStringValue HKEY_CURRENT_USER, _
strKeyPath, arrValueNames(i), strValue
'WScript.Echo arrValueNames(i) & " on " & Split(strValue, ",")(1)
Debug.Print arrValueNames(i) & " on " & Split(strValue, ",")(1)
End If
Next
End Sub