vbscript应用于netscreen防火墙检查
来源:互联网 发布:掌知识软件下载 编辑:程序博客网 时间:2024/06/01 08:20
程序明说:通过中转solaris系统登录多台netscreen防火墙,检查设备状态crt脚本(vbs脚本vbscript)
# $language = "VBScript"
# $interface = "1.0"
Sub Main
Cnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=firewall.mdb;Persist Security Info=False"
tabname="setmessage"
'dulttab="dultmess" '填写报表数据表
'dultnametab="dult" '值班人员表
Set cn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
'Set rs1=CreateObject("ADODB.Recordset")
'Set rs2=CreateObject("ADODB.Recordset")
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("testfile.txt", True)
cn.Open Cnstr
rs.Open "select * from "+tabname,cn,1,3
Dim cpustr,memorystr,connstr
Dim objXL
Set objXL=CreateObject("Excel.Application")
objXL.Visible=false
'objXL.WorkBooks.Add
Set objWb = objXL.WorkBooks.Open ("c:/firewall/template.xls")
' Get the first loaded worksheet object of the current workbook
Set objWb = objXL.ActiveWorkBook.WorkSheets(1)
objWb.Activate ' not absolutely necessary (for CSV)
'objXL.Columns(1).ColumnWidth=40
'objXL.Columns(2).ColumnWidth=40
'objXL.Columns(3).ColumnWidth=20
'objXL.Cells(1,1).Value="cpu"
'objXL.Cells(1,2).Value="memory"
'objXL.Cells(1,3).Value="connest"
crt.Screen.Synchronous = True
crt.Session.Connect ("/telnet 132.*")
crt.Screen.WaitForString "login:"
crt.screen.Send "用户名" & Chr(10)
crt.Screen.WaitForString "Password:"
crt.screen.Send "密码" & Chr(10)
'bug处理
crt.Screen.WaitForString "eric@dszmas1o> "
crt.screen.Send "df -k" & Chr(10)
screenrow = crt.screen.Rows
cpustr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
memorystr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
connstr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
crt.screen.Send Chr(10)
crt.Screen.WaitForString "> "
crt.screen.Send "echo "& cpustr & Chr(10)
crt.Screen.WaitForString ">"
crt.screen.Send "echo "& memorystr & Chr(10)
crt.Screen.WaitForString ">"
crt.screen.Send "echo "& connstr & Chr(10)
crt.screen.Send Chr(10)
intindex=3
Dim ipaddr,username,seten,setname,systemtype,dultname
dultname=crt.Dialog.Prompt("input dultname", "dultname", "", False)
While Not rs.eof
ipaddr=rs("ipaddr")
username=rs("username")
seten=rs("seten")
systemtype=rs("systemtype")
setname=rs("setname")
MyFile.WriteLine(ipaddr)
MyFile.WriteLine(Date)
crt.Screen.WaitForString "> "
crt.screen.Send "telnet "&ipaddr & Chr(10)
crt.Screen.WaitForString "login:"
crt.screen.Send username & Chr(10)
crt.Screen.WaitForString "password:"
crt.screen.Send seten & Chr(10)
crt.Screen.WaitForString "->"
crt.screen.Send "get performance cpu"& Chr(10)
crt.Screen.WaitForString "->"
screenrow = crt.screen.Rows - 2
cpustr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
' objXL.Cells(intindex,1).value=cpustr
crt.screen.Send "get memory"& Chr(10)
crt.Screen.WaitForString "->"
screenrow = crt.screen.Rows - 1
memorystr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
'objXL.Cells(intindex,2).value=memorystr
crt.screen.Send "get session | include alloc"& Chr(10)
crt.Screen.WaitForString "->"
screenrow = crt.screen.Rows - 1
connstr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
'objXL.Cells(intindex,3).value=connstr
crt.screen.Send "exit"& Chr(10)
'处理提处字符串的信息,通过unix系统进行数据计算(字符提取)
objwb.Cells(intindex,6).value=datetime '记录日期
objwb.Cells(intindex,4).value=dultname
objwb.Cells(intindex,13).value=setname
objwb.Cells(intindex,14).value=systemtype
objwb.Cells(intindex,18).value="正常"
objwb.Cells(intindex,19).value="正常"
objwb.Cells(intindex,20).value="正常"
crt.Screen.WaitForString ">"
crt.screen.Send "echo "& cpustr & "| awk -F" & Chr(34)&":"&Chr(34)&" '{print $2}'" & Chr(10)
crt.Screen.WaitForString ">"
screenrow = crt.screen.Rows - 1
cpustr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
MyFile.WriteLine(cpustr)
objwb.Cells(intindex,15).value=cpustr
crt.screen.Send "echo "& memorystr & "| awk -F"&Chr(34)&" "&Chr(34)&" '{print $3,$5}'"&"| awk -F"&chr(34)&","&chr(34)&" '{printf("&chr(34)&"%3.1f%/n"& chr(34)&",$1*100/($1+$2))}'"&chr(10)
crt.Screen.WaitForString ">"
screenrow = crt.screen.Rows - 1
memorystr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
objwb.Cells(intindex,16).value=memorystr
MyFile.WriteLine(memorystr)
crt.screen.Send "echo "& connstr &"|awk -F"&Chr(34)&" "&Chr(34)&" '{print $2}' | awk -F"&chr(34)&"/"&chr(34)&" '{print $1}'"&Chr(10)
crt.Screen.WaitForString ">"
screenrow = crt.screen.Rows - 1
connstr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
objwb.Cells(intindex,17).value=connstr
MyFile.WriteLine(connstr)
crt.screen.Send Chr(10)
intindex=intindex+1
rs.movenext
Wend
crt.Screen.WaitForString "eric@dszmas1o> "
crt.screen.Send "exit" & Chr(10)
crt.Screen.Synchronous = False
objwb.Cells.Select
objXL.Selection.Rows.AutoFit
objXL.Selection.Columns.AutoFit
objXL.cells(1,1).Select
objXL.ActiveWorkBook.SaveCopyAs("c:/firewall/ttt.xls")
objXL.Quit() ' Quit Excel
rs.close
MyFile.Close
Set rs=Nothing
Set cn=Nothing
End Sub
# $language = "VBScript"
# $interface = "1.0"
Sub Main
Cnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=firewall.mdb;Persist Security Info=False"
tabname="setmessage"
'dulttab="dultmess" '填写报表数据表
'dultnametab="dult" '值班人员表
Set cn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
'Set rs1=CreateObject("ADODB.Recordset")
'Set rs2=CreateObject("ADODB.Recordset")
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("testfile.txt", True)
cn.Open Cnstr
rs.Open "select * from "+tabname,cn,1,3
Dim cpustr,memorystr,connstr
Dim objXL
Set objXL=CreateObject("Excel.Application")
objXL.Visible=false
'objXL.WorkBooks.Add
Set objWb = objXL.WorkBooks.Open ("c:/firewall/template.xls")
' Get the first loaded worksheet object of the current workbook
Set objWb = objXL.ActiveWorkBook.WorkSheets(1)
objWb.Activate ' not absolutely necessary (for CSV)
'objXL.Columns(1).ColumnWidth=40
'objXL.Columns(2).ColumnWidth=40
'objXL.Columns(3).ColumnWidth=20
'objXL.Cells(1,1).Value="cpu"
'objXL.Cells(1,2).Value="memory"
'objXL.Cells(1,3).Value="connest"
crt.Screen.Synchronous = True
crt.Session.Connect ("/telnet 132.*")
crt.Screen.WaitForString "login:"
crt.screen.Send "用户名" & Chr(10)
crt.Screen.WaitForString "Password:"
crt.screen.Send "密码" & Chr(10)
'bug处理
crt.Screen.WaitForString "eric@dszmas1o> "
crt.screen.Send "df -k" & Chr(10)
screenrow = crt.screen.Rows
cpustr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
memorystr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
connstr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
crt.screen.Send Chr(10)
crt.Screen.WaitForString "> "
crt.screen.Send "echo "& cpustr & Chr(10)
crt.Screen.WaitForString ">"
crt.screen.Send "echo "& memorystr & Chr(10)
crt.Screen.WaitForString ">"
crt.screen.Send "echo "& connstr & Chr(10)
crt.screen.Send Chr(10)
intindex=3
Dim ipaddr,username,seten,setname,systemtype,dultname
dultname=crt.Dialog.Prompt("input dultname", "dultname", "", False)
While Not rs.eof
ipaddr=rs("ipaddr")
username=rs("username")
seten=rs("seten")
systemtype=rs("systemtype")
setname=rs("setname")
MyFile.WriteLine(ipaddr)
MyFile.WriteLine(Date)
crt.Screen.WaitForString "> "
crt.screen.Send "telnet "&ipaddr & Chr(10)
crt.Screen.WaitForString "login:"
crt.screen.Send username & Chr(10)
crt.Screen.WaitForString "password:"
crt.screen.Send seten & Chr(10)
crt.Screen.WaitForString "->"
crt.screen.Send "get performance cpu"& Chr(10)
crt.Screen.WaitForString "->"
screenrow = crt.screen.Rows - 2
cpustr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
' objXL.Cells(intindex,1).value=cpustr
crt.screen.Send "get memory"& Chr(10)
crt.Screen.WaitForString "->"
screenrow = crt.screen.Rows - 1
memorystr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
'objXL.Cells(intindex,2).value=memorystr
crt.screen.Send "get session | include alloc"& Chr(10)
crt.Screen.WaitForString "->"
screenrow = crt.screen.Rows - 1
connstr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
'objXL.Cells(intindex,3).value=connstr
crt.screen.Send "exit"& Chr(10)
'处理提处字符串的信息,通过unix系统进行数据计算(字符提取)
objwb.Cells(intindex,6).value=datetime '记录日期
objwb.Cells(intindex,4).value=dultname
objwb.Cells(intindex,13).value=setname
objwb.Cells(intindex,14).value=systemtype
objwb.Cells(intindex,18).value="正常"
objwb.Cells(intindex,19).value="正常"
objwb.Cells(intindex,20).value="正常"
crt.Screen.WaitForString ">"
crt.screen.Send "echo "& cpustr & "| awk -F" & Chr(34)&":"&Chr(34)&" '{print $2}'" & Chr(10)
crt.Screen.WaitForString ">"
screenrow = crt.screen.Rows - 1
cpustr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
MyFile.WriteLine(cpustr)
objwb.Cells(intindex,15).value=cpustr
crt.screen.Send "echo "& memorystr & "| awk -F"&Chr(34)&" "&Chr(34)&" '{print $3,$5}'"&"| awk -F"&chr(34)&","&chr(34)&" '{printf("&chr(34)&"%3.1f%/n"& chr(34)&",$1*100/($1+$2))}'"&chr(10)
crt.Screen.WaitForString ">"
screenrow = crt.screen.Rows - 1
memorystr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
objwb.Cells(intindex,16).value=memorystr
MyFile.WriteLine(memorystr)
crt.screen.Send "echo "& connstr &"|awk -F"&Chr(34)&" "&Chr(34)&" '{print $2}' | awk -F"&chr(34)&"/"&chr(34)&" '{print $1}'"&Chr(10)
crt.Screen.WaitForString ">"
screenrow = crt.screen.Rows - 1
connstr = crt.Screen.Get(screenrow, 1, screenrow, 110 )
objwb.Cells(intindex,17).value=connstr
MyFile.WriteLine(connstr)
crt.screen.Send Chr(10)
intindex=intindex+1
rs.movenext
Wend
crt.Screen.WaitForString "eric@dszmas1o> "
crt.screen.Send "exit" & Chr(10)
crt.Screen.Synchronous = False
objwb.Cells.Select
objXL.Selection.Rows.AutoFit
objXL.Selection.Columns.AutoFit
objXL.cells(1,1).Select
objXL.ActiveWorkBook.SaveCopyAs("c:/firewall/ttt.xls")
objXL.Quit() ' Quit Excel
rs.close
MyFile.Close
Set rs=Nothing
Set cn=Nothing
End Sub
- vbscript应用于netscreen防火墙检查
- Netscreen 防火墙配置文档
- NetScreen防火墙简明配置手册
- netscreen防火墙端口映射(vip)
- netscreen防火墙端口映射(vip)
- Netscreen防火墙命令行下限BT下载
- linux+shell+脚本+过滤NetScreen防火墙日志
- Juniper Netscreen防火墙VPN配置案例
- Netscreen 防火墙透明模式配置案例
- Juniper netscreen防火墙SNMP配置详解
- NetScreen防火墙DoS攻击的检测和防御
- Juniper NetScreen防火墙DoS攻击的检测和防御
- Juniper NetScreen防火墙DoS攻击的检测和防御
- 检查是否开启了防火墙
- Netscreen密码恢复
- netscreen debug
- netscreen&fortinet
- Juniper NetScreen
- 多任务、进程和线程
- JS笔记
- SSO单点登陆方案整理
- 有关UEFI相关知识可以到连接查阅
- [组图]DB2技术专家沙龙活动(上海站)圆满结束
- vbscript应用于netscreen防火墙检查
- 求网速
- vi手册
- 青春 塞缪尔·厄尔曼
- 在上班的时候MSN和QQ
- 外挂制作全过程
- Editing a little faster
- 嵌入式Linux编程--我的第一次艰难跋涉
- 网络游戏外挂编写基础(1)