Feedback

VB - Installierte Drucker ermitteln

Veröffentlicht von am 13.09.2011
(1 Bewertungen)
Ermittelt die installierten Drucker auf einem lokalen oder remote PC

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyPrinter As New ArrayList

MyPrinter = GetPrinter("testpc")
For i = LBound(MyPrinter.ToArray) To UBound(MyPrinter.ToArray)
MsgBox(MyPrinter(i))
Next

End Sub
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

Private Function GetPrinter(ByVal Computer As String) As ArrayList
        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        Dim AllPrinters As New ArrayList

        objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
        For Each objItem In objItems
            AllPrinters.Add(objItem.Caption)
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

        Return AllPrinters

    End Function
Abgelegt unter Printer, WMI.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!