You can use VBScript to get the information ... not sure on how best to
integrate with CF if that is your intent, or how the default printer works
with the system account since the default is stored in the registry. If you
are doing this in CF and can use the <cfregistry> tag then you could read
the default printer directly.
Enumerate printers:
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next
Get default printer:
Set WshShell = WScript.CreateObject("WScript.Shell")
PrinterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows
NT\CurrentVersion\Windows\Device"
DefaultPrinter = WSHShell.RegRead(PrinterKey)
WScript.Echo DefaultPrinter
HTH,
Dan
-----Original Message-----
From: Shawn Richards [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 11:18 AM
To: CF-Talk
Subject: List of printers
Hi everyone,
Is there any way to get a list of the server printers with the default
printer identified? This is on a Windows 2000 and Windows XP platform. I
am currently using EnumPrinters.dll but it doesn't identify the default
printer.
Thanks
Shawn Richards
Rich Digital Solutions, Inc.
St. Charles, MO
www.richdigitalsolutions.com
[EMAIL PROTECTED]
636.926.0287 or 314.602.7097
______________________________________________________________________
Get the mailserver that powers this list at http://www.coolfusion.com
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Archives: http://www.mail-archive.com/cf-talk@houseoffusion.com/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
