MDB format Web site files how to extract

Intermediary transaction http://www.aliyun.com/zixun/aggregation/6858.html ">seo diagnose Taobao guest cloud host technology Hall

Yesterday pack downloaded a server whole station, get this *.mdb file, but do not know how to use, Baidu a bit, just know is a kind of Trojan package form file, cannot use WinRAR to decompress, can use ocean packaging tools for decompression, but this tool is difficult to find. Later on the internet to find a more simple way to share with you.

Will *. The MDB file is placed in a local folder, the following code into Notepad, save as Unpack.vbs file, to extract the file renamed to Hytop.mdb after decompression. VB script files and MDB files in a directory, the implementation of VB script on the line (double-click this script). Wait a few minutes and you'll be prompted when you're done. (not complete forced exit solution is incomplete package)

Unpack.vbs

Dim RS, WS, FSO, Conn, stream, ConnStr, Thefolder

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=hytop.mdb;"

Conn. Open ConnStr

Rs. Open "Filedata", Conn, 1, 1

Stream. Open

Stream. Type = 1

On Error Resume Next

Do Loop Rs. Eof

Thefolder = Left (rs ("Thepath"), InStrRev (RS ("Thepath"), "\")

If FSO. FolderExists (Thefolder) = False Then

CreateFolder (Thefolder)

End If

Stream. SetEOS ()

Stream. Write rs ("Filecontent")

Stream. SaveToFile Str & RS ("Thepath"), 2

Rs. MoveNext

Loop

Rs. Close

Conn. Close

Stream. Close

Set ws = Nothing

Set rs = Nothing

Set stream = Nothing

Set conn = Nothing

WScript.Echo "All Files released!"

Sub CreateFolder (Thepath)

Dim I

i = Instr (Thepath, "\")

Do While I > 0

If FSO. FolderExists (Left (thepath, i)) = False 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