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 "This computer does not seem to be USB 2 enabled."

  Else

    MsgBox "This computer appears to be USB 2 enabled."

  End If

End If