Get Default printer WMI

[Willem]

Hi,

I'm trying to get the default printer using WMI.

I use the following code:

Private Function GetDefaultPrint er() As String
Dim objWMIService As Object
Dim colInstalledPri nters As Object
Dim objPrinter As Object
Dim strComputer As String
Dim strPrinter As String

strComputer = "MyComputerName "
objWMIService =
GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\" & strComputer &
"\root\cimv 2")
colInstalledPri nters = objWMIService.E xecQuery("Selec t * from
Win32_Printer Where Default = True")
For Each objPrinter In colInstalledPri nters
strPrinter = objPrinter.Name ()
Next
GetDefaultPrint er = strPrinter
End Function

I've a printer installed as default printer, but the function returns to
printer. What is going wrong?

Many thanks in advance.

Willem

[Willem]

Extra Info

Private Function GetDefaultPrint er2() As String
Dim oShell As Object
Dim sRegVal As String
Dim sDefault As String

oShell = CreateObject("W Script.Shell")
sRegVal = _
"HKCU\Software\ Microsoft\Windo ws NT\CurrentVersi on\Windows\Devi ce"
sDefault = ""
On Error Resume Next
sDefault = oShell.RegRead( sRegVal)
sDefault = Left(sDefault, InStr(sDefault, ",") - 1)
On Error GoTo 0
GetDefaultPrint er2 = sDefault
End Function

Is not working either. When I look in the registry I find a string, sDefault
stays empty.

I'm using Windows XP.

Willem
"Willem" wrote:

Hi,

I'm trying to get the default printer using WMI.

I use the following code:

Private Function GetDefaultPrint er() As String
Dim objWMIService As Object
Dim colInstalledPri nters As Object
Dim objPrinter As Object
Dim strComputer As String
Dim strPrinter As String

strComputer = "MyComputerName "
objWMIService =
GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\" & strComputer &
"\root\cimv 2")
colInstalledPri nters = objWMIService.E xecQuery("Selec t * from
Win32_Printer Where Default = True")
For Each objPrinter In colInstalledPri nters
strPrinter = objPrinter.Name ()
Next
GetDefaultPrint er = strPrinter
End Function

I've a printer installed as default printer, but the function returns to
printer. What is going wrong?

Many thanks in advance.

Willem

[bruce barker]

asp.net runs as a service, and has no profile, thus no default printer.
specify the default printer name in the web config.

-- bruce (sqlwork.com)

"Willem" <Wi****@discuss ions.microsoft. com> wrote in message
news:DF******** *************** ***********@mic rosoft.com...
| Hi,
|
| I'm trying to get the default printer using WMI.
|
| I use the following code:
|
| Private Function GetDefaultPrint er() As String
| Dim objWMIService As Object
| Dim colInstalledPri nters As Object
| Dim objPrinter As Object
| Dim strComputer As String
| Dim strPrinter As String
|
| strComputer = "MyComputerName "
| objWMIService =
| GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\" & strComputer &
| "\root\cimv 2")
| colInstalledPri nters = objWMIService.E xecQuery("Selec t * from
| Win32_Printer Where Default = True")
| For Each objPrinter In colInstalledPri nters
| strPrinter = objPrinter.Name ()
| Next
| GetDefaultPrint er = strPrinter
| End Function
|
| I've a printer installed as default printer, but the function returns to
| printer. What is going wrong?
|
| Many thanks in advance.
|
| Willem
|
|