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

一般登陆上主机后都会敲一些命令了解主机的主要参数，把常用命令集成在一个vbs脚本里，自动执行unix脚本，方便高效。

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--

（编辑：成都站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!