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

熱點內容
安卓的g加g是什麼意思 瀏覽:125
加密vue 瀏覽:560
解壓去焦慮的方法 瀏覽:551
程序員眼乾眼澀睜不開眼 瀏覽:98
飛機晚點改簽演算法 瀏覽:684
編譯過程中優化如何分類 瀏覽:201
舊的網線怎麼加密 瀏覽:366
word轉pdf用什麼軟體 瀏覽:318
安卓如何設置蘋果鬧鈴 瀏覽:266
如何修改網站後台伺服器數據 瀏覽:117
手機樂園java 瀏覽:895
二手車搬運工app哪個好 瀏覽:477
怎麼編成一個mc伺服器 瀏覽:199
施工壓縮工期 瀏覽:552
python導入包代碼 瀏覽:60
武漢解壓體驗館創業 瀏覽:983
如何弄到一個伺服器 瀏覽:805
psp里的文件夾怎麼刪除 瀏覽:647
安卓手機如何在鎖屏的情況下拍攝視頻 瀏覽:459
安卓為什麼不能安裝procreate 瀏覽:529