導航:首頁 > 文檔加密 > 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地址加密相關的資料

熱點內容
彈球解壓視頻全集 瀏覽:900
程序員比較好的筆記本 瀏覽:185
三個孔怎麼編程 瀏覽:121
雲伺服器如何提交作業 瀏覽:877
dvipdf 瀏覽:827
蘋果app怎麼移動不到app哪裡 瀏覽:371
解壓文件時密碼怎麼用 瀏覽:172
程序員怎麼規劃自己的未來 瀏覽:876
我的世界我18伺服器地址大全 瀏覽:732
程序員行業產業鏈 瀏覽:56
醫保app授權在哪裡 瀏覽:767
寶可夢大探險為什麼沒有伺服器 瀏覽:391
哪裡有國網App綁定 瀏覽:914
解壓小黃鴨臟了怎麼清洗 瀏覽:958
前端程序員做哪些副業 瀏覽:248
一線城市女程序員 瀏覽:588
修改窗口文件夾顯示方式為縮略圖 瀏覽:745
微信加密貨幣封號 瀏覽:707
java程序員實習生 瀏覽:955
天馬行空編程視頻教學 瀏覽:451