Test porte USB 2.0

La sezione per discutere sui software inseriti nell'area Download de IlSoftware.it. Segnalate qui software interessanti che non avete trovato nel nostro sito.

Moderatore: Staff forum IlSoftware.it

Avatar utente
joe-na
Senior Software
Senior Software
Messaggi: 6165
Iscritto il: 05 mag 2004 19:35
Località: Napoli

Test porte USB 2.0

Messaggioda joe-na » 26 ott 2005 19:51

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

Avatar utente
lillo5
Advanced Software
Advanced Software
Messaggi: 1399
Iscritto il: 02 ott 2004 13:13
Località: Castelnuovo Scrivia (AL) - Giussano (MI) - Cali (Colombia)

Messaggioda lillo5 » 26 ott 2005 21:41

cosa serve??
CIAO LILLO

E' bene parlare solo quando si deve dire qualcosa che valga più del silenzio.

Avatar utente
W LA RAZA
Active Software Plus
Active Software Plus
Messaggi: 585
Iscritto il: 13 ago 2004 18:58
Località: Caserta

Messaggioda W LA RAZA » 26 ott 2005 22:41

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

Avatar utente
joe-na
Senior Software
Senior Software
Messaggi: 6165
Iscritto il: 05 mag 2004 19:35
Località: Napoli

Messaggioda joe-na » 26 ott 2005 22:48

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