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! ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------ - Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ---------- Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area 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 Return _ ArraySearch ( $PnPDevices , 'Camera' ) EndFunc It would be nice to see your opinion

@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")
MsgBox (0,"", "Webcam ist nicht verfügbar")

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 $wCamera = _ ArraySearch ( $PnPDevices , 'Camera' ) $wImage = _ ArraySearch ( $PnPDevices , 'Image' ) If $wCamera = - 1 And $wImage = - 1 Then Msgbox ( 1 , "" , "Wecam is not available" ) Msgbox ( 1 , "" , "Wecam is available" ) EndIf EndFunc if a system has a scanner then