一般登陸上主機(jī)后都會(huì)敲一些命令了解主機(jī)的主要參數(shù)，把常用命令集成在一個(gè)vbs腳本里， 自動(dòng)執(zhí)行，方便高效。

SecureCRT運(yùn)行方法：菜單欄Script --> 選擇Run --> 選擇vbs腳本(后面提供Solaris和AIX操作系統(tǒng)的檢測(cè)腳本)。

檢測(cè)SUN主機(jī)，solaris_info.vbs如下：
------------------------------------------------------------------------------------------------
#$language = "VBScript"
#$interface = "1.0"

Sub Main
'清空屏幕
crt.Screen.Send "clear" & chr(13)
crt.Screen.WaitForString "$ "
'主機(jī)名
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 "$ "
'主機(jī)啟動(dòng)時(shí)間
crt.Screen.Send "uptime" & chr(13)
crt.Screen.WaitForString "$ "
'主機(jī)IP
crt.Screen.Send "cat /etc/hosts" & chr(13)
crt.Screen.WaitForString "$ "
crt.Screen.Send "ifconfig -a" & chr(13)
crt.Screen.WaitForString "$ "
'主機(jī)CPU
crt.Screen.Send "isainfo -kv" & chr(13)
crt.Screen.WaitForString "$ "
crt.Screen.Send "psrinfo -v" & chr(13)
'主機(jī)內(nèi)存
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環(huán)境變量
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)
'主機(jī)空間
crt.Screen.WaitForString "$ "
crt.Screen.Send "df -h" & chr(13)
'Oracle服務(wù)
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
------------------------------------------------------------------------------------------------

檢測(cè)IBM主機(jī)，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--