Visualizzazione dei risultati da 1 a 8 su 8
  1. #1
    Utente di HTML.it
    Registrato dal
    Nov 2006
    Messaggi
    3

    seriale disco

    Salve,

    ho necessità di sapere in Visual Basic 6.0 quale è il codice da utilizzare per sapere

    quale è il seriale dell'hard disk o di qualche altro componente hardware.

    Tale codice deve poter funzionare sia su PC con Sistema Operativo Windows 98

    che con Windows XP/2000.

    Grazie

  2. #2
    Utente di HTML.it L'avatar di andbin
    Registrato dal
    Jan 2006
    residenza
    Italy
    Messaggi
    18,284

    Re: Cartella di sistema e seriale disco

    Originariamente inviato da Dielnet
    quale è il nome della cartella di sistema
    API Win32 GetWindowsDirectory()

    Originariamente inviato da Dielnet
    ed il codice per leggere il seriale dell'hard disk.
    Intendi il seriale del volume (C:, D: ecc...) o proprio il numero seriale dell'hard disk???
    Per il seriale del volume, API Win32 GetVolumeInformation()
    Per il seriale del disco fisso, è da vedere ... è sicuramente possibile ma in questo momento non ho idea.
    Andrea, andbin.devSenior Java developerSCJP 5 (91%) • SCWCD 5 (94%)
    java.util.function Interfaces Cheat SheetJava Versions Cheat Sheet

  3. #3
    Utente di HTML.it
    Registrato dal
    Nov 2006
    Messaggi
    3

    Re: Re: Cartella di sistema e seriale disco

    Originariamente inviato da andbin
    API Win32 GetWindowsDirectory()

    Intendi il seriale del volume (C:, D: ecc...) o proprio il numero seriale dell'hard disk???
    Per il seriale del volume, API Win32 GetVolumeInformation()
    Per il seriale del disco fisso, è da vedere ... è sicuramente possibile ma in questo momento non ho idea.
    Forse potrebbe andare bene anche il seriale del volume purchè sia univoco e cambi da PC a
    Pc.
    Ma il seriale del volume viene assegnato dal sistema operativo all'atto dell'installazione?

  4. #4
    Utente di HTML.it L'avatar di andbin
    Registrato dal
    Jan 2006
    residenza
    Italy
    Messaggi
    18,284

    Re: Re: Re: Cartella di sistema e seriale disco

    Originariamente inviato da Dielnet
    Forse potrebbe andare bene anche il seriale del volume purchè sia univoco e cambi da PC a
    Pc.
    Ma il seriale del volume viene assegnato dal sistema operativo all'atto dell'installazione?
    Il numero seriale del volume viene generato quando il volume viene formattato. Questo seriale è a 32 bit. Le specifiche su come viene generato non le so (avevo letto qualcosa in passato).
    Andrea, andbin.devSenior Java developerSCJP 5 (91%) • SCWCD 5 (94%)
    java.util.function Interfaces Cheat SheetJava Versions Cheat Sheet

  5. #5
    Utente di HTML.it L'avatar di Lak3d
    Registrato dal
    Aug 2006
    Messaggi
    1,031
    il metodo SerialNumber del FileSystemObject può andar bene?

  6. #6
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,466

    Moderazione

    Originariamente inviato da Dielnet
    ho necessità di sapere in Visual Basic 6.0
    Come indicato nel Regolamento, che dovresti leggere per conoscere le norme di partecipazione a quest'area del forum, il linguaggio Visual Basic è trattato in un apposito sottoforum in cui sposterò questa discussione dopo aver corretto il titolo indicando il linguaggio, cosa a cui dovresti provvedere tu in futuro.

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  7. #7
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291
    Ciao Dielnet,
    il seguente codice - postato tempo fà da Oregon - ti consente di leggere il numero della MB e degli HD installati sul PC, naturalmente quando i predetti componenti sono abilitati a fornire le info cercate:
    codice:
    'Da VB6 puoi utilizzare Windows Managemente Instrumentation
    'riferendoti alla libreria Microsoft WMI Scripting V1.2 Library :
    '----------------------------------------------------------------
    Private Sub Form_Click()
        
        'Controlla che sia presente Microsoft Windows Management Instrumentation:
        Call IsWMIInstalled
        
        Print "Seriale MB:" & vbCrLf & GetSerialInfo("BaseBoard")
        Print "Seriale BIOS: " & vbCrLf & GetSerialInfo("BIOS")
        Print "Seriale HD: " & vbCrLf & GetSerialInfo("PhysicalMedia")
    
    End Sub
    '----------------------------------------------------------------
    Private Function GetSerialInfo(device As String) As String
        Dim objs As Object
        Dim obj As Object
        Dim WMI As Object
        Dim sAns As String
        
        Set WMI = GetObject("WinMgmts:")
        Set objs = WMI.InstancesOf("Win32_" & device)
        For Each obj In objs
          sAns = sAns & obj.SerialNumber & vbCrLf
        Next
        
        GetSerialInfo = Replace$(sAns, " ", "")
    End Function
    '----------------------------------------------------------------
    ' Restituisce True se è presente Microsoft Windows
    ' Management Instrumentation:
    Function IsWMIInstalled() As Boolean
    
        Dim oTemp
    On Local Error Resume Next
        
        Set oTemp = CreateObject("WbemScripting.sWbemLocator")
      
        IsWMIInstalled = (Err.Number <> 429)
      
        If Err.Number = 429 Then
          Err.Clear
          Else
          Set oTemp = Nothing
        End If
    
    End Function
    LM

  8. #8
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Beh ... LMondi mi ha preceduto ... per il codice tutto ok (attenzione ai dischi SATA ... sembra molti non restituiscano il seriale ...) ...

    Voglio solamente aggiungere, per eliminare la "confusione" che c'e' sull'argomento, che il seriale del Volume (ottenuto con la API o con il FSO) NON e' univoco ed è facilmente modificabile anche senza formattare il disco ...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.