Detectar hardware de toque usando o VBScript

Question

Estou procurando uma maneira de detectar o hardware de toque instalado usando o VBScript. Meu script não funciona.

Este script destina-se a procurar um dispositivo apontador e ecoar de acordo.

    On Error Resume Next
    strComputer = "." 
   WScript.Echo "=========================================="
   Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PointingDevice")
 For Each objItem In colItems
    TouchDevice = objItem.PointingType
    if TouchDevice = 8 then
        Wscript.Echo "Found touch based hardware"
        WScript.Echo "=========================================="
    Else
        Wscript.Echo "No Touch based hardware found"
        WScript.Echo "=========================================="
    End If
Next

Computador: Laptop com tela sensível ao toque Dell 15R 5537 com Windows 8 Enterprise.
Dispositivo apontador: Touch Screen, mouse, Touch Pad
Como executo o script: clique duas vezes no arquivo .vbs ou execute-o através do Prompt de Comando
O que acontece: De acordo com o meu script, se TouchDevice == objItem.PointingType == 8, ele deve mostrar que o hardware de toque foi encontrado, mas continua exibindo nenhum hardware de toque encontrado.

Referência: Classe WMI win32_PointingDevice

    

Answer 1

Infelizmente, como você viu, a estrutura win32_PointingDevice não é usada corretamente.

Você ainda pode fazer isso, analisando o win32_PnPEntity para "tocar".

On Error Resume Next
strComputer = "." 
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PnPEntity")
For Each objItem In colItems
    If InStr(1, objItem.Description , "touch", 1) > 0 Then
        Wscript.Echo "Found touch based hardware: " & objItem.PnPDeviceID
        WScript.Echo "=========================================="
    End If
Next

Isso faz praticamente a mesma coisa que a sua tentativa de amostra, mas observa a descrição do objeto de cada dispositivo PnP para a palavra "touch" e lista esse objeto.