'*** 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 )