معرفة أسماء الأجهزة في الشبكة المحلية

السلام عليكم

افتح الدوس واكتب

net view

ويطلع لك كل اسماء الاجهزة على الشبكة

واذا بغيت تعرف رقم الاي بي لجهاز اكتب

ping pc1

استبدل pc1 باسم الجهاز

هذا هو الكود المطلوب إن شاء الله :

Private Sub Computers_Name_List()
On Error Resume Next
'Clear List Box
Computers_List.Clear
'Create file with list of network computers
Shell "cmd /c net view >C:\comName.txt", vbHide
Dim FileSystemObject, TextStream As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
'Open text file
Set TextStream = FileSystemObject.OpenTextFile("C:\comName.txt")
'Read in file line by line at trim it down to needed info
x = 0
Do Until TextStream.AtEndOfStream
    x = x + 1
    strLine(x) = TextStream.ReadLine
    strLine(x) = Mid(strLine(x), 3, 18)
    strLine(x) = Trim(strLine(x))
Loop

'close file
TextStream.Close

'Output
For i = 4 To x - 2
  Computers_List.AddItem strLine(i)
Next i

End Sub

قم بإنشاء القائمة Computers_List و منثما استدعي هذا الاجراء الذي اسمه Computers_Name_List() داخل الـ Form_Load

اذا الامور مشيت معك تمام بلغنا .. و لا تنسانا :)

بنت اليمن ،،