批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖
本帖最后由 pcl_test 于 2017-6-15 19:23 编辑
  1. ' GetWanIP.vbs
  2. If Ping("www.ip138.com") Then
  3.   Msgbox "你的外网IP是:"  & HttpGet("http://1212.ip138.com/ic.asp")
  4. Else
  5.   Msgbox "你的电脑没有连通外网。"
  6. End If
  7. Function HttpGet(ByVal url)
  8.   On Error Resume Next
  9.   With CreateObject("Msxml2.ServerXMLHTTP")
  10.     .open "GET", url, False
  11.     .send
  12.     HttpGet = split(split(.responseText, "[")(1), "]")(0)
  13.   End With
  14. End Function
  15. Function Ping(ByVal host)
  16.   On Error Resume Next
  17.   Ping = False
  18.   Dim objWMIService, colItems
  19.   Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  20.   Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & host & "'")
  21.   For Each objItem In colItems
  22.     If objItem.StatusCode = 0 Then Ping = True : Exit For
  23.   Next
  24. End Function
复制代码
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表