Hi,that's my 1st post here.
i tried to get list of PCs in my lan including myself and the gatway,i did by this code
it take long and can't figure the gatway is, it work .what i need here,how can i copy file(s) to any of this IP Addresses (PCs)that need to Username and password?Code:Dim siteResponds As Boolean = False Dim MyIPAddresses As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName) Dim MyIPAddress As String = MyIPAddresses.AddressList(0).ToString Dim i As Int32 For i = 1 To 254 siteResponds = My.Computer.Network.Ping((MyIPAddress.Substring(0, MyIPAddress.LastIndexOf(".")) & "." & i), 1) If siteResponds = True Then lstbNames.Items.Add(MyIPAddress.Substring(0, MyIPAddress.LastIndexOf(".")) & "." & i) End If siteResponds = False Next




Reply With Quote