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