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

I only get as far as the name - and I don't see any serial number in your code