LOCAL loFSO, loDrivesCol, loDrive, loFolders, loFiles, llIsReady, lnDriveType loFSO = CREATEOBJECT("Scripting.FileSystemObject") loDrivesCol = loFSO.Drives FOR EACH loDrive IN loDrivesCol lnDriveType = loDrive.DriveType DO CASE CASE lnDriveType = 3 drv= loDrive.DriveLetter SHARE = ALLT(loDrive.ShareName) messagebox(+drv+" is mapped as "+share) ENDCASE NEXTHTH