How vbs masks ports

This article mainly introduces how to block the port of vbs, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let the editor take you to understand it.

The copy code is as follows:

'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

After execution, to

Network neighbor-- "right-click--" property-- "Local connection--" General-- "Internet Protocol (TCP/IP)-- > property-- Advanced-- option--" TCP/IP filtering-- "property--" can only be seen inside.

The above code is just an example. Do not run it on the server. If you want to set up a server, please go to the billionaire cloud server software download center to see the relevant teaching materials.

Thank you for reading this article carefully. I hope the article "how to block the port of vbs" shared by the editor will be helpful to everyone. At the same time, I also hope that you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!