title image


Smiley Re: Installierte Drucker auslesen
Hallo,



Hallo,



Option Explicit

Sub Alle_Drucker()

Dim objWMI As Object, colPrinters As Object, objPrinter As Object

Set objWMI = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")

Set colPrinters = objWMI.ExecQuery _

("Select * from Win32_PrinterConfiguration")

For Each objPrinter In colPrinters

MsgBox "Name: " & objPrinter.Name

Next

End Sub



Gruß M.I.Nitraum



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: