有没有一种简单的方法可以验证VBScript网络上是否存在服务器？

Question

我的最终目标是确定具有特定凭据的特定服务器上的特定数据库是否正在运行，但此时我还是能够检查并查看服务器是否实际在网络上运行。有没有人有办法做到这一点？我似乎在画一个空白。

迈克尔

Answer 1

试试这个

Dim target
Dim result

target= "172.19.130.96"

Set shell = WScript.CreateObject("WScript.Shell")

Set shellexec = shell.Exec("ping " & target) 

result = LCase(shellexec.StdOut.ReadAll)

If InStr(result , "reply from") Then
  WScript.Echo "Server alive"  
Else
  WScript.Echo "Not Alive"
End If

可能有更好的方法，特别是给你最终目标，但这应该有效，至少指出你正确的方向。

Answer 2

Answer 3

如果你更新ping命令，它只发送一个echo请求，脚本执行得更快，如果你有一个不可靠的网络，这可能不是最好的，但对于本地局域网，它是有用的。

Dim target
Dim result

target= "172.19.130.96"

Set shell = WScript.CreateObject("WScript.Shell")

Set shellexec = shell.Exec("ping -n 1 " & target)

result = LCase(shellexec.StdOut.ReadAll)

If InStr(result , "reply from") Then
  WScript.Echo "Server alive"  
Else
  WScript.Echo "Not Alive"
End If

Answer 4

要检查数据库服务器是否已启动，您可以使用nmap之类的工具。然后你可以按照正常情况使用exec（）在你的vbscript中调用它。