Code:
Break on

$Index = -1
$RegKey = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts'

Do
$Index = $Index + 1
$PrinterKeys = $PrinterKeys + EnumValue($RegKey, $Index)+CHR(10)
Until @Error

$ArrPrinterKeys = Split($PrinterKeys,CHR(10))


For each $Printer in $ArrPrinterKeys
	$Printer ?
Next
'Hit any key...'
Get $

$ArrPrinters = Split(ReadProfileString('c:\printers.ini','Printers',''),CHR(10))


For each $Printer in $ArrPrinters
	$Printer ?
Next
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.