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

熱點內容
雲引擎雲伺服器 瀏覽:903
解壓視頻聲控吃冰義大利 瀏覽:401
渦旋壓縮機動渦盤 瀏覽:875
手機郵件發文件夾 瀏覽:446
魔獸世界懷舊服tbc薩滿宏命令 瀏覽:546
linuxsvn手冊 瀏覽:264
程序員圖鑒 瀏覽:537
東營程序員 瀏覽:714
發票上傳參數沒置伺服器地址 瀏覽:43
程序員網上接單能掙多少錢 瀏覽:179
稀有傳奇手游源碼 瀏覽:551
u盤里的cd驅動加密是什麼 瀏覽:419
遺傳演算法編碼長度 瀏覽:978
pe裝伺服器需要注意什麼 瀏覽:324
foreach計數php 瀏覽:529
php自連接 瀏覽:300
程序員被噴了怎麼辦 瀏覽:713
android消息數 瀏覽:265
為什麼在伺服器里輸不了指令 瀏覽:33
程序員那麼可愛前女友劇情介紹 瀏覽:106