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

这是我在新浪写过的一个笔记，在这里也记录一遍。新浪博客地址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地址