运维开发网
广告位招商联系QQ:123077622
 
广告位招商联系QQ:123077622

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

运维开发网 https://www.qedev.com 2020-07-15 13:05 出处:网络 作者:运维开发网整理
我的最终目标是确定具有特定凭据的特定服务器上的特定数据库是否正在运行,但此时我还是能够检查并查看服务器是否实际在网络上运行.有没有人有办法做到这一点?我好像在画一个空白. 迈克尔 试试这个 Dim target Dim result target= "172.19.130.96" Set shell = WScript.CreateObject("WScript.Shell") Set sh
我的最终目标是确定具有特定凭据的特定服务器上的特定数据库是否正在运行,但此时我还是能够检查并查看服务器是否实际在网络上运行.有没有人有办法做到这一点?我好像在画一个空白.

迈克尔

试试这个

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

可能有更好的方法,特别是给你最终的目标,但这应该工作,至少指向你正确的方向.

扫码领视频副本.gif

0

精彩评论

暂无评论...
验证码 换一张
取 消