Visual Basic 6 - serial hard disk

ciao ragazzi


ho un codice che mi rileva il serial dell'hard disk

pero purtroppo se ho due hard disk mi rileva tutt e due ...

dovrei fare in modo che venga evidenziato solo quello dove cè installato il sistema operativo

Prova con questo:

Dim objWMIService, colItems

Set objWMIService = GetObject("winmgmts:\.\root\cimv2"
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem", , 48)
For Each objItem In colItems
MsgBox "Name: " & objItem.Name
Next

Ti dà il nome del sistema operativo attivo e il disco dove è installato.
io però ho due sistemi operativi ma sullo stesso disco.
Non so che risultati da con due dischi diversi.

ok grazie gentilissimo


ragazzi come mai su VISTA NON RESTITUISCE NULLA?



grazie

credo che la risposta alla tua domanda si trovi qua:
microsoft.com/communities/newsgroups/en-us/…

si ho letto il codice è quello


ma NON HO CAPITO se devo modificare il codice in questa parte

  SmartOpen = CreateFile("\.\PhysicalDrive" & CStr(drvNumber), _
                             GENERIC_READ Or GENERIC_WRITE, _
                             FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                             ByVal 0&, _
                             OPEN_EXISTING, _
                             0&, _
                             0&)

oppure qualcosa su vista


cmq grazie

OK CAPITO

mi sono documentato


chissa se puo' creare qualche exe per disabilitare UAC

grazie molte

ragazzi funziona tutto ok con vista, fate le modifiche

pero' alcuni sistemi operativi di XP , non mostrano ugualmente come se avessero anche loro UAC

questi sistemi operativi sono QUELLI che per farvi capire quando si spegne il pc

anzichè avere i tre tasti classici

ha il menu' a tendina

come posso anche a questi?

grazie e buon anno a tutti