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

熱點內容
java定義整數 瀏覽:371
怎麼添加數據透視表命令 瀏覽:799
hk4100f與單片機連接 瀏覽:861
門禁鑰匙加密可以復制嗎 瀏覽:194
單片機ad采樣交流信號 瀏覽:161
龍門銑外圓編程 瀏覽:518
gal編程工具 瀏覽:401
浙大翁愷老師用的什麼編譯器 瀏覽:592
gs5發動機壓縮比 瀏覽:716
稅控盤插上顯示未檢測加密盤 瀏覽:305
怎麼潛移默化的命令一個人 瀏覽:115
解壓筆爛了怎麼補 瀏覽:683
db什麼文件夾 瀏覽:868
寶駿730熱車壓縮機不工作 瀏覽:505
伺服器崩潰怎麼登錄 瀏覽:899
怎麼看伺服器是多少c 瀏覽:670
趣智校園app怎麼使用 瀏覽:155
樂家達要下什麼app 瀏覽:346
矩陣因子分解模型演算法思想 瀏覽:447
java6位驗證碼 瀏覽:767