Hi,
How can I do to get motherboard and processor serial number in VB6?
I am able to get HD serial number with this code:
Option Explicit
Private Type DRIVEINFO
HDDSerialNum As String
End Type
Private Sub Form_Load()
Dim info As DRIVEINFO
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.instancesof("Win32_PhysicalMedia")
For Each obj In objs
info.HDDSerialNum = obj.serialnumber
Next obj
End Sub
Can you help me?
Thank.