포트 를 차단 하 는 vbs 스 크 립 트

1250 단어 차폐 포트vbs

'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
실행 후 인터넷 이웃->오른쪽 단추->속성->로 컬 연결-"일반-"인터넷 프로 토 콜(TCP/IP)->속성-"고급-"옵션-"TCP/IP 선별-"속성-"에서 다음 그림 만 볼 수 있 습 니 다.위의 코드 는 예 일 뿐 서버 에서 실행 하지 마 세 요.서버 를 설치 하려 면우리 서버 소프트웨어 다운로드센터 로 가서 관련 교 재 를 보 세 요.

좋은 웹페이지 즐겨찾기