-
西枫瘦马
发布于 2010-04-17 11:52
-
收藏
复制代码 代码如下:'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..