- PageHelper返回参数详解
- Java 简介
- Java开发环境配置
- Java基础语法
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章vbs ping实现的两种方式由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
对于vbs中ping的实现可以通过两种方式 :
1、调用系统ping命令 。
1
2
|
Set
wshell = CreateObject(
"WScript.Shell"
)
wshell.run(
"ping 182.183.101.1"
,0.true)
|
对于以上调用,如果想对其进行过滤,可以考虑将运行结果重定向到文件,在读到一个string中,查找其中是否有timeout或超时字符,判断是否超时。本打算直接拼接命令重定向到文件,但怎么都不成功,所以run调用一个bat,bat中写:ping 192.168.101.1 -n 1 -w 1200 。
2、使用wmi查询pingstate类处理:
1
2
3
4
5
6
7
8
9
10
11
12
|
'url = "www.baidu.com"
url =
"119.75.217.109"
strComputer =
"."
Set
objWMIService = GetObject(
"winmgmts:{impersonationLevel=impersonate}!\\"
& strComputer &
"\root\cimv2"
)
Set
colPings = objWMIService.ExecQuery (
"Select * From Win32_PingStatus where Address = '"
& url &
"'"
)
For
Each
objPing in colPings
MsgBox url &
" responded to ping."
& vbcrlf &_
"Responding Address: "
& objPing.ProtocolAddress & vbcrlf &_
"Responding Name: "
& objPing.ProtocolAddressResolved & vbcrlf &_
"Bytes Sent: "
& objPing.BufferSize & vbcrlf &_
"Time: "
& objPing.ResponseTime &
" ms"
Next
|
到此这篇关于vbs ping的实现示例的文章就介绍到这了,更多相关vbs ping内容请搜索我以前的文章或继续浏览下面的相关文章希望大家以后多多支持我! 。
原文链接:https://blog.csdn.net/kasteluo/article/details/43155371 。
最后此篇关于vbs ping实现的两种方式的文章就讲到这里了,如果你想了解更多关于vbs ping实现的两种方式的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码,使其无法供 vbs 使用。我该如何解决这个问题? 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
对于vbs中ping的实现可以通过两种方式 : 1、调用系统ping命令; 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
核心vbs代码 ? 1
复制指定文件到指定目录下 核心代码 ? 1
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
参考代码一: 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
挺实用的一段代码,用来深入学习vbs,确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
最近相关的备份比较频繁,为了校验文件的完整性,老是要打开某文件HASH校验工具,比较麻烦,于是乎写了这个东东,文件较大时计算有点慢,文件的MD5值保存在剪贴板!效果如图: 使用方法: 1.先
打开狗狗影视,搜索自己需要的资源,资源类型选:电驴,如下图: 我找到一个 19.75gb 的: 点开它,出现如下图的界面,可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址,备用。
效果图: 代码都封装成函数了,方便调用: 复制代码 代码如下: Key = "www-enun-net" '不要用数字
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
话说还是闲来练手,初步实现了自己认为的“多线程”下载。(至于是不是多线程,可以参考12楼链接) 为避免冗余,省了一些错误检查。我觉得没多大实际用途,有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: '=====================================================================================
我是一名优秀的程序员,十分优秀!