Webcam - present or not - (Moved)

[AlexGo]

Hello!

How I can detect with Autoit if a webcam in system present? I don't need to manage the camera, but only discover availability. Any idee?
Thanks for help!

[Melba23]

Moved to the appropriate forum, as the Developer General Discussion forum very clearly states:

Quote

General development and scripting discussions. If it's super geeky and you don't know where to put it - it's probably here.

---

Do not create AutoIt-related topics here, use the AutoIt General Help and Support or AutoIt Technical Discussion forums.

Moderation Team

[FrancescoDiMuro]

@AlexGo

Hi, and welcome to the AutoIt forum

Take a look here.

There are a tons of samples using WMI with AutoIt on the forum

[AlexGo]

@FrancescoDiMuro

Great! Thanks a lot for you answer!

Edited September 10, 2018 by AlexGo

[AlexGo]

Ok. If anybody need:

 

#include <Array.au3>

WebCam ()

Func WebCam ()

$PnPobjWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
$colItemsPnP = $PnPobjWMIService.ExecQuery("SELECT PNPClass from Win32_PnPEntity")

Local $PnPDevices [1000][1], $i = 0
   For $objItemPnP in $colItemsPnP
      With $objItemPnP
         $PnPDevices[$i][0] = .PNPClass
      EndWith
         $i += 1
   Next

Return _ArraySearch ($PnPDevices, 'Camera')

EndFunc

It would be nice to see your opinion

Edited September 10, 2018 by AlexGo

[FrancescoDiMuro]

@AlexGo
Happy to have helped
By the way, I was thinking that you can "short" your code in this way, premising that you have only a webcam

$PnPobjWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
$colItemsPnP = $PnPobjWMIService.ExecQuery("SELECT Description from Win32_PnPEntity")

For $objItemPnP in $colItemsPnP
    If $objItemPnP.Description = "USB-Videogerät" Then Exit MsgBox(0,"","Webcam ist verfügbar")
Next

MsgBox (0,"", "Webcam ist nicht verfügbar")

 

[AlexGo]

@FrancescoDiMuro

"Short" version looks good!  

But "webcam availability" is only a part of  my program. That's why I made it like a function.

And I found that "USB-Videogerät" not for every laptop valid. So I changed "Description" for "PNPClass" it is more universal - function search now for "Camera" (works independently of language) . 

But I also found that the webcam can be in the "Imaging devices" section of Windows device manager. In "PNPClass" it's called "Image".

So I have a lot of fun  

Now it looks like this:

#include <Array.au3>

WebCam ()

Func WebCam ()

$PnPobjWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
$colItemsPnP = $PnPobjWMIService.ExecQuery("SELECT PNPClass, Caption from Win32_PnPEntity")

Local $PnPDevices [1000][2], $i = 0
   For $objItemPnP in $colItemsPnP
      With $objItemPnP
         $PnPDevices[$i][0] = .PNPClass
         $PnPDevices[$i][1] = .Caption
      EndWith
         $i += 1
   Next

$wCamera = _ArraySearch ($PnPDevices, 'Camera')
$wImage = _ArraySearch ($PnPDevices, 'Image')

If $wCamera = -1 And $wImage = -1 Then
   Msgbox (1,"", "Wecam is not available")
Else
      Msgbox (1,"", "Wecam is available")
EndIf

EndFunc

if a system has a scanner then