sending computer to sleep

hi

i have a vbs that after two hours sends my computer to shutdown. this is the script

set shell = CreateObject("Wscript.Shell")

shell.run "shutdown.exe -s -t 7200"

i was wondering if there is any way i could change it to send my computer to sleep instead of shuting down?

any help would be appreciated

thanks

michael