vbs脚本实现Ping功能

将下列代码复制保存成txt文件，然后将文件的后缀即“xxx.txt”改成“xxx.vbs”即可

Dim WebAddress

WebAddress=InputBox("请输入你要ping的网络地址","ping a computer without using ping.exe","www.google.cn")
If WebAddress <> "" Then
Set OBJWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colPings = OBJWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" &WebAddress& "'")
For Each OBJStatus in colPings
    If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
        WScript.Echo "网址：" & WebAddress & "无法连接,程序将退出！"
    Else
       call Main
    End If
Next
End If

function Main()
WScript.Echo "恭喜你，能够成功的ping通！"

end function

vbs脚本实现Ping功能相关推荐

Shell脚本实现 ping功能
Shell 脚本实现 ip ping 功能具体代码: #!/bin/bash # ========================================================= ...
vbs脚本功能：1、判断系统位数64/32；2、读取注册表，读取应用名称。3、读取txt文件；4、执行exe文件，安装程序。
vbs脚本功能:1.判断系统位数:2.读取注册表,读取应用名称.displayName就是程序与功能里面展示的应用名称.3.读取txt文件:4.执行exe文件,安装程序. 注意:1.文本编码方式要用A ...
用nc+简单bat/vbs脚本+winrar制作迷你远控后门
前言某大佬某天和我聊起了nc,并且提到了nc正反向shell这个概念. 我对nc之前的了解程度仅局限于:可以侦听TCP/UDP端口,发起对应的连接. 真正的远控还没实践过,所以决定写个小后门试一试. ...
Vbs脚本编程简明教程之十
妙用SendKeys自动上网并登陆博客将下面的脚本复制到一个文本文件中,并将其文件名命名为:自动登陆.vbs,然后将拨号软件及本脚本一起复制到程序--启动项中,就可以实现自动拨号上网,并登陆到博客上 ...
VBS脚本常用经典代码收集
在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习. VBS脚本用途很多: 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, Powe ...
vbs脚本延时_Wincc的脚本进程执行问题
接到某同事B的电话,说是一段Wincc里面的VBS脚本出现了问题:A按钮和B按钮,要求A按钮点击后,对plc某变量写1并等待5s后写0,在这5s期间如果点击B按钮,同样是对另外一个变量如此操作,则pl ...
那些年，我写过的设置Windows系统变量的vbs脚本
下面是我之前整理过的三段vbs代码,他们的主要都是用于快速设置Windows系统变量的.这些代码,在使用的过程中,都做了很多修改,已经记不清最初从哪里学来的了. 第一段: Set WshShell=C ...
PowerDesigner运行自定义VBS脚本，复制Name到Comment
1.说明 PowerDesigner支持自定义一些命令与操作, 通过编写VBS(Visual Basic Script)脚本, 可以扩展出更多的功能. 下面开发一个自定义的VBS脚本, 实现复制Nam ...
vbs获取群聊当前内容_通过VBS脚本批量检测服务器状态 - 易本地工作室-Ebend SoftwareNetwork Studio - 群发，采集，管理类软件定制开发服务【易本地工作室】...
脚本名称:通过VBS脚本批量检测服务器状态脚本语言:VBS 原创作者:易本地工作室艾云超官方网站:易本地工作室授权状态:免费功能说明:通过VBS脚本批量检测服务器状态,是否可以访问,可以自定 ...

vbs脚本实现Ping功能

vbs脚本实现Ping功能相关推荐

最新文章

热门文章