Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - serial hard disk
Forum - Visual Basic 6 - serial hard disk

Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 11:27
Sabato, 12/12/2009
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

PM Quote
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Segnala al moderatore
Postato alle 12:08
Sabato, 12/12/2009
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.

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 14:39
Mercoledì, 16/12/2009
ok grazie gentilissimo


ragazzi come mai  su  VISTA NON RESTITUISCE  NULLA?



grazie

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:00
Mercoledì, 16/12/2009
credo che la risposta alla tua domanda si trovi qua:
http://www.microsoft.com/communities/newsgroups/en-us/defa ...

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 16:19
Mercoledì, 16/12/2009
si ho letto il codice  è quello


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

Codice sorgente - presumibilmente Visual Basic 6

  1. SmartOpen = CreateFile("\\.\PhysicalDrive" & CStr(drvNumber), _
  2.                              GENERIC_READ Or GENERIC_WRITE, _
  3.                              FILE_SHARE_READ Or FILE_SHARE_WRITE, _
  4.                              ByVal 0&, _
  5.                              OPEN_EXISTING, _
  6.                              0&, _
  7.                              0&)




oppure qualcosa  su vista


cmq grazie

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 16:39
Mercoledì, 16/12/2009
OK CAPITO  

mi sono documentato


chissa se  puo' creare qualche exe  per disabilitare  UAC

grazie molte

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 15:55
Sabato, 02/01/2010
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

PM Quote