oService = GetObject("winmgmts:\\.\root\cimv2")
 
oDrives = oService.ExecQuery("SELECT * " +;
    "FROM Win32_LogicalDisk")  &&  WHERE DriveType=4
 
CREATE CURSOR cs (;
    drvletter C(2), drvtype I, descript C(30), provider C(100);
)
 
FOR EACH oDrive IN oDrives
    WITH oDrive
        INSERT INTO cs VALUES (;
            .DeviceId, .DriveType,;
            NVL(.Description,""), NVL(.ProviderName,"");
        )
    ENDWITH
NEXT
 
GO TOP
BROWSE NORMAL NOWAIT