اريد كود يقوم بجلب جميع اسماء السيرفرات

وجدت هذا الكود ولكن يعطيني خطأ امل ايجاد البديل 

Dim SqlAppp As New SQLDMO.Application

تفضل أخي الكريم 

حاول تجربة هذا الكود 

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

اولاً : اشكرك على الرد

ثانياً : يوجد مشكلة وهي يعلق البرنامج ولا يستجيب لهذا الكود

امل المساعدة