| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> WMI编程 >> 实例分析正文
最新推荐 更多内容
VB.Net不用ping.exe实现ping主机是否通的方法
VB.Net不用ping.exe实现ping主机是否通的方法[乐博网原创]
作者:Shiny    来源:乐博网原创     更新时间:2007-12-9

     VB.Net调用WMI可以实现系统管理和系统信息查询等。msdn上只有C++和vbs脚本演示,乐博网在vbs脚本基础上将发布WMI系列文章演示如何将WMI应用到VB.Net上。

调试环境 vb2005  windows2003

VB.Net不用ping.exe实现ping主机是否通的方法

objStatus.StatusCode 当属性 = 0的时候 为通  ;为空或者不等于0则为不ping不通 也就是类似ping后显示Request timed out.

  Private Sub Lobdotcn()

        Dim strComputer As String = "."
        Dim objWMIService As Object = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" _
            & strComputer & "\root\cimv2")
        Dim objStatus As Object
        Dim colPings As Object = objWMIService.ExecQuery _
     ("Select * From Win32_PingStatus where Address = '192.168.0.1'")

        For Each objStatus In colPings
            If Len(objStatus.StatusCode) < 0 Or objStatus.StatusCode <> 0 Then
                MsgBox("Computer did not respond.")
            Else
                MsgBox("Computer responded.")
            End If
        Next

    End Sub
 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    计算机加入域或工作组的实例
    VB.Net查询显示器属性信息的实例[乐博网原创]
    VB.Net查询光驱信息的实例[乐博网原创]
    VB.Net查询系统启动信息的实例[乐博网原创]
    VB.Net查询键盘类型的实例[乐博网原创]
    VB.Net查询BIOS版本信息的实例[乐博网原创]
    VB.Net查询哪些服务可以被手工停止的方法
    VB.Net查询开机自启动项目的方法
    VB.Net查询屏幕分辨率的方法
    VB.Net查询系统日志明细的方法
    VB.Net清理系统日志的方法
    VB.Net查询日志记录条数和日志大小上限的方法
    VB.Net实现磁盘碎片整理的方法
    VB.Net检测所有磁盘文件系统类型的方法
    VB.Net检测所有磁盘类型的方法
    VB.Net检测软驱是否插入磁盘的方法

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]