Graphics3D[{
{Opacity[.3],CapForm["Square"],Tube[{{0,0,0},{0,0,-1}},{2,1/8}]},
{Opacity[.3],CapForm["Square"],Tube[{{0,0,-1.25},{0,0,-1.5}},{1/8,1/8}]},
Sphere[{1,0,1},1/5],{Text["(Subscript[m, 1])",{1,0,1}],BaseStyle->{Italic,Bold}},Sphere[{0,0,-4},1/5],{Text["(Subscript[m, 2])",{0,0,-4}],BaseStyle->{Italic,Bold}},
{Thick,Line[{{1,0,1},{0,0,-1},{0,0,-4}}]}
},Boxed->False
]