Dim R, Y, T 

Set R = GetObject ( "winmgmts ://.") 
Set y = r.ExecQuery ( "SELECT * FROM Win32_PhysicalMedia") 

For Each T In Y 
   MsgBox "HDD SerialNumber =" & Trim (T.serialnumber) 
Next 

DECLARE 
R OLE2.OBJ_TYPE; 
Y OLE2.OBJ_TYPE; 
T OLE2.OBJ_TYPE; 
LT OLE2.LIST_TYPE; 
BEGIN 
- R: = OLE2.CREATE_OBJ ( 'WbemScripting.SWbemServices'); 
R: = OLE2.CREATE_OBJ ( 'winmgmts ://.'); 
   LT: = OLE2.CREATE_ARGLIST; 
   OLE2.ADD_ARG (LT, 'SELECT * FROM Win32_PhysicalMedia'); 
Y: = OLE2.INVOKE_OBJ (R, 'ExecQuery', LT); 
- FOR I IN 1 .. Y. COUNT 
END;