摘要: 函数代码如下,通讯成功返回True,通讯失败返回False: Function PingIP(IP) Dim objWMIService '定义SWbemServices对象 Dim colItems 'SWbem对象集合 Dim objItem 'Swbem单个对象 Set objWMIServi 阅读全文
posted @ 2019-12-20 09:53 星墨 阅读(1485) 评论(0) 推荐(0) 编辑