http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** v8.3 *** www.dieseyer.de *******************************
'
' Datei: wmi-standarddrucker.vbs
' Autor: dieseyer@gmx.de
' Auf: www.dieseyer.de
'
'************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl


MsgBox AlleDrucker( "." )
MsgBox Standarddrucker( "." )

WScript.Quit


'*** v8.3 *** www.dieseyer.de *******************************
Function AlleDrucker( PC )
'************************************************************
Dim objWMIService, colInstalledPrinters, oPrn
AlleDrucker = ""
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")

For Each oPrn in colInstalledPrinters
AlleDrucker = AlleDrucker & oPrn.Name
If Len( oPrn.Location ) > 1 Then AlleDrucker = AlleDrucker & " - " & oPrn.Location
If oPrn.Default = True Then AlleDrucker = AlleDrucker & " - Standarddrucker"
AlleDrucker = AlleDrucker & vbCRLF
Next
End Function ' AlleDrucker( PC )


'*** v8.3 *** www.dieseyer.de *******************************
Function Standarddrucker( PC )
'************************************************************
Dim objWMIService, colInstalledPrinters, oPrn
Standarddrucker = ""
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")

For Each oPrn in colInstalledPrinters
If oPrn.Default = True Then Standarddrucker = oPrn.Name ' & " - " & oPrn.Location
Next
End Function ' Standarddrucker( PC )

http://dieseyer.de • all rights reserved • © 2011 v11.4