b=.001
w=.95
solution=NDSolve[{
x''[t]+2 b x'[t] + x[t]==Sin[w t],
  x[0]==10,
x'[0]==0},{x},{t,0,500}]

Plot[Evaluate[x[t]/.First[solution]],{t,0,500},PlotRange->All]
