加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

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

(2023-04-13 22:19:22)
标签:

施耐德

citect

citectvba

获取本机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
    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地址

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有