Dim DeployMachine:DeployMachine = "KCI-APP01"
Dim WshShell:Set WshShell = WScript.CreateObject("Wscript.Shell")

debug.WriteLine ScriptDirectory & "PsExec64.exe -i \\" & DeployMachine & " -u ntp\daniel_admin -p BarkHornSlam4* cmd.exe /C nircmd.exe " & _
"elevatecmd runassystem powershell ""Stop-WebAppPool -Name tracking"" & exit"

WshShell.Run ScriptDirectory & "PsExec64.exe -i \\" & DeployMachine & " -u ntp\daniel_admin -p BarkHornSlam4* nircmd.exe " & _
"elevatecmd runassystem powershell ""Stop-WebAppPool -Name tracking""" ,1,True




' powershell -Command "Stop-WebAppPool -Name tracking"