如何使用 vbscript 扫描服务器上的开放端口?

How do I scan for open ports on a server using vbscript?

我正在尝试编写一个脚本,它将接受一个服务器名称和一个端口并检查该端口是否打开。不知道如何做到这一点是 VBS。我已经搜索了互联网,但到目前为止什么也没找到。

首先下载PortQry命令行端口扫描器2.0版 来自 Microsoft.com 并提取它..

然后定义一些变量如下:

strPortQry = "C:\PortQryV2\PortQry.exe"
strServer = "127.0.0.1"
intPortNo = 8080

并使用 PortQry 实用程序查找端口侦听或使用此代码打开:

PortQry.exe -n 127.0.0.1 -e 80

类似于:

objShell.Exec(objFSO.GetFile(strPortQry).ShortPath & " -n " & strServer & " -e " &  intPortNo)

您可以在端口上循环并检查您想要的任何端口。有关更多信息,请查看 Microsoft help for PortQry utility and check This Site 可能会有帮助。