导航:首页 > 文档加密 > vba锁定ip地址加密

vba锁定ip地址加密

发布时间:2024-12-11 17:12:47

Ⅰ ExcelVBA怎么获取IP与mac然后分别赋值给变量

Sub 按钮1_Click()

GetMyIP

End Sub

Public Sub GetMyIP()

Dim strComputer As String

Dim objWMI As Object

Dim colIP As Object

Dim IP As Object

Dim i As Integer


Dim LANstr As String, IPstr As String, MACstr As String


strComputer = "."

Set objWMI = GetObject("winmgmts:\" & strComputer & " ootcimv2")

Set colIP = objWMI.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IP In colIP

If Not IsNull(IP.IPAddress) Then

For i = LBound(IP.IPAddress) To UBound(IP.IPAddress)

LANstr = IP.Description(i) '网卡名称

IPstr = IP.IPAddress(i) '网卡IP地址

MACstr = IP.MacAddress '网卡的MAC地址

MsgBox "网卡名称:" & LANstr & vbCrLf & "IP地址:" & IPstr & vbCrLf & "MAC地址:" & MACstr, vbInformation, LANstr

Next

End If

Next

End Sub

阅读全文

与vba锁定ip地址加密相关的资料

热点内容
烨光pdf 浏览:717
文件夹删不掉一直弹窗口 浏览:924
机顶盒编译Ubuntu 浏览:494
程序员恋爱问题 浏览:9
圆和多边形的绘制命令分别为 浏览:387
如何搭建sst服务器 浏览:735
运行程序加密软件 浏览:532
中小型企业云方案和物理服务器 浏览:644
比例作用控制算法 浏览:257
单片机元件名称及图片 浏览:706
米家app怎么设置自定义情景模式 浏览:83
压缩机怎么做成洗车泵 浏览:134
农行app的手机号不用了怎么改 浏览:403
中国人保app怎么注销账号 浏览:523
实数已知算法规律题 浏览:810
怎么解除电话加密号码 浏览:821
九分达人pdf 浏览:320
什么算法看是否有回路 浏览:382
系统自检命令 浏览:149
荣威服务器质量怎么样 浏览:342