VB6 ¡Ñº¡ÒÃÍèÒ¹¤èÒ MAC Address ¢Í§ LAN Card ´éÇÂÇÔ¸ÕºéÒ¹æ (µÒÁà¤Â)

Option Explicit

' ÍèÒ¹ÃÒÂÅÐàÍÕ´à¾ÔèÁàµÔÁä´é·Õè ...
' http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/cmd.mspx?mfr=true
' ÍèÒ¹àÃ×èͧ¡ÒÃ·Ó Redirect
' http://www.uv.tietgen.dk/staff/mlha/PC/Soft/DOS/com/

Private Sub Form_Load()
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
    txtMACAddress.Text = ""
    Timer1.Enabled = False
    
    ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' àÃÕ¡ãªé§Ò¹â»Ãá¡ÃÁÂèÍÂà¾×èÍÍèÒ¹¤èÒ MAC Address
    Call GetMACAddress
    ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
End Sub

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' â»Ãá¡ÃÁÂèÍ·ÕèàÃÕ¡ãªé§Ò¹¼èÒ¹ Command DOS
' º·¾ÔÊÙ¨¹ì¢Í§ ... ¨Ô¹µ¹Ò¡Òà ... ·ÕèÁÒ¨Ò¡¤ÇÒÁÃÙéà¡èÒæ à¡ëÒæ áÅÐ ãªéÁѹÍÂÙè»ÃШÓ
' à·¤â¹âÅÂÕáÁé¨Ð¡éÒÇä¡Å件֧ä˹¡çµÒÁ·Õ ... ËÒ¡¹ÓÁÒãªé§Ò¹äÁèà»ç¹ Áѹ¡çäÃé¤èÒ ...
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub GetMACAddress()
On Error GoTo ErrHandler
    
    
    Dim sCommand As String  ' ¤ÓÊÑ觼èÒ¹ DOS
    Dim strData As String   ' ÍèÒ¹¤èÒ¨Ò¡ Text File ¤ÃÑé§ÅкÃ÷Ѵ
    
    ' µÃǨÊͺÇèÒà¨Íä¿Åìà´ÔÁËÃ×ÍäÁè ... ËÒ¡¾º¡çãËéź·Ôé§ (Kill) ä»ä´éàÅÂ
    If Dir(App.Path & "\MyIPConfig.txt") <> "" Then Kill App.Path & "\MyIPConfig.txt"
    
    ' ASCII Code 34  ¤×Í  à¤Ã×èͧËÁÒ Double Quote (")
    sCommand = "ipconfig /all > " & Chr(34) & App.Path & "\MyIPConfig.txt" & Chr(34)
    ' «Ö觨Óà»ç¹µéͧãÊèà¤Ã×èͧËÁÒ Double Quote (") ´éǹèФÃѺ .. àªè¹ ...
    ' ipconfig /all > "G:\Project VB60\GetMACAddress\MyIPConfig.txt"
    ' à¤Ã×èͧËÁÒ > (ËÃ×Í Redirect) à»ç¹¡ÒÃà»ÅÕè¹·ÔÈ·Ò§à¾×èÍÊè§ÍÍ¡ä»Âѧä¿Åì¢éÍÁÙÅ (á·¹·Õè¨ÐÍ͡˹éÒ¨ÍÀÒ¾µÒÁ»¡µÔ)
    
    ' ÊÑè§Ãѹ¤ÓÊÑè§ cmd áÅеÒÁ´éǤÓÊÑè§ DOS µèÍ·éÒÂä´éàÅÂ
    Shell ("cmd /c " & sCommand)
    ' Option /c ¤×Í àÁ×èÍÃѹ¤ÓÊÑè§àÊÃç¨ÊÔé¹ ãËé»Ô´Ë¹éÒµèÒ§ DOS ˹Õä»àÅ äÁèµéͧÁÒÊÐàÍÍÐ ... àªÍÐ 55555+
    
    ' à¤Ã×èͧÁѹ·Ó§Ò¹àÃçÇà¡Ô¹ä» (ÍÂèÒ§¹Õé¡çÁÕ´éÇÂ) ... ˹èǧàÇÅÒàÍÒäÇéÊÑ¡¤ÃÖè§ÇÔ¹Ò·Õ (500 millisecond)
    ' äÁèàªè¹¹Ñé¹Áѹ¨ÐËÒä¿ÅìäÁèà¨Í ·ÓãËéà¡Ô´ Error 53 ËÃ×Í File not found. ... äÁèàª×èͼÁ¡çÅͧ·´Êͺ´Ù
    If Dir(App.Path & "\MyIPConfig.txt") = "" Then DelayTime (500)
    
    ' à»Ô´ÍèÒ¹ä¿Åì
    Open App.Path & "\MyIPConfig.txt" For Input As #1
    
    Do While Not EOF(1)

        ' ÍèÒ¹¢éÍÁÙÅà¢éÒÁÒ·ÕÅкÃ÷Ѵ
        Line Input #1, strData
        ' àÃ觡Òäé¹ËÒâ´Â¡ÒâéÒÁºÃ÷Ѵ·Õèà»ç¹ªèͧÇèÒ§ÍÍ¡ä»ä´éàÅÂ
        ' ¤×Í ... ºÃ÷Ѵä˹·ÕèäÁèÁÕ¢éÍÁÙÅ ¡çãËéǹÃͺä»ÃѺ¢éÍÁÙźÃ÷ѴãËÁè
        If Trim(strData) <> "" Then
            ' µÃǨÊͺËÒ¤ÓÇèÒ Physical Address ã¹áµèÅкÃ÷Ѵ
            If InStr(Trim(strData), "Physical Address") Then
                ' àÁ×èÍà¨Í ... ãËé¹ÑºµÑÇÍÑ¡¢ÃÐ (Character) ¨Ò¡·Ò§¢ÇÒÁ×ÍÁÒ·Ñé§ËÁ´ 17 µÑÇ
                ' àªè¹ ... 00-00-00-FF-FF-FF
                txtMACAddress.Text = "MAC Address : " & Right$(strData, 17)
                Exit Do
            End If
        End If
        
    Loop
    
ExitProc:
    ' »Ô´ Text File
    Close #1
    Exit Sub

ErrHandler:
    
    ' ºèͤÃÑ駷ÕèàÃÒµéͧÁÒ´Ñ¡¤ÇÒÁ¼Ô´¾ÅÒ´ (Trap Error)
    MsgBox Err.Number & " : " & Err.Description
    ' ËÒ¡ÊÑè§ Resume Next ... ¤×Í ¡ÒÃÊÑè§ãËé¡ÃÐâ´´ä»·Ó§Ò¹µèͨҡºÃ÷Ѵ·Õèà¡Ô´ Error ·Ñ¹·Õ
    ' ËÒ¡ÊÑè§ Resume ExitProc ... ¤×Í ¡ÒÃÊÑè§ãËé¡ÃÐâ´´ä»·ÕèÅÒàºÅ ExitProc
    ' ËÒ¡ÊÑè§ Resume ... ¤×Í ¡ÒÃÊÑè§ãËé¡ÅѺ价ӧҹ«éÓºÃ÷Ѵ·Õèà¡Ô´ Error
    Resume
    
    ' äÁèÊÑè§ Resume ËÃ×Í ÍÐäÃàÅ ... ¡çÍèÒ¹¤ÓÊÑ觺Ã÷ѴµèÍä» ...
    ' á¹è¹Í¹à¨Í Exit Sub ËÁÒ¤ÇÒÁÇèÒ ¨ºâ»Ãá¡ÃÁÂèÍÂä»àÅ ... 55555+

End Sub

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Êèǹ¢Í§¡ÒÃ˹èǧàÇÅÒ (Delay Time)
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub DelayTime(MilliSec As Long)
    ' ¡Ó˹´ãËé MilliSecond à»ç¹¾ÒÃÒÁÔàµÍÃìà¾×èÍÃѺ¤èÒ¡ÒÃ˹èǧàÇÅÒà¢éÒÁÒ
    ' Turn Timer1 On - à»Ô´
    Timer1.Enabled = True
    Timer1.Interval = MilliSec
        ' äÁèãªèÇèÒÁѹäÁèä´é·ÓÍÐäùèФÃѺ ... ¾Õè¹éͧ
        While Timer1.Interval > 0
            ' ¤×¹ CPU ãËé¡ÑºÃкº»¯ÔºÑµÔ¡Òà (Operating System - OS) ä»·Ó§Ò¹ÍÂèÒ§Í×è¹µèÍ
            DoEvents
        Wend
        ' Turn Timer1 Off - »Ô´
        Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    ' »Ô´¡Ò÷ӧҹ¢Í§ Timer1
    Timer1.Enabled = False
    Timer1.Interval = 0
End Sub

net config rdr > NetConfig.txt
Computer name                        \\THONGKORN
Full Computer name                   Thongkorn
User name                            Administrator

Workstation active on                
	NetbiosSmb (000000000000)
	NetBT_Tcpip_{6339B9DD-B200-4E47-82B9-D5A8E053FE89} (00FFFFFFFFFF)

Software version                     Windows 2002

Workstation domain                   WORKGROUP
Workstation Domain DNS Name          (null)
Logon domain                         THONGKORN

COM Open Timeout (sec)               0
COM Send Count (byte)                100
COM Send Timeout (msec)              250
The command completed successfully.