معرفة و متابعة الاجهزة التى تعمل على الشبكة

[محمد احمد لطفى]

 

هل يمكن أن نعرف الاجهزة التى تعمل و الاجهزة التى لا تعمل فى ( نموذج واحد ) بدون تكرار للكود 

IP.accdb

تم تعديل أكتوبر 22, 2023 بواسطه محمد احمد لطفى

[Foksh]

لم أقم بتجربة هذا الكود ،

انشئ وحدة نمطية جديده واكتب الكود فيها :-

Function GetConnectedDevices()
    Dim objShell As Object
    Dim objExec As Object
    Dim strCommand As String
    Dim strOutput As String
    
    Set objShell = CreateObject("WScript.Shell")
    strCommand = "arp -a" ' يمكك استبداله بأمر آخر حسب نوع الشبكة الخاصة بك
    Set objExec = objShell.Exec(strCommand)
    
    strOutput = objExec.StdOut.ReadAll
    GetConnectedDevices = strOutput
End Function

جرب استدعاء الكود بمربع نص مثلا عن طريق

GetConnectedDevices()

[Moosak]

9 ساعات مضت, Foksh said:

لم أقم بتجربة هذا الكود ،

انشئ وحدة نمطية جديده واكتب الكود فيها :-

Function GetConnectedDevices()
    Dim objShell As Object
    Dim objExec As Object
    Dim strCommand As String
    Dim strOutput As String
    
    Set objShell = CreateObject("WScript.Shell")
    strCommand = "arp -a" ' يمكك استبداله بأمر آخر حسب نوع الشبكة الخاصة بك
    Set objExec = objShell.Exec(strCommand)
    
    strOutput = objExec.StdOut.ReadAll
    GetConnectedDevices = strOutput
End Function

جرب استدعاء الكود بمربع نص مثلا عن طريق

GetConnectedDevices()

شكرا لك أخي @Foksh 🙂 

الكود يجلب أرقام  ال IP adress للأجهزة بدون اسم الجهاز .. للعلم 

[محمد احمد لطفى]

مثل ما افاد أستاذ موسى يجلب أرقام  IP adress التى تعمل على الشبكة 

المطلوب مثل ما الصورة و النموذج المرفق و لكن هل يمكن تطبيقها فى نموذج واحد 

حيث يتم عمل ping  و فى حالة ان الجهاز لا يعمل تكون اشارة حمراء أما اذا كان يعمل تكون اشارة خضراء تومض  ( مقتبس من موضوع أستاذ ابو جودى )