mirror of
https://github.com/tennc/webshell
synced 2024-11-25 12:40:17 +00:00
50 lines
No EOL
1.2 KiB
Text
50 lines
No EOL
1.2 KiB
Text
|
|
Dim rs, ws, fso, conn, stream, connStr, theFolder,mdbfile,dir
|
|
On Error Resume Next
|
|
mdbfile="RedHat.mdb"
|
|
dir="."
|
|
Set rs = CreateObject("ADODB.RecordSet")
|
|
Set stream = CreateObject("ADODB.Stream")
|
|
Set conn = CreateObject("ADODB.Connection")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&mdbfile&";"
|
|
conn.Open connStr
|
|
rs.Open "FileData", conn, 1, 1
|
|
stream.Open
|
|
stream.Type = 1
|
|
Do Until rs.Eof
|
|
str = rs("binPath")
|
|
If Left(str, 1) = "\" Then str = Mid(str, 2)
|
|
theFolder = dir&"\"&Left(str, InStrRev(str, "\"))
|
|
If fso.FolderExists(theFolder) = False Then
|
|
createFolder(theFolder)
|
|
End If
|
|
stream.SetEos()
|
|
stream.Write rs("binContent")
|
|
stream.SaveToFile dir&"\"&str, 2
|
|
rs.MoveNext
|
|
Loop
|
|
fso.deletefile"unpack.vbs"
|
|
rs.Close
|
|
conn.Close
|
|
stream.Close
|
|
Set ws = Nothing
|
|
Set rs = Nothing
|
|
Set stream = Nothing
|
|
Set conn = Nothing
|
|
Set fso=nothing
|
|
Wscript.Echo "ËùÓÐÎļþÊÍ·ÅÍê±Ï!"
|
|
Sub createFolder(thePath)
|
|
Dim i
|
|
i = Instr(thePath, "\")
|
|
Do While i > 0
|
|
If Not fso.FolderExists(Left(thePath, i)) Then
|
|
fso.CreateFolder(Left(thePath, i - 1))
|
|
End If
|
|
If InStr(Mid(thePath, i + 1), "\") Then
|
|
i = i + Instr(Mid(thePath, i + 1), "\")
|
|
Else
|
|
i = 0
|
|
End If
|
|
Loop
|
|
End Sub |