Как узнать имена всех компьютеров, которые находятся в сети - VB
Формулировка задачи:
НАРОДИЧЕК!
Подскажите пож-ста! Как вывести в ComboBox имена всех компов локальной сети.
С уваженьицем Dan
removed@mail.ru
Решение задачи: «Как узнать имена всех компьютеров, которые находятся в сети»
textual
Листинг программы
Set cClsData = CreateObject("svrAccess.clsAccess")
vData = cClsData.GetComputerList(sDomen)
Set cClsData = Nothing
List1.Clear
If IsEmpty(vData) = False Then
For i = 1 To UBound(vData)
List1.AddItem Trim$(vData(i)): List1.ItemData(List1.NewIndex) = i
Next i
List1.ToolTipText = "всего компьютеров в домене " & sDomen & " : " & UBound(vData)
End If