雷客图 站长安全助手 vbs版代码(asp 木马查找)

Sub ShowInfo()
    HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
    HelpStr = HelpStr & "===== 欢迎使用雷客图 ASP 站长安全助手vbs版 =====" & vbcrlf
    HelpStr = HelpStr & "===== 之 检查ASP木马 =====" & vbcrlf
    HelpStr = HelpStr & "===== Author: lake2 =====" & vbcrlf
    HelpStr = HelpStr & "===== Email:lake2@mail.csdn.net =====" & vbcrlf
    HelpStr = HelpStr & "===== 欢迎访问 www.0x54.org 得到更多信息 =====" & vbcrlf
    HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
    HelpStr = HelpStr & vbcrlf
    WScript.Echo HelpStr
End Sub

Sub ShowHelp()
    HelpStr = HelpStr & "#用法: CScript Scan.vbs [扫描路径] [结果HTM文件路径]" & vbcrlf
    HelpStr = HelpStr & "#例子: CScript Scan.vbs d:Web f:myreport.html" & vbcrlf
    HelpStr = HelpStr & vbcrlf
    WScript.Echo HelpStr
End Sub

Sub CheckArg(arg)
    tmpPath = arg
    tmpPath2 = Left(WScript.Arguments.Item(1), InStrRev(WScript.Arguments.Item(1),"")-1)
    Set objFSO = WScript.CreateObject ("Scripting.FileSystemObject")
    If Not objFSO.FolderExists(tmpPath2) Then
        WScript.Echo "Error：错误的路径“" & tmpPath2 & "”！"
        WScript.Quit
    ElseIf Not objFSO.FolderExists(tmpPath) Then
        WScript.Echo "Error：错误的路径“" & tmpPath & "”！"
        WScript.Quit    
    End If
    Set objFSO = Nothing
End Sub

'遍历处理path及其子目录所有文件
Sub ShowAllFile(Path)
    WScript.Echo "正在检查目录" & path
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f = FSO.GetFolder(Path)
    Set fc2 = f.files
    For Each myfile in fc2
        If CheckExt(FSO.GetExtensionName(path&""&myfile.name)) Then
            'WScript.Echo "正在检查文件" & path&""&myfile.name
            Call ScanFile(Path&Temp&""&myfile.name, "")
            SumFiles = SumFiles + 1
        End If
    Next
    Set fc = f.SubFolders
    For Each f1 in fc
        ShowAllFile path&""&f1.name
        SumFolders = SumFolders + 1
    Next
    Set FSO = Nothing
End Sub