I'm running a simple script that prompts for a servername, then passes that server into a perl script. It does not bomb, but the perl script is not run. I plan to add error checking later, but for now I'd just like to get this running. The perl scrip runs without issue from the commandline. I noticed that when I changed the oShell.Run to 'true' the return code is 13. Any Ideas?
<%
if Request("SvrMaintModeOn") <> "" then
Dim sProgDir
Dim sHostVar
Dim sExec
Dim sCmd
Dim oShell
Dim stest
Dim rc
sProgDir = "C:\Perl\bin\perl.exe"
sHostVar = " " & Request("ServerName")
sExec = "C:\inetpub\ sCmd = sProgDir & " " & sExec & " " & sHostVar
Set oShell = Server.CreateObject("Wscript.Shell")
rc=oShell.Run(sCmd,1,true)
Response.Write "Maintenance Mode On" & rc
Response.End
end if
%>
<html>
<body>
<p>
<img src=" </p>
<p>
<b>Note:</b> Enter the Server you want to place into Maintenance Mode.
</p>
<form method="post">
Server Name:
<input type="text" name="ServerName">
<br>
<input type="submit" name="SvrMaintModeOn" value="Enter">
</form>
</body>
</html>
<%
if Request("SvrMaintModeOn") <> "" then
Dim sProgDir
Dim sHostVar
Dim sExec
Dim sCmd
Dim oShell
Dim stest
Dim rc
sProgDir = "C:\Perl\bin\perl.exe"
sHostVar = " " & Request("ServerName")
sExec = "C:\inetpub\ sCmd = sProgDir & " " & sExec & " " & sHostVar
Set oShell = Server.CreateObject("Wscript.Shell")
rc=oShell.Run(sCmd,1,true)
Response.Write "Maintenance Mode On" & rc
Response.End
end if
%>
<html>
<body>
<p>
<img src=" </p>
<p>
<b>Note:</b> Enter the Server you want to place into Maintenance Mode.
</p>
<form method="post">
Server Name:
<input type="text" name="ServerName">
<br>
<input type="submit" name="SvrMaintModeOn" value="Enter">
</form>
</body>
</html>
