屏蔽端口的vbs腳本
更新時間：2010年04月17日 11:52:10 作者：
有時候服務器為了安全只允許訪問的端口加到TCP/IP篩選里面，其它的端口將無法訪問。這里的代碼就是為了這樣的功能實現(xiàn)。
復制代碼 代碼如下:
'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
執(zhí)行以后，到
網(wǎng)上鄰居--》右鍵--》屬性--》本地連接--》常規(guī)--》Internet 協(xié)議(TCP/IP)-->屬性--》高級--》選項--》TCP/IP篩選--》屬性--》只允許 里面即可看到如下圖。
上面的代碼只是個例子，服務器上不要運行啊，如果要設置服務器，請到腳本之家服務器軟件下載中心，查看相關(guān)教材。
相關(guān)文章
本文給大家分享的是使用VBS實現(xiàn)刪除host文件里面的指定內(nèi)容，非常的簡單實用，有需要的小伙伴可以參考下。2015-09-09
VBS教程：方法-Read 方法...2006-11-11
用vbs實現(xiàn)的可以搜索文件名和得到指定目錄列表下的文件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是用來將一個本地網(wǎng)頁中的URL篩選出來并保存在新的網(wǎng)頁文件中。當然，只要改變里面的正則表達式，就可以作其他用途了。2009-08-08