vba 取得本机的ip address

fieldset{padding:10px;}

vba 获得本机的ip address

Dim strComputer As String    Dim objWMI As Object    Dim colIP As Object    Dim IP As Object    Dim i As Integer    Dim ipserver As String    ipserver = ""        strComputer = "."    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")    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)                ipserver = IP.IPAddress(i)                MsgBox IP.IPAddress(i), vbInformation, IP.Description(i)                MsgBox （ipserver）        Next        End If    Next

带上心灵去旅行，以平和的心态看待一切，

相关文章：

你感兴趣的文章：

标签云：