Add helper function to execute Sysinternals PsExec

src/app/FakeLib/FakeLib.fsproj

@@ -59,6 +59,7 @@
     <Compile Include="ServiceControllerHelper.fs" />
     <Compile Include="GuardedAwaitObservable.fs" />
     <Compile Include="ProcessHelper.fs" />
+    <Compile Include="PsExecHelper.fs" />
     <Compile Include="NpmHelper.fs" />
     <Compile Include="AppVeyor.fs" />
     <Compile Include="BitbucketPipelines.fs" />

src/app/FakeLib/PsExecHelper.fs

@@ -0,0 +1,23 @@
+/// Contains functions for working with Sysinternals PsExec
+module Fake.PsExecHelper
+
+let private formatArgs host username password exe inputs =
+    sprintf @"\\%s -u %s -p %s ""%s"" %s" host username password exe inputs
+
+/// Use Sysinternals PsExec to execute a process on a remote machine.
+/// ## Parameters
+///
+/// - `host` - The hostname of the machine to connect to.
+/// - `username` - A username valid for connecting to the remote machine.
+/// - `password` - The cleartext password of the given user.
+/// - `exe` - The path to the file that is to be executed.
+/// - `inputs` - The command-line arguments to pass to the remote process.
+/// - `timeOut` - The timeout for PsExec.
+let execRemote host username password exe inputs timeout = 
+    let args = formatArgs host username password exe inputs 
+    let exitCode =
+        ExecProcess (fun info ->  
+            info.FileName <- "PsExec.exe"
+            info.Arguments <- args) timeout
+    if exitCode <> 0
+    then failwithf "Failed to execute %s as user %s on host %s with args %s" exe username host inputs