solaris vbs巡检脚本
#$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</dev/null | tee -a" & chr(13)
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
posted on 2017-07-26 17:47 #东来# 阅读(...) 评论(...) 编辑 收藏转载于:https://www.cnblogs.com/airport/p/7241017.html
- 点赞
- 收藏
- 分享
- 文章举报
- vb的LINQ实现
- VB.NET 使用CHART控件做实时曲线
- VB总结
- 用VB制作文件下载程序(转)
- LGT8F328P-SSOP20 MiniEVB与USB--TTL烧录器连接
- VB调用.NET DLL(一)
- VB.NET水晶报表Crystal Reports学习(开发环境安装+程序示例+报表示例+客户端运行环境)
- 【求助】如何将循环检测中的代码检测到后只循环一次(vbs语言)
- VB6.0的DllFunctionCall
- VB程序中如何找到自定义函数
- VB 获取 Internet Explorer_Server 里面的内容
- VB钓鱼
- VB语言入门学习
- VBA编程实现汉字注音
- C# params VB.NET ParamArray
- 编程怎么做·VB.NET如何启动一个程序
- 【VB6至VB.Net的进步】字符串转UTF-8的URL
- Excel vba获取文件夹内文件名
- VB6上创建金蝶K/3或KIS旗舰版插件
- vbs脚本大全