Just answering queries.


>>>>>>how can i have the serial number of a computer ?
>>>>>>
>>>>>>can this function be run by sqlserver ?
>>>>>
>>>>>Which part of a computer? Hard drive? BIOS? CDROM? Fan?
>>>>
>>>>
>>>>The fan(s) would be nice, Mike
>>>
>>>Don't forget keyboard, monitors and mice :).
>>>
>>>Um... now everyone will know I'm buying noname mousepads...
>>
>>
>>Couldn't find anything for the mouse pad, so I threw in the sound card.
>>
>>Keyboard
>>

>>
>>On Error *
>>lcComputer = "."
>>loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
>>colItems = loWMIService.ExecQuery("Select * from Win32_Keyboard")
>>For Each loItem In colItems
>>	?"Caption: " + loItem.Caption
>>	?"Description: " + loItem.Description
>>	?"Device ID: " + loItem.DeviceID
>>	?"Is Locked: " + loItem.IsLocked
>>	?"Layout: " + Transform(loItem.Layout)
>>	?"Name: " + loItem.Name
>>	?"Number of Function Keys: " + Transf(loItem.NumberOfFunctionKeys)
>>	?"Password: " + loItem.Password
>>	?"PNP Device ID: " + loItem.PNPDeviceID
>>Next
>>
>>

>>
>>
>>Mouse?
>>
>>

On Error *
>>lcComputer = "."
>>loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
>>colItems = loWMIService.ExecQuery("Select * from Win32_PointingDevice")
>>For Each loItem In colItems
>>	?"Description: " + loItem.Description
>>	?"Device ID: " + loItem.DeviceID
>>	?"Device Interface: " + Transform(loItem.DeviceInterface)
>>	?"Double Speed Threshold: " + Transform(loItem.DoubleSpeedThreshold)
>>	?"Handedness: " + Transform(loItem.Handedness)
>>	?"Hardware Type: " + loItem.HardwareType
>>	?"INF File Name: " + loItem.InfFileName
>>	?"INF Section: " + loItem.InfSection
>>	?"Manufacturer: " + loItem.Manufacturer
>>	?"Name: " + loItem.Name
>>	?"Number Of Buttons: " + Transform(loItem.NumberOfButtons)
>>	?"PNP Device ID: " + loItem.PNPDeviceID
>>	?"Pointing Type: " + Transform(loItem.PointingType)
>>	?"Quad Speed Threshold: " + Transform(loItem.QuadSpeedThreshold)
>>	?"Resolution: " + loItem.Resolution
>>	?"Sample Rate: " + loItem.SampleRate
>>	?"Synch: " + loItem.Synch
>>Next
>>

>>
>>
>>
>>Sound card?
>>

On Error *
>>lcComputer = "."
>>loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
>>colItems = loWMIService.ExecQuery("Select * from Win32_SoundDevice")
>>For Each loItem in colItems
>>?"Description: " + loItem.Description
>>?"Device ID: " + loItem.DeviceID
>>?"DMA Buffer Size: " + loItem.DMABufferSize
>>?"Manufacturer: " + loItem.Manufacturer
>>?"MPU 401 Address: " + loItem.MPU401Address
>>?"Name: " + loItem.Name
>>?"PNP Device ID: " + loItem.PNPDeviceID
>>?"Product Name: " + loItem.ProductName
>>?"Status Information: " + loItem.StatusInfo
>>Next

>
>All of them nice but if same with two computers, useless for copy-protection.