MAC Adresini Almak

[Haluk]

Network ortamında admin olmadığım için boş geldi

Merhaba Necdet bey,

Network ortamında Admin olmanız zaten gerekmiyor. Muhtemelen sizin yerel ağ yöneticiniz profilinizde bu alanı boş bırakmış olabilir.

(Tabii kodun tamamını kopyalayıp, bahsettiğim kırmızı değişikliği yaptıysanız...)

 

[Necdet]

olabilir Haluk Bey, emin değilim.

 

[Haluk]

Bu kodu derken eternet kartının fiziksel adresini kastettim yani ip kodunu. Teşekkürler.

Aradığınız IP adresi ise, benzer mantıkta hazırladığım aşağıdaki kod işinize yarayabilir. Bukez, Test2 isimli prosedurü çalıştıracaksınız.

Sub Test2()
    Dim MyIPFile As String, Ret1 As String, Ret2 As String
    MyIPFile = "C:\LogIP.txt"
    MyStr = "ipconfig | find ""IP"" > " & MyIPFile
    Shell "cmd /C" & MyStr, 0
    Application.Wait Now + TimeSerial(0, 0, 2)
    Ret = GetIP(MyIPFile)
    MsgBox Ret
    x = InStr(1, Ret, ":")
    Ret2 = Mid(Ret, x + 1, 98)
    MsgBox Ret2
    Kill MyIPFile
End Sub
'
Function GetIP(strFile As String)
    Dim RetVal As String
    Open strFile For Binary As #1
        RetVal = Space(LOF(1))
        Get 1, , RetVal
    Close #1
    GetIP = Trim(RetVal)
End Function

 

[Haluk]

Bu arada, MAC adresi konusuyla ilgili olarak ..... :mrgreen:

Eğer PC'de WMI yüklü ise, PC'deki adaptörlerin tümü incelenerek, MAC adresleri aşağıdaki kodla öğrenilebilir...

Sub AdaptorInfo()
    Dim MyOBJ As Object
    Dim MyEth As Variant
    Dim MyMsg As String
    On Error Resume Next
    Set MyOBJ = GetObject("WinMgmts:").instancesOf("win32_networkadapter")
    If Err.Number <> 0 Then
      MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, "Dikkat !"
      Exit Sub
    On Error GoTo 0
    End If
    For Each MyEth In MyOBJ
        MyMsg = MyMsg & vbCrLf & String(50, "-") & vbCrLf
        MyMsg = MyMsg & "Etiket              : " & MyEth.Caption & vbCrLf
        MyMsg = MyMsg & "Uretici Firma   : " & MyEth.Manufacturer & vbCrLf
        MyMsg = MyMsg & "MAC Adresi    : " & MyEth.MACAddress & vbCrLf
    Next
    MsgBox MyMsg, vbInformation, "Ethernet Adaptor Bilgileri   (Haluk ®)"
End Sub

 

[Necdet]

Olay Budur. Teşekkürler Haluk Bey

 

[Costcost]

Merhabalar,
programın sadece belli mac adreste çalışması nasıl kodlanır acaba? bu konuyla ilgili örnek dosyanız mevcut mudur?
ilginiz için şimdiden teşekkür ediyorum.