Если в диспетчере устройств его не не видно возможно ты не там ищешь:
Возможно смотреть надо не в устраойствах hid, а в контроллерах usb, т.к на сайте асуса написано следующее:
Please follow below steps to proceed.
(1) Enter into device manager.
(2) Choose "USB 2.0... WebCam", and right click to go to "Property".
(3) Click "Detail", and find the PID number in "Value" as shown below.
(4) According to the PID number and the model name, you can find the right driver on the Asus download site:
(5) Please remember to uninstall the previous camera driver before install the right driver from Asus download site. There're 2 ways to uninstall completely.
a. Uninstall the camera in device manager, and restart the notebook.
b. Uninstall the camera driver in control panel, and restart the notebook.
Дрова брать тут предварительно выбрав свою ОС из списка и свои дрова по PID устройства:
http://support.asus.com/download.aspx?SLanguage=en&m=K52JT&os=30
На всякий случай рекомендую скачать отсюда же, с сайта асуса и обновить дрова на чипсет.
Если устройства все равно не видно возможно на него установлены левые драйвера, или оно в скрытых устройствах находится и не отображается. Попробуй для поиска камеры запустить USBDeview, и через него грохнуть установленные дрова на камеру:
http://www.nirsoft.net/utils/usb_devices_view.html
Либо то же самое с помощью следующего vbs скрипта запускающего с отображением скрытых устройств диспетчер(скопировать и сохранить как vbs).
Скрытое содержимое доступно для зарегистрированных пользователей!
'================================================= ============================
Option Explicit
Const SW_HIDE = 0
Dim elem
Dim strNewEnvironment
Dim objSWbemObjectEx
Dim lngProcessID
Dim objMenuItem
Dim strTempFileName
If Not WScript.Arguments.Named.Exists("ShowDevMgmt") Then
With GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
strNewEnvironment = _
"DEVMGR_SHOW_NONPRESENT_DEVICES=1" & vbCrLf & _
"DEVMGR_SHOW_DETAILS=1"
For Each elem In WScript.CreateObject("WScript.Shell").Environment( "Process")
If Left(elem, 1) <> "=" Then
strNewEnvironment = strNewEnvironment & vbCrLf & elem
End If
Next
Set objSWbemObjectEx = .Get("Win32_ProcessStartup").SpawnInstance_
objSWbemObjectEx.ShowWindow = SW_HIDE
objSWbemObjectEx.EnvironmentVariables = Split(strNewEnvironment, vbCrLf)
If .Get("Win32_Process").Create( _
"wscript.exe """ & WScript.ScriptFullName & """ /ShowDevMgmt", Null, objSWbemObjectEx, lngProcessID _
) <> 0 Then
WScript.Echo "Process [wscript.exe """ & WScript.ScriptFullName & """] could not be created."
End If
Set objSWbemObjectEx = Nothing
End With
Else
With WScript.CreateObject("MMC20.Application")
.Load "devmgmt.msc"
With .Document
With .ActiveView
.Frame.Maximize
For Each objMenuItem In .ScopeNodeContextMenu
If objMenuItem.Path = "Вид->Показать скрытые устройства" Then
If objMenuItem.Enabled = 1 Then
objMenuItem.Execute
Exit For
End If
End If
Next
End With
If .IsSaved = 0 Then
strTempFileName = GetTemporaryFileName()
.SaveAs strTempFileName
WScript.CreateObject("Scripting.FileSystemObject") .DeleteFile strTempFileName, True
End If
End With
.UserControl = 1
End With
End If
WScript.Quit 0
'================================================= ============================
'================================================= ============================
Function GetTemporaryFileName()
Const TEMP_FOLDER = 2
Dim strTempFile
With WScript.CreateObject("Scripting.FileSystemObject")
Do
strTempFile = .BuildPath(.GetSpecialFolder(TEMP_FOLDER), .GetTempName)
Loop While .FileExists(strTempFile)
End With
GetTemporaryFileName = strTempFile
End Function
'================================================= ============================
Линейный вид
