ANTICHAT - Asus K52JT (камера)

Если в диспетчере устройств его не не видно возможно ты не там ищешь:
Возможно смотреть надо не в устраойствах 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
'================================================= ============================