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

    end if
        set fsos = nothing

End Sub

Function GetDateModify(filepath)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filepath)
    s = f.DateLastModified
    set f = nothing
    set fso = nothing
    GetDateModify = s
End Function

Function GetDateCreate(filepath)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filepath)
    s = f.DateCreated
    set f = nothing
    set fso = nothing
    GetDateCreate = s
End Function

Sub WriteToFile()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set theFile = FSO.OpenTextFile(WScript.Arguments.Item(1), 2, True)
    theFile.Write(Report2)
    theFile.Close
    Set FSO = Nothing
    WScript.Echo "扫描结果已经写入文件“"&WScript.Arguments.Item(1)&"”，请查看之！"
End Sub


因代码比较多，特打包给大家学习使用。http://xiazai.jb51.net/200907/yuanma/vbs_aspmuma.rar