Metin,
It works under winXP SP2.

clear
loWMI = GetObject("winmgmts:\\.\root\cimv2")
oItems = loWMI.ExecQuery("select * from Win32_PhysicalMedia")


For each oItem in oItems
? oItem.Tag, oItem.SerialNumber
EndFor
return

Cetin

>I have windows XP PRO SP2. It didn't work me too.
>
>>Somesh,
>>
>>Unfortunately the solution will not work for any Windows version earlier than XP, as you can see in the requirements here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_physicalmedia.asp
>>
>>

>>Client 	Requires Windows Vista or Windows XP.
>>Server 	Requires Windows Server "Longhorn" or Windows Server 2003.
>>