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

热点内容
时钟置换算法指针变化规则 浏览:245
微信加密能否改密码 浏览:104
android权限组 浏览:169
2017单片机 浏览:475
让孩子感兴趣编程的电影 浏览:259
用颜料制作脆皮解压球 浏览:932
火箭解压器 浏览:72
cnet中级程序员面试题 浏览:190
单片机怎么做人脸识别 浏览:152
监狱办理工商银行app怎么办呢 浏览:819
c语言写编程时需要用什么输入法 浏览:590
生发程序员 浏览:166
高考英语pdf 浏览:418
哈利波特忘记服务器怎么办 浏览:824
怎么看其他电脑共享文件夹 浏览:513
py文件夹后缀 浏览:723
你对我们的app有什么建议 浏览:584
phpgetcookie 浏览:145
程序员最烦遇到的单词 浏览:125
开始服务器升级需要什么 浏览:985