屏蔽端口的vbs脚本
更新时间：2010年04月17日 11:52:10 作者：
有时候服务器为了安全只允许访问的端口加到TCP/IP筛选里面，其它的端口将无法访问。这里的代码就是为了这样的功能实现。
复制代码 代码如下:
'On Error Resume Next
Const ALLOW_ALL = 0
Port = Array("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard In colNetCards
arrPermittedTCPPorts = Port
arrPermittedUDPPorts = Array(ALLOW_ALL)
arrPermittedIPProtocols = Array(ALLOW_ALL)
objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols
Next
执行以后，到
网上邻居--》右键--》属性--》本地连接--》常规--》Internet 协议(TCP/IP)-->属性--》高级--》选项--》TCP/IP筛选--》属性--》只允许 里面即可看到如下图。
上面的代码只是个例子，服务器上不要运行啊，如果要设置服务器，请到脚本之家服务器软件下载中心，查看相关教材。
相关文章
本文给大家分享的是使用VBS实现删除host文件里面的指定内容，非常的简单实用，有需要的小伙伴可以参考下。2015-09-09
VBS教程：方法-Read 方法...2006-11-11
用vbs实现的可以搜索文件名和得到指定目录列表下的文件2008-04-04
VBS教程：方法-Close 方法...2006-11-11
VBS InternetExplorer.Application的属性和方法介绍
V这篇文章主要是介绍vBS InternetExplorer.Application 属性和方法，需要的朋友可以参考一下2009-07-07
飘叶千夫指源代码，又称qq刷屏器...2006-10-10
VBS教程：VBscript属性-FirstIndex 属性
VBS教程：VBscript属性-FirstIndex 属性...2006-11-11
VBS教程：运算符-逻辑运算符...2006-11-11
这篇文章主要介绍了VBS怎么获取指定目录下的文件列表,需要的朋友可以参考下2019-12-12
这个VBS是用来将一个本地网页中的URL筛选出来并保存在新的网页文件中。当然，只要改变里面的正则表达式，就可以作其他用途了。2009-08-08
最新评论