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

Question

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

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

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

Answer 1

所以我找到了前一段时间有人制作的脚本。它使用 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#