ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] MAC ªº¹êÅé³æ¤@§Ç¸¹¦p¦ó¨ú±o ?

[µo°Ý] MAC ªº¹êÅé³æ¤@§Ç¸¹¦p¦ó¨ú±o ?

MAC §Ç¸¹¯uªº¬O¥þ²y°ß¤@¸¹½X¶Ü? ¬O§_»s³y°Ó·|§â¦P¤@§å²£«~¥Î¦P¤@§Ç¸¹?
MAC §Ç¸¹·|¦bµù¥Uªí¤º³QÅܧó¡A¨º¯u¥¿ªº¹êÅé(µwÅé) ªº§Ç¸¹­n¦p¦ó¨ú±o¡AÁקKŪ¨ú¨ìªº¬Oµù¥Uªí¤ºªº?

ÁÂÁÂ¥ý¶i«ü¾É

¦^´_ 1# Scott090
  1. Sub §ì¥»¾÷ºô¸ô¥d¸¹½X()

  2. Dim IPConfigSet

  3. ' §Q¥ÎWMI(WindowsºÞ²z³W½d)¨ú±oNIC¸ê°T
  4. Set IPConfigSet = GetObject("winmgmts:").ExecQuery _
  5.    ("Select * from Win32_NetworkAdapterConfiguration Where ((IPEnabled = TRUE) And (MacAddress != NULL) And (SettingID != NULL))")

  6. ' ¦CÁ|¬d¸ßµ²ªG (list of NICS)
  7. For Each IPConfig In IPConfigSet
  8.    If Not IsNull(IPConfig.IPAddress) Then
  9.       MsgBox IPConfig.MACAddress
  10.    End If
  11. Next 'IPConfig

  12. End Sub
½Æ»s¥N½X
°Ñ¦Ò http://www.dreamincode.net/forums/topic/35609-ipaddress-resolution-in-vb/
diabo

TOP

¦^´_ 2# diabo

ÁÂÁÂÄ_¶Qªº«ü¾É
¨ä¤¤ IPEnabled = true ¬O¥Nªí¦³³s½u ÁÙ¬O ¥u­n¦³ ºô¥dµù¥U?
³o­Ó µ{¦¡¨ú±oªº¬O µù¥Uªí¤ºªº ÁÙ¬O ª«²z¹êÅé§Ç¸¹?

¦A¦¸ÁÂÁÂ

TOP

"³o­Ó µ{¦¡¨ú±oªº¬O µù¥Uªí¤ºªº ÁÙ¬O ª«²z¹êÅé§Ç¸¹?"
©ÎªÌ¥t¦³°ª©Û¯à¨ú±o¨Ã½T»{ª«²z¹êÅé§Ç¸¹©Î¤À§O¥X µù¥Uªí¤º¤w³Q§ï¹Lªº MAC ½X

³o­Ó°ÝÃDÄaµÛ¡A¤£ª¾­þ¦ì¤j®vÄ@·N«üÂI
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD