[VB6] Cartella di sistema e seriale disco

[Dielnet]

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

[andbin]

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.

[Dielnet]

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?

[andbin]

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).

[Lak3d]

il metodo SerialNumber del FileSystemObject può andar bene?

[alka]

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!

[LMondi]

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:

'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

[oregon]

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 ...