IISExpress runner

module IISExpress

open System.Diagnostics
open System
open System.IO

let killProcess processName =
    let processStartInfo = ProcessStartInfo(FileName = "taskkill", 
                                            Arguments = "/F /IM " + processName,
                                            UseShellExecute = false,
                                            CreateNoWindow = true)
    Process.Start(processStartInfo).WaitForExit()    

let startIIS path port =
    let arguments = String.Format("/path:{0} /port:{1}", path, port )
    let processStartInfo = ProcessStartInfo(FileName = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "\\IIS Express\\iisexpress.exe",
                                            Arguments = arguments.ToString(),
                                            UseShellExecute = false,
                                            CreateNoWindow = true)
    Process.Start processStartInfo |> ignore

let stopIIS() = 
    killProcess "iisexpress.exe"