citect使用CitectVBA脚本获取本机IP地址

标签：Dim Object objItem citect objAddress CitectVBA IP地址 colItems

这是我在新浪写过的一个笔记，在这里也记录一遍。新浪博客地址citect使用CitectVBA脚本获取本机IP地址_来自金沙江的小鱼_新浪博客 (sina.com.cn)

最近现场计算机上需要获取IP地址来做一些功能，简单得查询了一下网络，还是很好实现的。

新建一个citectVBA函数 Function GetIPAddress() Dim objWMIService As Object Dim colItems As Object Dim objItem As Object Dim objAddress  Set objWMIService = GetObject("winmgmts:\\." & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objItem In colItems    For Each objAddress In objItem.IPAddress    If objAddress <> "" Then    MSGBOX objAddress    End If    Exit For    Next Exit For Next End Function   在CItect项目画面新建一个按钮，鼠标点击事件写下面的脚本 VbCallReturn(VbCallRun(vbcallopen("GetIPAddress"))) 保存编译运行，点击画面上的按钮，就会弹出消息框显示本机的IP地址

 

标签：Dim,Object,objItem,citect,objAddress,CitectVBA,IP地址,colItems
From： https://www.cnblogs.com/fishingsriver/p/17386041.html