securecrt显示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