This is what I use :)
Also remember to add System.Management to the project's references
OK here is .NET version
Dim info As System.Management.ManagementObject
Dim search As System.Management.ManagementObjectSearcher
Dim deviceName As String
search = New System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity")
For Each info In search.Get()
deviceName = CType(info("Caption"), String)
If InStr(deviceName, "cam", CompareMethod.Text) > 0 Then
GetSystemInfo.Webcam = deviceName
End If
Next
Here is C# version
System.Management.ManagementObject info = default(System.Management.ManagementObject);
System.Management.ManagementObjectSearcher search = default(System.Management.ManagementObjectSearcher);
string deviceName = null;
search = new System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity");
foreach ( info in search.Get()) {
deviceName = Convert.ToString(info("Caption"));
if (Strings.InStr(deviceName, "cam", CompareMethod.Text) > 0) {
GetSystemInfo.Webcam = deviceName;
}
}
This gets the name of the webcam. You can also change "device name" in the third to last line to a lot of things. Just make a small Google search!
Good luck