屏蔽端口的vbs腳本

2019-10-26 18:03:30

字體：大中小

供稿：網(wǎng)友

復(fù)制代碼代碼如下:

'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)-->屬性--》高級(jí)--》選項(xiàng)--》TCP/IP篩選--》屬性--》只允許里面即可看到如下圖。

上面的代碼只是個(gè)例子，服務(wù)器上不要運(yùn)行啊，如果要設(shè)置服務(wù)器，請(qǐng)到武林站長(zhǎng)站服務(wù)器軟件下載中心，查看相關(guān)教材。

您可能感興趣的文章:

javascript屏蔽右鍵代碼jquery禁用右鍵單擊功能屏蔽F5刷新屏蔽網(wǎng)頁(yè)右鍵復(fù)制和ctrl+c復(fù)制的js代碼屏蔽Flash右鍵信息的js代碼網(wǎng)頁(yè)屏蔽(左右鍵,代碼等)的非JS方法vbs之使用Internet Explorer 屏蔽密碼vbs屏蔽鍵盤(pán)按鍵VB使用XMLHTTP實(shí)現(xiàn)Post與Get的方法VB讀取線程、句柄及寫(xiě)入內(nèi)存的API代碼實(shí)例VB實(shí)現(xiàn)的倒計(jì)時(shí)類代碼詳解VB調(diào)用Word拼寫(xiě)檢查功能實(shí)例VB實(shí)現(xiàn)屏蔽文本框右鍵菜單的復(fù)制、粘貼等功能的方法

上一篇：用VBS設(shè)置靜態(tài)IP和DNS服務(wù)器地址的代碼

下一篇：vbs 百度小助手