Test porte USB 2.0

[joe-na]

Copiare ed incollare il testo nel "Blocco Note"
salvare sul desktop con estensione .vbs

Codice: Seleziona tutto

On Error Resume Next
'The presence of the following key seems to indicate USB 2
RegKey = "HKLM\SYSTEM\CurrentControlSet\Enum\USB\ROOT_HUB20"

'Attempt to read the key
CreateObject("WScript.Shell").RegRead(RegKey & "\")

If Err Then
  'An error is always returned when there is no default value, so
  'check for specific error message returned for missing key
  If InStr(LCase(Err.Description), "invalid root") > 0 Then
    MsgBox "Questo PC non sembra avere porte USB 2.0"
  Else
    MsgBox "Questo PC sembra avere porte USB 2.0"
  End If
End If


[lillo5]

cosa serve??

[W LA RAZA]

Mi sembra di aver capito che serve a verificare se nel tuo pc sono presenti porte usb 2!
Mi sbaglio?
Ciao W LA RAZA

[joe-na]

Mi sembra di aver capito che serve a verificare se nel tuo pc sono presenti porte usb 2!
Mi sbaglio?
Ciao W LA RAZA

esatto
sono poche righe di codice utili per i meno esperti
utilizza i dati del registro di win per avere informazioni
può dare un risultato errato nel caso di alterazione del registro