导航:首页 > 文档加密 > 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地址加密相关的资料

热点内容
程序员接外包网站 浏览:131
哪里可以买拆车件app 浏览:990
限流算法漏桶和令牌桶区别 浏览:313
程序员怎么找兼职 浏览:798
java编译路径 浏览:281
服务器修改mac地址是什么 浏览:579
商城订单接口api加密 浏览:26
电话键盘加密应用 浏览:488
广联达安装教程未检测到加密锁 浏览:341
ubuntu1404命令 浏览:53
rd会话主机服务器是什么 浏览:145
模拟集成电路设计pdf 浏览:616
数控编程培训行业 浏览:41
怎么样自制变形折纸解压玩具 浏览:931
ethtoolandroid 浏览:417
文件夹如何分类存档 浏览:724
程序员和地产公司哪个赚的多 浏览:556
递归二分查找java 浏览:151
麦当劳app早餐怎么点不了 浏览:821
linuxmysql插入 浏览:598