SecureCRT VBScript脚本 检查Linux是否近期有访问异常

Linux 07/31 阅读 10 views次 人气 0
摘要:

SecureCRT VBScript脚本 检查Linux是否近期有访问异常,SecureCRT VBScript脚本 检查Linux是否近期有访问异常,SecureCRT VBScript脚本 检查Linux是否近期有访问异常。

代码案例:

# $language = "VBScript"
# $interface = "1.0"
 
Sub Main
    CRT.Session.logFileName = "C:\log.txt"
    Call crt.Session.Log(True)

    crt.Screen.Send "hostname" & chr(13)
    crt.Screen.WaitForString "#"

    crt.Screen.Send "cd /" & chr(13)
    crt.Screen.WaitForString "#"
    crt.Screen.Send "find -name agent.conf" & chr(13)
    crt.Screen.WaitForString "#"
    crt.Screen.Send "find -name cmd.n" & chr(13)
    crt.Screen.WaitForString "#"
    crt.Screen.Send "find -name conf.n" & chr(13)
    crt.Screen.WaitForString "#"
    crt.Screen.Send "find -name getty.lock" & chr(13)
    crt.Screen.WaitForString "#"

    crt.Screen.Send "cd /etc/init.d" & chr(13)
    crt.Screen.WaitForString "#"
    crt.Screen.Send "find ./ -name Db*" & chr(13)
    crt.Screen.WaitForString "#"

    crt.Screen.Send "cd /usr/bin/bsd-port" & chr(13)
    crt.Screen.WaitForString "#"

    crt.Screen.Send "find / -mtime 0 -o -mtime 1 -o -mtime 2 -o -mtime 3 -o -mtime 4 -o -mtime 5 -o -mtime 6 -o -mtime 7" & chr(13)
    crt.Screen.WaitForString "#"    

    crt.Screen.Send "last" & chr(13)
    crt.Screen.WaitForString "#"

    Call crt.Session.Log(False)
    
End Sub


评论

表情

分享到: