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

熱點內容
太監程序員 瀏覽:56
java編譯選項包括 瀏覽:432
安卓手機如何導其他手機的通訊錄 瀏覽:931
離心式壓縮機品牌 瀏覽:167
plc編程推薦什麼電腦 瀏覽:935
安卓最新什麼系統版本 瀏覽:193
甜顏app真人交友在哪裡下載 瀏覽:335
電腦里好亂很多文件夾都是空 瀏覽:352
數學一竅不通可以學模具編程嗎 瀏覽:270
退休程序員練字 瀏覽:693
海光伺服器什麼架構 瀏覽:138
戰斗命令要素 瀏覽:953
app上哪裡可以開鞋子盲盒 瀏覽:81
python多線程計劃 瀏覽:384
華為模擬加密門id禁卡 瀏覽:555
華為od伺服器廣播演算法 瀏覽:353
銀色球球解壓圖片 瀏覽:711
dtu遠傳設備如何連接伺服器 瀏覽:400
房子不解壓可以買賣嗎 瀏覽:764
割彈力球解壓 瀏覽:746