Commitc366794

committed

Elevation method previously used in internal tests no longer works. Adding our own elevation script to replace it. (changeset 1344811)

1 parentc57dec8 commitc366794Copy full SHA for c366794

File tree

+18

-0

lines changed

+18

-0

lines changed

Lines changed: 18 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,18 @@`
	`1`	`+// simple elevation script - runs the specified command line as admin`
	`2`	`+// usage: fsi --exec elevate.fsx <program> [args]`
	`3`	`+`
	`4`	`+openSystem`
	`5`	`+openSystem.Diagnostics`
	`6`	`+`
	`7`	`+letprogram= fsi.CommandLineArgs.[1]`
	`8`	`+letargs= fsi.CommandLineArgs\|> Seq.skip2\|> String.concat""`
	`9`	`+letstartInfo= ProcessStartInfo(FileName= program, Arguments= args, Verb="runas")`
	`10`	`+letproc=new Process(StartInfo= startInfo)`
	`11`	`+`
	`12`	`+printfn"Elevating:%s%s" program args`
	`13`	`+try`
	`14`	`+ proc.Start()\|> ignore`
	`15`	`+if proc.WaitForExit(30601000)then`
	`16`	`+ Environment.Exit(proc.ExitCode)`
	`17`	`+with e-> eprintfn"%s"(e.ToString())`
	`18`	`+Environment.Exit(1)`

Comments

(0)