تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة العنوان الفيزيائي لكروت الشبكة المثبة على الجهاز
#1
كاتب الموضوع : Boutemine Oualid

بسم الله الرحمن الرحيم
السلام عليكم رحمة الله و بركاته

من خلال هذه الشفرة، يمكننا معرفة العنوان الفيزيائي (MAC Address) لكروت الشبكة المثبة على الجهاز
المثال يستعمل خدمات ال WMI لمعرفة العناوين
لذلك علينا أولا باضافة مرجع إلى المجمع System.Management



الكود


كود :
using System;
using System.Management;
using System.Windows.Forms;
namespace AdressesMAC
{
public partial class frmMain : Form
{
public frmMain()
{
InitializeComponent();
}
private void FillNetworkAdapters()
{
ManagementClass mc;
mc = new ManagementClass("Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc = mc.GetInstances();
foreach (ManagementObject o in moc)
{
if ((bool)o.GetPropertyValue("IPEnabled") == true)
{
string strAdapter;
strAdapter = o.GetPropertyValue("Caption").ToString();
cbxNetwokAdapters.Items.Add(strAdapter);
}
}
}
private string GetMACAddress(string Adapter)
{
ManagementClass mc;
mc = new ManagementClass("Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc = mc.GetInstances();
foreach (ManagementObject o in moc)
{
if ((bool)o.GetPropertyValue("IPEnabled") == true)
{
string strAdapter;
strAdapter = o.GetPropertyValue("Caption").ToString();
if (strAdapter == Adapter)
return o.GetPropertyValue("MacAddress").ToString();
}
}
return string.Empty;
}
private void cbxNetwokAdapters_SelectedIndexChanged(object sender, EventArgs e)
{
lblMacAddress.Text = GetMACAddress(cbxNetwokAdapters.SelectedItem.ToString());
}
private void frmMain_Load(object sender, EventArgs e)
{
FillNetworkAdapters();
}
}
}
فيبي .نت (مع الشكر للاستاذ سامر)

كود :
Imports System.IO
Imports System
Imports System.Management
Imports System.Windows.Forms

Public Class Form1

Private Sub FillNetworkAdapters()
Dim mc As ManagementClass
mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim o As ManagementObject
For Each o In moc
If CType(o.GetPropertyValue("IPEnabled") = True, Boolean) Then
Dim strAdapter As String
strAdapter = o.GetPropertyValue("Caption").ToString()
cbxNetwokAdapters.Items.Add(strAdapter)
End If
Next
End Sub

Private Function GetMACAddress(ByVal Adapter As String) As String
Dim mc As ManagementClass
mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim o As ManagementObject
For Each o In moc
If CType(o.GetPropertyValue("IPEnabled") = True, Boolean) Then
Dim strAdapter As String
strAdapter = o.GetPropertyValue("Caption").ToString()
If strAdapter = Adapter Then
Return o.GetPropertyValue("MacAddress").ToString()
End If
End If
Next
Return String.Empty
End Function

Private Sub cbxNetwokAdapters_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cbxNetwokAdapters.SelectedIndexChanged
lblMacAddress.Text = GetMACAddress(cbxNetwokAdapters.SelectedItem.ToString())
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FillNetworkAdapters()
End Sub

End Class
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود معرفة هل الاداة مربوطة (هل مضبوطة بـ datasource) ام لا سعود 5 4,350 25-08-13, 03:19 PM
آخر رد: سعود
  عمل Copy-Paste من صوره على الجهاز الى البرنامج RaggiTech 0 2,475 17-10-12, 08:56 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 2,075 17-10-12, 06:48 PM
آخر رد: RaggiTech
  معرفة حجم مجلد مع جميع الملفات و المجلدات التي يحتوي عليها باستعمال ال Recursion RaggiTech 0 2,181 17-10-12, 06:47 PM
آخر رد: RaggiTech
  معرفة اسم الدومين من عنوان الأي بي ip RaggiTech 0 2,144 17-10-12, 06:18 PM
آخر رد: RaggiTech
  لمعرفة الطابعات المثبة على الجهاز RaggiTech 0 1,877 17-10-12, 06:15 PM
آخر رد: RaggiTech
  تحديد المعرف unc الخاص بجهاز على الشبكة RaggiTech 0 1,577 17-10-12, 05:54 PM
آخر رد: RaggiTech
  ادارة خدمات الويندوز Windows Services المثبة RaggiTech 0 1,796 17-10-12, 05:53 PM
آخر رد: RaggiTech
  معرفة الوقت الذي مضى على تشغيل الويندوز (الوقت هنا بالملي ثانية) RaggiTech 0 1,863 17-10-12, 05:44 PM
آخر رد: RaggiTech
  لمعرفه اسم الجهاز بال C# و VB.net RaggiTech 0 2,766 17-10-12, 05:39 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم