Chinaunix

标题: 在SecureCRT中使用自定义vbs脚本自动检测主机关键参数 [打印本页]

作者: edeed 时间: 2007-08-27 16:58
标题: 在SecureCRT中使用自定义vbs脚本自动检测主机关键参数
一般登陆上主机后都会敲一些命令了解主机的主要参数，把常用命令集成在一个vbs脚本里，自动执行，方便高效。
Script - Run 选择vbs脚本
检测SUN主机，solaris_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 "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 "$ "
      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
############################################################
检测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
############################################################

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/4034/showart_368924.html

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)