citect使用CitectVBA脚本获取本机IP地址
(2023-04-13 22:19:22)
标签:
施耐德citectcitectvba获取本机ip地址 |
分类: 施耐德PLC |
最近现场计算机上需要获取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
Exit For
Next
End Function
在CItect项目画面新建一个按钮,鼠标点击事件写下面的脚本
VbCallReturn(VbCallRun(vbcallopen("GetIPAddress")))
保存编译运行,点击画面上的按钮,就会弹出消息框显示本机的IP地址