SecureCRT中用vbs脚本批量执行unix命令 一般登陆上主机后都会敲一些命令了解主机的主要参数，把常用命令集成在一个vbs脚本里， 自动执行，方便高效。
SecureCRT运行方法：菜单栏Script --> 选择Run --> 选择vbs脚本(后面提供Solaris和AIX操作系统的检测脚本)。
检测SUN主机，solaris_info.vbs如下：
#$language = "VBScript" #$interface = "1.0"
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 $NLS_LANG" & 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--
