0
餘米試圖理解和修改網絡發現program..if有人幫助我理解下面的代碼,我會不得不網絡發現計劃
Dim DomainEntry As New DirectoryEntry("WinNT://" & workGroup.Trim())
DomainEntry.Children.SchemaFilter.Add("computer")
X = 5 : Y = 5 : Count = 1
For Each Machine As DirectoryEntry In DomainEntry.Children
Dim CompNode As New TreeNode(), CompInfo(1) As String
CompInfo(0) = Machine.Name
Dim Tempaddr As System.Net.IPHostEntry = Nothing
Try
Tempaddr = DirectCast(Dns.GetHostByName(Machine.Name), System.Net.IPHostEntry)
Dim TempAd As System.Net.IPAddress() = Tempaddr.AddressList, str As String = ""
For Each TempA As IPAddress In TempAd
CompInfo(1) = TempA.ToString()
Next
Catch ex As Exception
CompInfo(1) = ""
End Try
你會好得多詢問的代碼,你不懂行的問題。就目前而言,你的問題非常廣泛。 –
但如果我不明白這整個代碼塊:-o – Madiha
DomainEntry.Children.SchemaFilter.Add(「計算機」)專門這一行! – Madiha