[VB.NET] checken of USB printer aan/uit staat...

[Atmoz]

Graag zou ik in mijn VB.NET (Windows Form) programma willen weten of mijn USB printer aan of uit staat.

Ik kom allerlei methodes en voorbeelden tegen om allerlei informatie over de printer in te zien (soorten papier, kleur of niet, aan het printen of idle, etc... etc...) maar ik kan nergens iets vinden over de power-status.

Met onderstaande procedure kan ik altijd "online" terug. Dus ook als de printer uit staat. (er wordt denk ik alleen gecontroleerd of de printer überhaupt geïnstalleerd is op het systeem)

code:

   Private Function CheckPrinter(ByVal printerName As String) As Boolean
        Try
            Dim printDocument As PrintDocument = New PrintDocument
            printDocument.PrinterSettings.PrinterName = printerName
            Return printDocument.PrinterSettings.IsValid
        Catch ex As System.Exception
            Return False
        End Try
    End Function

Ik dacht een alternatieve methode te hebben gevonden, maar ook deze geeft niet de "power status" weer...

code:

        Dim printerName = "Canon TS3100 series"
        Dim query = String.Format("SELECT * from Win32_Printer WHERE Name LIKE '% {0}'", printerName)
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query)
        Dim goed As Boolean = searcher.Scope.IsConnected

        MsgBox(goed)

Hoe kom ik er (in software) achter of de printer aan of uit staat?

Als het écht niet lukt schakel ik de Wifi van de printer in en ping ik op IP-adres, maar netjes vind ik het niet

Alvast bedankt voor 't meedenken

[Atmoz]

Aahhhhh YES!! Opgelost

Ik zocht teveel in de "printers-hoek"...

Met onderstaande functie kun je gewoon op alle USB apparaten zoeken...
Degene die aangesloten zijn én aan staan geven "true" terug

code:

    Function DetectDevice(DeviceName As String) As Boolean
        Try
            ' See if the desired device shows up in the device manager.'
            Dim info As Management.ManagementObject
            Dim search As System.Management.ManagementObjectSearcher
            Dim Name As String
            search = New System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity")
            For Each info In search.Get()
                ' Go through each device detected.'
                Name = CType(info("Caption"), String) ' Get the name of the device.'
                If InStr(Name, DeviceName, CompareMethod.Text) > 0 Then
                    Return True
                End If
            Next
        Catch ex As Exception
        End Try
        'We did not find the device we were looking for'
        Return False
    End Function