在 Windows 中检查端口可用性的 VBS 脚本

我正在尝试检查某个软件的先决条件。我有一组脚本来检查并检查磁盘空间、内存可用性等内容。

我需要创建一个脚本来检查某些端口是否打开且可访问。我正在使用 WMI 检查其他网络配置项，但找不到任何检查端口可用性的参考。

任何人都知道我可以在哪里找到 WMI 构造来让我查看和管理端口，或者有任何其他关于如何构建新脚本来检查端口可用性的想法吗？

所以我找到了某人不久前制作的一个脚本。它使用 netStat。应该可以在任何 Windows 机器上工作。我认为我被使用 WMI 的欲望蒙蔽了双眼。

Sub PortMonitor (strCommand2)

  Set StdOut = WScript.StdOut
  Set objShell = CreateObject("WScript.Shell")
  set objScriptExec = objShell.Exec (strCommand2)

  strPingResults = LCase(objScriptExec.StdOut.ReadAll)

  if len (strPingResults) > 0 then
     WScript.Echo "Established!"
  End if
end Sub

Dim strcommand
strCommand = "cmd /C ""netStat -n |find ""127.0.0.1:1137"" | find ""ESTABLISHED"""""
Call PortMonitor (strCommand)

OP: http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Server/2003_Server/Q_27476065.html# http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Server/2003_Server/Q_27476065.html#