Build Simple Network Browser

    // VB.NET //
    ...
   Public Function GetLocalComputerInfo() As Boolean

        Dim query As <CODE>ManagementObjectSearcher</CODE>
        Dim queryCollection As <CODE>ManagementObjectCollection</CODE>

        Dim query_command As String = "SELECT * FROM Win32_ComputerSystem"

        Dim msc As ManagementScope = New ManagementScope("root\cimv2")

        Dim select_query As SelectQuery = New SelectQuery(query_command)

        query = New ManagementObjectSearcher(msc, select_query)
        queryCollection = query.Get()

        Dim management_object As <CODE>ManagementObject</CODE>

        For Each management_object In queryCollection
            m_local_domain_name = management_object("Domain")
            m_local_computer_name = management_object("Name")
        Next management_object

        Return True
    End Function
    ...

    // VB.NET //
    ...
    Public Function GetComputersInfoCollection(ByVal domain As String) _<BR>                                                        As DirectoryEntry
        Dim domainEntry As DirectoryEntry = New DirectoryEntry("WinNT://" _<BR>                                                                + domain)
        domainEntry.Children.SchemaFilter.Add("computer")
        Return domainEntry
    End Function
    ...

    // VB.NET //
    ...
    Public Function GetUsersInfoCollection(ByVal domain As String) _ <BR>                                           As ManagementObjectCollection
        Dim query As ManagementObjectSearcher
        Dim queryCollection As ManagementObjectCollection

        Dim msc As ManagementScope = New ManagementScope("root\cimv2")
        Dim query_command As String = _
        "SELECT * FROM Win32_UserAccount  WHERE Domain=" & _
            Chr(34).ToString() & domain & Chr(34).ToString()
        'Win32_UserAccount:
        'see http://msdn.microsoft.com/library/default.asp?<BR>        'url=/library/en-us/wmisdk/wmi/win32_useraccount.asp
        'class Win32_UserAccount : Win32_Account
        '{
        '  uint32 AccountType;
        '  string Caption;
        '  string Description;
        '  boolean Disabled;
        '  string Domain;
        '  string FullName;
        '  datetime InstallDate;
        '  boolean LocalAccount;
        '  boolean Lockout;
        '  string Name;
        '  boolean PasswordChangeable;
        '  boolean PasswordExpires;
        '  boolean PasswordRequired;
        '  string SID;
        '  uint8 SIDType;
        '  string Status;
        '};
        '
        Dim select_query As SelectQuery = New SelectQuery(query_command)

        query = New ManagementObjectSearcher(msc, select_query)
        queryCollection = query.Get()

        Return queryCollection
    End Function
    ...

    // VB.NET //
    ...
    Public Function GetServicesInfoCollection(ByVal computer_name _<BR>                                                       As String) _<BR>                      As ManagementObjectCollection
        Dim query As ManagementObjectSearcher
        Dim queryCollection As ManagementObjectCollection

        Dim msc As ManagementScope = New ManagementScope("\\" &_<BR>                                      computer_name & "\root\cimv2")
        Dim query_command As String = "SELECT * FROM Win32_Service"
        'Win32_UserAccount:
        'see http://msdn.microsoft.com/library/en-us/wmisdk/wmi/<BR>        'win32_service.asp?frame=true<BR>        '
        '        class Win32_Service : Win32_BaseService
        '{
        '  boolean AcceptPause;
        '  boolean AcceptStop;
        '  string Caption;
        '  uint32 CheckPoint;
        '  string CreationClassName;
        '  string Description;
        '  boolean DesktopInteract;
        '  string DisplayName;
        '  string ErrorControl;
        '  uint32 ExitCode;
        '  datetime InstallDate;
        '  string Name;
        '  string PathName;
        '  uint32 ProcessId;
        '  uint32 ServiceSpecificExitCode;
        '  string ServiceType;
        '  boolean Started;
        '  string StartMode;
        '  string StartName;
        '  string State;
        '  string Status;
        '  string SystemCreationClassName;
        '  string SystemName;
        '  uint32 TagId;
        '  uint32 WaitHint;
        '};

        Dim select_query As SelectQuery = New SelectQuery(query_command)

        query = New ManagementObjectSearcher(msc, select_query)
        queryCollection = query.Get()

        Return queryCollection
    End Function  
    ...

Points of Interest

History

no improvements so far. nearly perfect.