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

热点内容
鸿蒙方舟编译器安卓是什么 浏览:239
手机加密中断数据 浏览:505
学校机房服务器长什么样子 浏览:248
csharp的编译器是啥 浏览:486
linux电脑如何连接服务器地址 浏览:955
阿里域名邮箱pop服务器地址 浏览:852
李白pdf 浏览:782
pdfmax 浏览:223
跑步紧身裤压缩裤 浏览:215
郑州金水房价查询app哪个好 浏览:575
房地产开发流程pdf 浏览:243
小鹏p7能耗APP怎么查 浏览:243
如何代挂服务器 浏览:286
安卓机拍视频时怎么当背景音乐 浏览:879
方舟编译器华为p20pro更新 浏览:30
php程序漏洞 浏览:552
手机app怎么转过去 浏览:233
新建文件夹标记 浏览:486
两处收入个税App上怎么申报 浏览:674
hive创建数据库命令 浏览:850