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

热点内容
程序员网上接单能挣多少钱 浏览:175
稀有传奇手游源码 浏览:547
u盘里的cd驱动加密是什么 浏览:414
遗传算法编码长度 浏览:974
pe装服务器需要注意什么 浏览:320
foreach计数php 浏览:525
php自连接 浏览:296
程序员被喷了怎么办 浏览:708
android消息数 浏览:261
为什么在服务器里输不了指令 浏览:29
程序员那么可爱前女友剧情介绍 浏览:104
centosjava环境变量配置 浏览:555
服务器主板被锁如何恢复 浏览:132
xpc语言编程软件 浏览:823
光遇安卓怎么解限制 浏览:302
元气骑士老版源码 浏览:106
助眠解压音频小姐姐口腔音 浏览:236
sql加密身份证号解码 浏览:164
解压玩法视频 浏览:466
苹果xls如何设置加密 浏览:208