How to monitor disk read/write activity

Is there a way to monitor disk reads and writes in Applescript? I want to create a drive activity monitor, and I cannot figure out a way to do it. Can anyone point me in the right direction?

TIA.