تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- عرض ارقام الاي بي المربوطه في الشبكه
#1
السلام عليكم ورحمة الله


تعديل :-  الكود شغال شكرا لكم 


كود :
 Public Const SV_TYPE_ALL As Integer = &HFFFFFFFF

   Public Structure SERVER_INFO_101
       Public Platform_ID As Integer
       <MarshalAsAttribute(UnmanagedType.LPWStr)> Public Name As String
       Public Version_Major As Integer
       Public Version_Minor As Integer
       Public Type As Integer
       <MarshalAsAttribute(UnmanagedType.LPWStr)> Public Comment As String
   End Structure

   Public Declare Unicode Function NetServerEnum Lib "Netapi32.dll" (
       ByVal Servername As Integer, ByVal Level As Integer, ByRef Buffer As IntPtr, ByVal PrefMaxLen As Integer,
       ByRef EntriesRead As Integer, ByRef TotalEntries As Integer, ByVal ServerType As Integer,
       ByVal DomainName As String, ByRef ResumeHandle As Integer) As Integer

   Public Declare Function NetApiBufferFree Lib "Netapi32.dll" (ByVal lpBuffer As IntPtr) As Integer

   Public Shared Function GetNetworkComputers(Optional ByVal DomainName As String = Nothing) As DataTable
       Dim ServerInfo As SERVER_INFO_101
       Dim MaxLenPref As Integer = -1
       Dim level As Integer = 101
       Dim ResumeHandle As Integer = 0
       Dim ret, EntriesRead, TotalEntries As Integer
       Dim BufPtr As IntPtr

       Dim dt As New DataTable
       dt.Columns.Add("IPs")
       dt.Columns.Add("PCs")
       Try
           ret = NetServerEnum(0, level, BufPtr, MaxLenPref, EntriesRead, TotalEntries, SV_TYPE_ALL, DomainName, ResumeHandle)
           If ret = 0 Then
               For i As Integer = 0 To EntriesRead - 1
#Disable Warning BC42109 ' Variable is used before it has been assigned a value
                   ServerInfo = Marshal.PtrToStructure(IncrementPointer(BufPtr, i * Marshal.SizeOf([structure]:=ServerInfo)), GetType(SERVER_INFO_101))
#Enable Warning BC42109 ' Variable is used before it has been assigned a value
                   Dim Rw As DataRow = dt.NewRow

                   Dim IPstring As String = ""
                   For Each ip As Net.IPAddress In Net.Dns.GetHostAddresses(ServerInfo.Name)
                       'Debug.WriteLine(ip.ToString)
                       If Not ip.IsIPv6LinkLocal Then
                           IPstring = IPstring & ip.ToString
                       End If
                   Next
                   Rw(0) = IPstring.ToString
                   Rw(1) = ServerInfo.Name.ToString
                   dt.Rows.Add(Rw)
               Next
           End If
           NetApiBufferFree(BufPtr)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       Return dt
   End Function

   Private Shared Function IncrementPointer(ByVal ptr As IntPtr, ByVal i As Integer) As IntPtr
       If IntPtr.Size = 4 Then
           Return New IntPtr(ptr.ToInt32 + i)
       End If
       If IntPtr.Size = 8 Then
           Return New IntPtr(ptr.ToInt64 + i)
       End If
   End Function
   Private Sub btnGet_Click(sender As Object, e As EventArgs) Handles btnGet.Click
       'LstBx.DataSource = GetNetworkComputers()
       LstBx.Items.Clear()
       Dim dtt As DataTable = GetNetworkComputers()
       If dtt.Rows.Count > 0 Then
           For i As Integer = 0 To dtt.Rows.Count - 1
               LstBx.Items.Add(dtt.Rows(i)(0).ToString & ":" & dtt.Rows(i)(1).ToString)
           Next
       End If
       dtt.Dispose()
   End Sub

بارك الله فيكم وشكرا
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن كود تلوين صف معين بناءًا على تحقق شرط بخلية في الداتاجريدفيو Hazem1 8 209 أمس, 04:16 PM
آخر رد: Hazem1
  استفسار حول أداة Checkbox Hazem1 2 69 11-12-18, 10:04 AM
آخر رد: Hazem1
  [VB.NET] استفسار :- مشكله اعاني منها كثير is not valid for 'rowIndex dubai.eig 1 38 10-12-18, 02:43 PM
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 41 06-12-18, 04:36 PM
آخر رد: dubai.eig
  [VB.NET] استفسار :- كيف اسحب معلومات من موقع الكتروني dubai.eig 2 109 30-11-18, 03:12 PM
آخر رد: XBOOBX
  [VB.NET] استفسار :- التعرف على الصوت dubai.eig 12 253 27-11-18, 03:33 PM
آخر رد: dubai.eig
  استفسار داخل Tabcontrol عبدالرحمن المكاوي 2 83 24-11-18, 12:34 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 21 866 19-11-18, 11:29 PM
آخر رد: asemshahen5
  استفسار فراس الغزي 5 164 19-11-18, 11:19 PM
آخر رد: فراس الغزي
  استفسار بشأن جدول العملات alfaiz678 4 120 18-11-18, 03:59 AM
آخر رد: ay.alhaj

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم