显ip工具VBS版代码

On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
strKeyPath1 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strKeyPath2 = "SYSTEM\CurrentControlSet\Services\NetBT\Parameters"
strHostEntry = "Hostname"Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strHostEntry,strHostname
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
strMACAddress=objNicConfig.MACAddress
If Not IsNull(objNicConfig.IPAddress) Then strIPAddress=Join(objNicConfig.IPAddress)
If Not IsNull(objNicConfig.IPSubnet) Then strIPSubnet=Join(objNicConfig.IPSubnet)
If Not IsNull(objNicConfig.DefaultIPGateway) Then strDefaultIPGateway=Join(objNicConfig.DefaultIPGateway)
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then strDNSServerSearchOrder=Join(objNicConfig.DNSServerSearchOrder)
Exit for
Next
sqResult=strHostname & vbtab & strMACAddress & vbtab & strIPAddress & vbtab & strIPSubnet & vbtab & strDefaultIPGateway & vbtab & strDNSServerSearchOrder
strBuMen=InputBox("部门名称：")
If strBuMen="" Then strBuMen="无"
strGeRen=InputBox("个人姓名：")
If strGeRen="" Then strGeRen="无"
sqResult="IP地址   = " & strIPAddress & vbcrlf & _
   "子网掩码 = " & strIPSubnet & vbcrlf & _
   "默认网关 = " & strDefaultIPGateway & vbcrlf & _
   "DNS      = " & strDNSServerSearchOrder & vbcrlf & _
   "网卡地址 = " & strMACAddress & vbcrlf & _
   "部门名称 = " & strBuMen & vbcrlf & _
   "责任人   = " & strGeRen
WScript.Echo sqResult'发送到网站
'http://www.moer.net/ip/get.asp?ip=192.168.0.255&mac=00:00:00:00:00:00&zrr=无&bm=无
url="http://www.moer.net/ip"
url=url & "/get.asp?ip="&strIPAddress&"&mac="&strMACAddress&"&zrr="&strGeRen&"&bm="&strBuMen
'MsgBox url
set http=createobject("Microsoft.XMLHTTP")
http.open "POST",url,false
http.send
tt=http.responsetext