I agree with Xearo, however,

'* stops dependent services (Sql Server Agent) , waits 20 seconds and stops

'* MSSQLSERVER

'* this can be set to run as a scheduled task

strComputer =...