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 & "\root\cimv2")

Set colIP = objWMIExecQuery _

("Select from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IP In colIP

  If Not IsNull(IPIPAddress) Then

      For i = LBound(IPIPAddress) To UBound(IPIPAddress)

          LANstr = IPDescription(i)  '网卡名称

          IPstr = IPIPAddress(i)     '网卡IP地址

          MACstr = IPMacAddress      '网卡的MAC地址

          MsgBox "网卡名称：" & LANstr & vbCrLf & "IP地址：" & IPstr & vbCrLf & "MAC地址：" & MACstr, vbInformation, LANstr

      Next

  End If

Next

End Sub

服务器IP<%=RequestServerVariables("LOCAL_ADDR")%>

浏览器IP<%=RequestServerVariables("REMOTE_ADDR")%>

取得值以后再与某一个判断，写个if语句就可以了

一直往下运行就在外面套个循环

for(var i=0;i<count;i++){

if(a==b)

{breank;}

}

主要三个命令就可以了

支持库 internet

支持库 sock

局部变量 外网IP, 文本型

局部变量 内网IP, 文本型, , "0"

局部变量 路径, 文本型

外网IP ＝ 到文本 (>

以上就是关于ExcelVBA怎么获取IP与mac然后分别赋值给变量全部的内容，包括:ExcelVBA怎么获取IP与mac然后分别赋值给变量、asp实现获取当前网站ip然后用变量保存下来进行判断、易语言获取本机ip并保存为文本，谢谢大神等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！