solaris vbs巡检脚本

```vbscript
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
' This automatically generated script may need to be
' edited in order to work correctly.
' chr(13) 回车符
Sub Main
' ---the system info---
crt.Screen.Send "hostname | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "uptime | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "date | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "uname -a | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "last reboot | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "dmesg | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
' ---the hardware info---
crt.Screen.Send "/usr/platform/`uname -i`/sbin/prtdiag -v | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "eeprom | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
' ---the disk monitor---
crt.Screen.Send "format
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "iostat -En | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
' ---the slice monitor---
crt.Screen.Send "df -k | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "df -h | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "more /etc/vfstab | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
' ---the system performance monitor---
crt.Screen.Send "mpstat 3 5 | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "vmstat 3 5 | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "iostat -xPnc | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "iostat -xnzd 3 5 | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "sar 3 5 | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
'---the network info---
crt.Screen.Send "netstat -r | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "netstat -i 3 5 | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "ifconfig -a | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
'---the cluster info---
crt.Screen.Send "/usr/cluster/bin/scstat | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "/usr/cluster/bin/scstat -pv | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "/opt/VRTSvcs/bin/hastatus -sum | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
'---the Veritas software info---
crt.Screen.Send "pkginfo -i |grep -i vxvm | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "/usr/sbin/vxdisk list | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "/usr/sbin/vxdg list | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "/usr/sbin/vxprint -ht | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "pkginfo -i |grep -i vxfs | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "pkginfo -i |grep -i backup | tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
'磁盘检查
crt.Screen.Send "metastat |tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "metastat -p |tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "metadb -i |tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "raidctl |tee -a" & chr(13)
crt.Screen.WaitForString "# "
crt.Sleep 1000
crt.Screen.Send "/usr/sbin/raidconfig list all | tee -a" & chr(13)
crt.Screen.WaitForString "# "
End Sub