vbscript - 有没有一种简单的方法可以使用 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

可能有更好的方法，特别是考虑到您的最终目标，但这应该有效，并且至少为您指明了正确的方向。