Come trovare seriali dei componenti del pc

Question

Salve a tutti,

volevo sapere come posso fare per rilevare i veri seriali di hard disk, processore e scheda video e memorizzarli in una tabella del mio database per poi poterli confrontare ad ogni apertura del database stesso.

Bingando e googolando ho trovato dei progetti d'esempio per rilevare il seriale dell'hard disk, ma a parte il fatto che mi restituisce un seriale solo numerico (che da quanto ho capito è quello di formattazione dell'unità) non è quello che voglio.

C'è un modo per ottenere quello che cerco?

Grazie

Answer 1

C'è un modo per ottenere quello che cerco?

E quale vorresti di seriale del HD?

Inoltre il seriale del HD è aleatorio e insicuro. Così come MAC e company.

Per la scheda video, questo vbs che puoi trasformare facilmente in codice vb ti restituisce di tutto di più:

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _

    ("Select * from Win32_VideoController")

For Each objItem in colItems

    For Each strCapability in objItem.AcceleratorCapabilities

        Wscript.Echo "Accelerator Capability: " & strCapability

    Next

    Wscript.Echo "Adapter Compatibility: " & objItem.AdapterCompatibility

    Wscript.Echo "Adapter DAC Type: " & objItem.AdapterDACType

    Wscript.Echo "Adapter RAM: " & objItem.AdapterRAM

    Wscript.Echo "Availability: " & objItem.Availability

    Wscript.Echo "Color Table Entries: " & objItem.ColorTableEntries

    Wscript.Echo "Current Bits Per Pixel: " & objItem.CurrentBitsPerPixel

    Wscript.Echo "Current Horizontal Resolution: " & _

        objItem.CurrentHorizontalResolution

    Wscript.Echo "Current Number of Colors: " & objItem.CurrentNumberOfColors

    Wscript.Echo "Current Number of Columns: " & objItem.CurrentNumberOfColumns

    Wscript.Echo "Current Number of Rows: " & objItem.CurrentNumberOfRows

    Wscript.Echo "Current Refresh Rate: " & objItem.CurrentRefreshRate

    Wscript.Echo "Current Scan Mode: " & objItem.CurrentScanMode

    Wscript.Echo "Current Vertical Resolution: " & _

        objItem.CurrentVerticalResolution

    Wscript.Echo "Description: " & objItem.Description

    Wscript.Echo "Device ID: " & objItem.DeviceID

    Wscript.Echo "Device Specific Pens: " & objItem.DeviceSpecificPens

    Wscript.Echo "Dither Type: " & objItem.DitherType

    Wscript.Echo "Driver Date: " & objItem.DriverDate

    Wscript.Echo "Driver Version: " & objItem.DriverVersion

    Wscript.Echo "ICM Intent: " & objItem.ICMIntent

    Wscript.Echo "ICM Method: " & objItem.ICMMethod

    Wscript.Echo "INF Filename: " & objItem.InfFilename

    Wscript.Echo "INF Section: " & objItem.InfSection

    Wscript.Echo "Installed Display Drivers: " & _

        objItem.InstalledDisplayDrivers

    Wscript.Echo "Maximum Memory Supported: " & objItem.MaxMemorySupported

    Wscript.Echo "Maximum Number Controlled: " & objItem.MaxNumberControlled

    Wscript.Echo "Maximum Refresh Rate: " & objItem.MaxRefreshRate

    Wscript.Echo "Minimum Refresh Rate: " & objItem.MinRefreshRate

    Wscript.Echo "Monochrome: " & objItem.Monochrome

    Wscript.Echo "Name: " & objItem.Name

    Wscript.Echo "Number of Color Planes: " & objItem.NumberOfColorPlanes

    Wscript.Echo "Number of Video Pages: " & objItem.NumberOfVideoPages

    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID

    Wscript.Echo "Reserved System Palette Entries: " & _

        objItem.ReservedSystemPaletteEntries

    Wscript.Echo "Specification Version: " & objItem.SpecificationVersion

    Wscript.Echo "System Palette Entries: " & objItem.SystemPaletteEntries

    Wscript.Echo "Video Architecture: " & objItem.VideoArchitecture

    Wscript.Echo "Video Memory Type: " & objItem.VideoMemoryType

    Wscript.Echo "Video Mode: " & objItem.VideoMode

    Wscript.Echo "Video Mode Description: " & objItem.VideoModeDescription

    Wscript.Echo "Video Processor: " & objItem.VideoProcessor

Next

Questo vbs fa la stessa cosa con la scheda audio:

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_SoundDevice")

For Each objItem in colItems

    Wscript.Echo "Description: " & objItem.Description

    Wscript.Echo "Device ID: " & objItem.DeviceID

    Wscript.Echo "DMA Buffer Size: " & objItem.DMABufferSize

    Wscript.Echo "Manufacturer: " & objItem.Manufacturer

    Wscript.Echo "MPU 401 Address: " & objItem.MPU401Address

    Wscript.Echo "Name: " & objItem.Name

    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID

    Wscript.Echo "Product Name: " & objItem.ProductName

    Wscript.Echo "Status Information: " & objItem.StatusInfo

Next

Questo vbs per il processore:

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

For Each objItem in colItems

    Wscript.Echo "Address Width: " & objItem.AddressWidth

    Wscript.Echo "Architecture: " & objItem.Architecture

    Wscript.Echo "Availability: " & objItem.Availability

    Wscript.Echo "CPU Status: " & objItem.CpuStatus

    Wscript.Echo "Current Clock Speed: " & objItem.CurrentClockSpeed

    Wscript.Echo "Data Width: " & objItem.DataWidth

    Wscript.Echo "Description: " & objItem.Description

    Wscript.Echo "Device ID: " & objItem.DeviceID

    Wscript.Echo "External Clock: " & objItem.ExtClock

    Wscript.Echo "Family: " & objItem.Family

    Wscript.Echo "L2 Cache Size: " & objItem.L2CacheSize

    Wscript.Echo "L2 Cache Speed: " & objItem.L2CacheSpeed

    Wscript.Echo "Level: " & objItem.Level

    Wscript.Echo "Load Percentage: " & objItem.LoadPercentage

    Wscript.Echo "Manufacturer: " & objItem.Manufacturer

    Wscript.Echo "Maximum Clock Speed: " & objItem.MaxClockSpeed

    Wscript.Echo "Name: " & objItem.Name

    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID

    Wscript.Echo "Processor ID: " & objItem.ProcessorId

    Wscript.Echo "Processor Type: " & objItem.ProcessorType

    Wscript.Echo "Revision: " & objItem.Revision

    Wscript.Echo "Role: " & objItem.Role

    Wscript.Echo "Socket Designation: " & objItem.SocketDesignation

    Wscript.Echo "Status Information: " & objItem.StatusInfo

    Wscript.Echo "Stepping: " & objItem.Stepping

    Wscript.Echo "Unique Id: " & objItem.UniqueId

    Wscript.Echo "Upgrade Method: " & objItem.UpgradeMethod

    Wscript.Echo "Version: " & objItem.Version

    Wscript.Echo "Voltage Caps: " & objItem.VoltageCaps

Next