DSolve[b*y[x] - 3*(a + 2*WeierstrassP[x, {g2, g3}])*Derivative[1][y][x] + Derivative[3][y][x] == 0,y[x],x]