SecureCRT中用vbs脚本批量执行unix命令

SecureCRT运行方法：菜单栏Script --> 选择Run --> 选择vbs脚本(后面提供Solaris和AIX操作系统的检测脚本)。

检测SUN主机，solaris_info.vbs如下：

#$language = "VBScript"

Sub Main

'清空屏幕

crt.Screen.Send "clear" & chr(13)

crt.Screen.WaitForString "$ "

'主机名

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

crt.Screen.WaitForString "$ "

crt.Screen.Send "domainname" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "uname -a" & chr(13)

crt.Screen.WaitForString "$ "

'主机启动时间

crt.Screen.Send "uptime" & chr(13)

crt.Screen.WaitForString "$ "

'主机IP

crt.Screen.Send "cat /etc/hosts" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "ifconfig -a" & chr(13)

crt.Screen.WaitForString "$ "

'主机CPU

crt.Screen.Send "isainfo -kv" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "psrinfo -v" & chr(13)

'主机内存

crt.Screen.WaitForString "$ "

crt.Screen.Send "prtconf | grep Mem" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "swap -s" & chr(13)

crt.Screen.WaitForString "$ "

'Oracle环境变量

crt.Screen.Send "grep ^ORACLE_ .profile" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "echo $NLSLANG" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "echo $TZ" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "echo $PATH" & chr(13)

'主机空间

crt.Screen.WaitForString "$ "

crt.Screen.Send "df -h" & chr(13)

'Oracle服务

crt.Screen.WaitForString "$ "

crt.Screen.Send "tnsping orcl" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "lsnrctl status" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "ps -ef | grep ora" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "ps -ef | grep LOCAL=NO | grep -v grep | wc -l" & chr(13)

End Sub

检测IBM主机，aix_info.vbs如下：

#$language = "VBScript"

#$interface = "1.0"

Sub Main

crt.Screen.Send "clear" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "uname -a" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "uptime" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "ifconfig -a" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "lsdev -C|grep Process" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "lsattr -E -l sys0 -a realmem" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "lsps -a" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "echo $NLS_LANG" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "echo $TZ" & chr(13)

crt.Screen.WaitForString "$ "

crt.Screen.Send "df -k" & chr(13)

End Sub

--End--