Set Win = CreateObject("Shell.Application") Win.Filerun Set objShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 200 objShell.SendKeys "services.msc" WScript.Sleep 100 objShell.SendKeys "{ENTER}" WScript.Sleep 100