Function GetIP

GetIP = ""
    
    Dim objWMIService, colAdapters, objAdapter
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    If colAdapters.Count = 0 Then
        Exit Function
    End If
    If Ubound(colAdapters.ItemIndex(0).IPAddress) = 0 Then
        Exit Function
    End If

GetIP = colAdapters.ItemIndex(0).IPAddress(0)

End Function

ip = GetIP()

If Not ip = "" Then
    
End If

最新文章

1. ASP.NET 5 WebApi 返回 HttpResponseMessage
2. ESP8266刷AT固件与nodemcu固件
3. 联发科发布全球首款搭载Android TV的智能电视系统芯片MT5595
4. 关于C++的递归调用（n的阶乘为例）
5. javascript常用排序算法总结
6. django cycle标签
7. HashMap优雅的初始化方式以及引申
8. IOS添加控件
9. 北大ACM(POJ1008-Maya Calendar)
10. delphi cxgrid导出excel去除货币符号
11. 利用row_number over 函数删除重复记录
12. Message Authentication Code
13. 【iOS】7.4 定位服务->2.1.1 定位 - 官方框架CoreLocation: 请求用户授权
14. 【Egret】在WebStorm里使用Egret Engine 的注意点
15. Tomcat Java.OutOfMemoryError : PermGen Space异常
16. 百度编辑器html网页显示
17. promise的理解
18. Layout-1相关代码
19. <自动化测试方案_10>第十章、自动化测试部署策略
20. hdu-2043解题报告

热门文章

1. 语义化的HTML及其目的
2. LGWR和DBWn的触发条件
3. shrio的简单认识
4. vector interators incompatible
5. Android Authenticator使用（转）
6. 风险管理，未雨绸缪——《代码之殇》读书笔记II
7. leetCode题解之修剪二叉查找树
8. SQL Server配置数据库邮件
9. Linux 安装 pycharm
10. 逆向分析-IDA动态调试WanaCrypt0r的wcry.exe程序