-- by xosmy (also lordi_scripts)
local places = game:GetService("AssetService"):GetGamePlacesAsync()
for _, place in pairs(places:GetCurrentPage()) do
    print(place.Name, place.PlaceId)
end