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

If the information is in the right place, this will do it.

On Error *
lcComputer = "."
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_Fan")
For Each loItem in colItems
?"Active Cooling: " + loItem.ActiveCooling
?"Availability: " + loItem.Availability
?"Device ID: " + loItem.DeviceID
?"Name: " + loItem.Name
?"Status Information: " + loItem.StatusInfo
?
Next