Restarting a windows service using VBScript

 Set oshell = createobject("Wscript.Shell")
    oshell.run"cmd.exe"
    wscript.sleep 500
    oshell.sendkeys "net stop ""Your service name here"""+("{Enter}")
    wscript.sleep 5000
    oshell.sendkeys "net start ""Your service name here"""+("{Enter}")
    wscript.sleep 5000
    oshell.sendkeys "exit"+("{Enter}")

    set oshell = nothing

    WScript.Quit