Ming.

You need to install ADSI in order to do it. Then you would do something like this:

Set ServiceObj = GetObject("WinNT://Your_Server/Your_Service")
ServiceObj.start
Set ServiceObj = nothing

Set ServiceObj = GetObject("WinNT://Your_Server/Your_Service")
ServiceObj.stop
Set ServiceObj = nothing

I have a sample script on my site that does this. You can also get ADSI there

Check it out
http://cwashington.netreach.net

Win32 bit scripting, lots of sample scripts, downloads,
referrence files, and technical support via an online discussion forum.