Detect PCs On Network

Hi

Is it possible to detect the number of PCs on your network?

OR

Detect the PC Names on the network?

Thanks
LVL 1
narmi2Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Irwin SantosComputer Integration SpecialistCommented:
START-RUN.. type in CMD <enter> in the DOS window type

NET VIEW

it will list all your connected workstations.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
grayeCommented:
Here is chunk of code that demonstrates 3 different ways to get a listing of PCs on the LAN (by using th "My Network Places", by "NT-style Domain", or by "Active Directory-style Domain".

Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports System.DirectoryServices
Imports System.Collections.Specialized
Module GetNetList

    'NET_API_STATUS NetServerEnum(
    '  LPCWSTR servername,
    '  DWORD level,
    '  LPBYTE* bufptr,
    '  DWORD prefmaxlen,
    '  LPDWORD entriesread,
    '  LPDWORD totalentries,
    '  DWORD servertype,
    '  LPCWSTR domain,
    '  LPDWORD resume_handle
    ');
    Private Declare Unicode Function NetServerEnum Lib "Netapi32.dll" ( _
        ByVal servername As Integer, _
        ByVal level As Integer, _
        ByRef bufptr As IntPtr, _
        ByVal prefmaxlen As Integer, _
        ByRef entriesread As Integer, _
        ByRef totalentries As Integer, _
        ByVal servertype As Integer, _
        ByVal domain As String, _
        ByRef resume_handle As Integer) As Integer

    'NET_API_STATUS NetApiBufferFree(
    '  LPVOID Buffer
    ');
    Private Declare Function NetApiBufferFree Lib "Netapi32.dll" ( _
        ByVal Buffer As IntPtr) As Integer

    Private Const SV_TYPE_ALL As Long = &HFFFFFFFF

    'typedef struct _SERVER_INFO_101 {
    '  DWORD sv101_platform_id;
    '  LPWSTR sv101_name;
    '  DWORD sv101_version_major;
    '  DWORD sv101_version_minor;
    '  DWORD sv101_type;
    '  LPWSTR sv101_comment;
    '} SERVER_INFO_101, *PSERVER_INFO_101, *LPSERVER_INFO_101;
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=4)> _
    Private Structure SERVER_INFO_101
        Dim sv101_platform_id As Integer
        Dim sv101_name As String
        Dim sv101_version_major As Integer
        Dim sv101_version_minor As Integer
        Dim sv101_type As Integer
        Dim sv101_comment As String
    End Structure

    Function GetPCNetList(ByVal DomainName As String, Optional ByVal filter As String = "") As String()
        Dim ServerInfo As New SERVER_INFO_101
        Dim i, MaxLenPref, level, ret, EntriesRead, TotalEntries, ResumeHandle As Integer
        Dim BufPtr, iPtr As IntPtr
        Dim ans(-1) As String
        Dim num As Integer

        ' let's do it!
        MaxLenPref = -1
        level = 101
        ret = NetServerEnum(0, level, BufPtr, MaxLenPref, EntriesRead, TotalEntries, SV_TYPE_ALL, DomainName, ResumeHandle)
        If EntriesRead = 0 Then
            Return ans
        End If

        ' loop thru the entries
        num = 0
        ReDim ans(EntriesRead - 1)
        For i = 0 To EntriesRead - 1
            ' copy the stuff into our structure
            iPtr = New IntPtr(BufPtr.ToInt32 + (Marshal.SizeOf(ServerInfo) * i))
            ServerInfo = CType(Marshal.PtrToStructure(iPtr, GetType(SERVER_INFO_101)), SERVER_INFO_101)

            If filter = "" Or ServerInfo.sv101_name = filter.ToUpper Or ServerInfo.sv101_name Like filter.ToUpper Then
                ' add it to our string array
                ans(num) = ServerInfo.sv101_name
                num = num + 1
            End If
        Next
        NetApiBufferFree(BufPtr)

        If num > 0 Then
            ReDim Preserve ans(num - 1)
        End If
        Return ans
    End Function

    Function GetPCDomList(ByVal DomainName As String, Optional ByVal filter As String = "") As String()
        Dim dirs, dir As DirectoryEntry
        Dim ans(-1) As String
        Dim temp As New StringCollection

        Try
            dirs = New DirectoryEntry("WinNT://" & DomainName)
            For Each dir In dirs.Children
                ' collect data on all of our Domain PCs
                If dir.SchemaClassName = "Computer" Then
                    If filter = "" Or dir.Name = filter.ToUpper Or dir.Name Like filter.ToUpper Then
                        ' Add it to the list
                        temp.Add(dir.Name)
                    End If
                End If
            Next
        Catch
        End Try

        If temp.Count > 0 Then
            ReDim ans(temp.Count - 1)
            temp.CopyTo(ans, 0)
        End If
        Return ans
    End Function

    Public Function GetPCOUList(ByVal DomainName As String, ByVal OU_Name As String, ByVal Filter As String, ByVal Svr_Only As Boolean) As String()
        Dim entry, de As DirectoryEntry
        Dim srch As DirectorySearcher
        Dim result As SearchResult
        Dim ldap, buf, os, ans(-1) As String
        Dim temp As New StringCollection

        Try
            ldap = "LDAP://" & DomainName & "/" & OU_Name

            ' set our starting place to search
            entry = New DirectoryEntry(ldap)
            srch = New DirectoryServices.DirectorySearcher(entry)
            srch.Filter = "(ObjectCategory=computer)"

            ' OK, let's do it
            For Each result In srch.FindAll()
                de = result.GetDirectoryEntry

                buf = de.Properties("CN").Value
                If Filter = "" Or Filter.ToUpper = buf.ToUpper Or buf.ToUpper Like Filter.ToUpper Then
                    os = de.Properties("operatingSystem").Value
                    If Not IsNothing(os) Then
                        If Svr_Only = False Or (Svr_Only = True And os Like "*Server*") Then
                            temp.Add(buf)
                        End If
                    End If
                End If
            Next
        Catch
        End Try

        If temp.Count > 0 Then
            ReDim ans(temp.Count - 1)
            temp.CopyTo(ans, 0)
            [Array].Sort(ans)
        End If
        Return ans
    End Function
End Module
0
Introducing Cloud Class® training courses

Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.

Bob LearnedCommented:
Here is a class that implements Net View for the domain.  There are fancier ways using ActiveDirectory, but this works even when you don't have ActiveDirectory.

Imports System.Diagnostics

Public Class NetView

  Public Shared Function GetDomainList(ByVal domain As String) As DataTable

    Dim proc As New Process
    proc.StartInfo.FileName = "net.exe"
    proc.StartInfo.Arguments = "view /domain:" & domain
    proc.StartInfo.RedirectStandardOutput = True
    proc.StartInfo.UseShellExecute = False
    proc.StartInfo.CreateNoWindow = True
    proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    proc.Start()
    proc.WaitForExit(20000)

    Dim output As String = proc.StandardOutput.ReadToEnd()

    Return ParseNames(output)

  End Function  'GetDomainList

  Private Shared Function ParseNames(ByVal input As String) As DataTable

    Dim table As New DataTable
    table.Columns.Add("Name")
    table.Columns.Add("Value")

    Dim text As New TextBox
    Dim withinBlock As Boolean
    text.WordWrap = False
    text.Text = input

    For Each line As String In text.Lines
      If withinBlock Then
        Dim position As Integer = line.IndexOf(" ")
        If position <> -1 AndAlso Not line.Equals("The command completed successfully.") Then
          Dim name As String = line.Substring(0, position).Trim()
          Dim value As String = line.Substring(position + 1).Trim()

          Dim row As DataRow = table.NewRow()
          row("Name") = name
          row("Value") = value
          table.Rows.Add(row)
        End If
      Else
        withinBlock = line.StartsWith("Server Name")
      End If
    Next line

    Return table

  End Function  'ParseNames

End Class

Bob
0
Bob LearnedCommented:
Example:
  Me.ListBox1.DataSource = NetView.GetDomainList("domain")
  Me.ListBox1.DisplayMember = "Name"
  Me.ListBox1.ValueMember = "Value"

Bob
0
narmi2Author Commented:
THanks for all the code and links!

In one of the links above, the following line caught my eye:

ds.Filter = "(objectClass=computer)"

Does this mean I can get other information about the computers too?  If I did want to get other information what kind of information can I get?  Also, can you get more information with the code posted by graye and TheLearnedOne?

Thanks for all the help.
0
grayeCommented:
Well, your ability to get more info is related to which technique you use...   For example, if you have an Active Directory domain, you can get a lot of information.   A typical entry for a computer in AD is (I redacted a bit):

      5> objectClass: top; person; organizationalPerson; user; computer;
      1> cn: MachineName;
      1> description: DPW OFC Emmet Gray, Bldg 4612;
      1> distinguishedName: CN=MachineName,OU=SomeOU,OU=Computers,DC=domain,DC=com;
      1> instanceType: 4;
      1> whenCreated: 4/18/2005 14:36:17 Central Standard Time Central Daylight Time;
      1> whenChanged: 3/31/2006 22:16:23 Central Standard Time Central Daylight Time;
      1> uSNCreated: 436426;
      1> uSNChanged: 7477403;
      1> name: MachineName;
      1> objectGUID: dee2444e-e2e9-43ae-8c4e-dccd75bac9c7;
      1> userAccountControl: 0x1020;
      1> codePage: 0;
      1> countryCode: 0;
      1> lastLogon: 3/31/2006 22:16:23 Central Standard Time Central Daylight Time;
      1> localPolicyFlags: 0;
      1> pwdLastSet: 3/29/2006 5:11:32 Central Standard Time Central Daylight Time;
      1> primaryGroupID: 515;
      1> objectSid: S-1-5-21-4101780369-38368224-130243791-192256;
      1> accountExpires: 65535/6/65535 14:0:64440 UNC;
      1> logonCount: 4;
      1> sAMAccountName: MachineName$;
      1> sAMAccountType: 805306369;
      1> operatingSystem: Windows XP Professional;
      1> operatingSystemVersion: 5.1 (2600);
      1> operatingSystemServicePack: Service Pack 2;
      1> dNSHostName: MachineName.domain.com;
      2> servicePrincipalName: HOST/MachineName; HOST/MachineName.domain.com;
      1> objectCategory: CN=Computer,CN=Schema,CN=Configuration,DC=domain,DC=com;
      1> isCriticalSystemObject: FALSE;
      5> dSCorePropagationData: 3/17/2006 13:51:55 Central Standard Time Central Daylight Time; 3/13/2006 11:26:25 Central Standard Time Central Daylight Time; 3/8/2006 9:50:41 Central Standard Time Central Daylight Time; 2/16/2006 14:22:41 Central Standard Time Central Daylight Time; 7/14/1601 17:36:49 Central Standard Time Central Daylight Time;

If you need a lot more, you can "probe" each PC on the LAN to get installed software, etc.  Let us know if you want to follow that idea...
0
narmi2Author Commented:
That is fantastic!

If it's possible, I would like to know what software is installed on each pc and what hardware the PC has, e.g. processor, ram, harddrive etc etc

If that can be done, that would be amazing! :D
0
narmi2Author Commented:
Yes we do have ActiveDirectory!
0
grayeCommented:
I've got a program called SOSOS that does exactly that... it records 200 pieces of the information about the PC and then stores the info in  a database   The cool part about that is that you can then write queries against the database to answer questions, produces reports, etc

An introductory article and downloadable VB.Net source code is at http://home.hot.rr.com/graye/Articles/SOSOS.htm
0
narmi2Author Commented:
Thanks for that link, but I can't seem to get it to work.  I have a new thread here which you might be able to answer?

http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21807932.html
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.