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

熱點內容
php登陸次數 瀏覽:742
python字元轉成數字 瀏覽:822
海川用的是什麼伺服器 瀏覽:374
口才是練出來的pdf 瀏覽:458
雲伺服器哪個公司性價比高 瀏覽:515
源碼論壇打包 瀏覽:556
php怎麼做成word 瀏覽:690
python批量生成密鑰 瀏覽:490
程序員要不要考社區人員 瀏覽:150
app的錢怎麼充q幣 瀏覽:813
android銀行卡識別 瀏覽:751
怎麼在app投放廣告 瀏覽:11
手機文件管理怎麼看app名稱 瀏覽:192
程序員學數學哪本書最全 瀏覽:784
macd實戰選股公式源碼 瀏覽:644
加密晶元的計算方法 瀏覽:189
手機存儲為什麼找不到微信文件夾 瀏覽:697
msf埠遷移命令 瀏覽:880
工商app積分怎麼查詢 瀏覽:146
鐵路app怎麼買火車票 瀏覽:311