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