- ©«¤l
- 79
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Winwos 7 64 bits
- ³nÅ骩¥»
- Excel 2003/2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-8-25
- ³Ì«áµn¿ý
- 2019-9-20
|
¦^´_ 1# Scott090 - Sub §ì¥»¾÷ºô¸ô¥d¸¹½X()
- Dim IPConfigSet
- ' §Q¥ÎWMI(WindowsºÞ²z³W½d)¨ú±oNIC¸ê°T
- Set IPConfigSet = GetObject("winmgmts:").ExecQuery _
- ("Select * from Win32_NetworkAdapterConfiguration Where ((IPEnabled = TRUE) And (MacAddress != NULL) And (SettingID != NULL))")
-
- ' ¦CÁ|¬d¸ßµ²ªG (list of NICS)
- For Each IPConfig In IPConfigSet
- If Not IsNull(IPConfig.IPAddress) Then
- MsgBox IPConfig.MACAddress
- End If
- Next 'IPConfig
- End Sub
½Æ»s¥N½X °Ñ¦Ò http://www.dreamincode.net/forums/topic/35609-ipaddress-resolution-in-vb/ |
|