Solve[{Abs[z] == 2, Abs[z - I/z] == 3/2}, z]