Let {W(t), 0≦t<∞} be the standard Wiener process. The computation schemes developed in the past are not computationally efficient for the absorption probabilities of the type P{sup0≦t≦TW(t) − f(t) ≧ 0} when either T is large or f(0) > 0 is small. This paper gives an efficient and accurate algorithm to compute such probabilities, and some applications to other Gaussian stochastic processes are discussed.