为设备添加多条策略的VB脚本

NETOBJ

# $language = "VBscrīpt"
# $interface = "1.0"

crt.screen.Synchronous = True

For i =1 to 200
crt.screen.Send("set addressbook address subnet ob")
crt.screen.Send(i)
crt.screen.Send(" dmz 172.16.")
crt.screen.Send(i)
crt.screen.Send(".0/24")
crt.screen.send(vbcr)
crt.screen.WaitForString("#")
Next

POLICY

# $language = "VBscrīpt"
# $interface = "1.0"

crt.screen.Synchronous = True

For i =1 to 200
crt.screen.Send("set policy from untrust to dmz any ob")
crt.screen.Send(i)
crt.screen.Send(" any deny")
crt.screen.send(vbcr)
crt.screen.WaitForString("#")
Next

很有用哦，尤其对我这种对VB脚本不似乎很熟悉的人～～～