Hi,
Thanks for giving the solution.
OS in my machine is Win Xp.
Can you please tell me if it will also work for other OS like Win 98 and Win 2000?

Regards,
Somesh

>>Hi
>>I am developing a software in VFP for which i need the serial number of the hard disk. I don't want the Volume Number of the drive (ie c: , d: etc) as according to my information, this volume number changes whenever that volume is formatted. Can anybody help in getting the Hard Disk serial number which is manufacturer defined and which will not change.
>> Can anyone please tell me the VFP or API function to obtain disk serial number.
>>
>> thanks in advance
>>
>>Regards,
>>Somesh
>
>

>loWMI = GetObject("winmgmts:\\.\root\cimv2")
>oItems = loWMI.ExecQuery("select * from Win32_PhysicalMedia")
>
>For each oItem in oItems
> ? oItem.Tag, oItem.SerialNumber
>endfor
>

Cetin