屏蔽端口的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 & "rootcimv2") 
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实现GB2312,UTF-8,Unicode,BIG5编码转换工具
演示echo"ABCDE&!@#$^()%%abcde测试！""处理前.txt"GB2Ue.vbs"处理前.txt""处理后.txt"Ue2U8.vbs"处理后.txt"U82GB.vbs"处理后.txt"GB2U8.vbs"处理后.txt"U82Ue.vbs"处理后.txt"Ue2GB.vbs

QueryCode.vbs 文本文件编码查询工具
只要下载此文件后便可以查询了.下面是详细代码'QueryCode.vbsBY:fastslz'支持批量查询，可以放在SendTo扩展应用setfiles=WScript.Argumentsiffiles.Count=0ThenMsgBox"请将

使用xcacls.vbs(cacls.exe)修改NTFS权限说明(中文版)第1/2页
概要Microsoft以MicrosoftVisualBasic脚本(Xcacls.vbs)的形式提供了ExtendedChangeAccessControlList（扩展更改访问控制列表）工具(Xcacls.exe)的更新版本。本文分步介绍如