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

热点内容
基础轻松入门python小课 浏览:584
湖北黄石移动dns服务器地址 浏览:41
稳定币会加密货币吗 浏览:781
python生成订单数据 浏览:358
安卓手机正面视频怎么调整为左边 浏览:920
java定义整数 浏览:371
怎么添加数据透视表命令 浏览:799
hk4100f与单片机连接 浏览:861
门禁钥匙加密可以复制吗 浏览:194
单片机ad采样交流信号 浏览:161
龙门铣外圆编程 浏览:518
gal编程工具 浏览:401
浙大翁恺老师用的什么编译器 浏览:592
gs5发动机压缩比 浏览:716
税控盘插上显示未检测加密盘 浏览:305
怎么潜移默化的命令一个人 浏览:115
解压笔烂了怎么补 浏览:683
db什么文件夹 浏览:868
宝骏730热车压缩机不工作 浏览:505
服务器崩溃怎么登录 浏览:899