Collect system info for your application’s runtime environment


Often your code gets run on a machine far away and it’s useful to gather some information about that machine automatically, perhaps for error reporting or statistics gathering.

This information could include the Operating System version, how much memory, logged in user, etc.

 

There are various means of gathering such information. Rather than using lots of APIs and rolling my own, I found SystemInfo.exe on my system and MSDN

 

SystemInfo is a console application which outputs to the console. To capture that data, we merely need to redirect the console StandardOuput

 

Also note that both C# and VB samples use both Method and Linq query syntax for sorting output.

 

Start VS2010. File->New->Project->VB or C# WPF Application.

 

Replace MainWindow.Xaml.VB/CS with the code below.

Of course, you can modify the GetInfo method to gather more info like free disk space, etc.

I’ve gathered more info by enumerating the running processes. From it, you can see the start time of your process, for example.

 

To get process information: a 32 bit process can’t get much information from a 64 bit process:  An exception is thrown: “A 32 bit processes cannot access modules of a 64 bit process.”,

so build your app to run on a 64 bit OS.

 

To run on a 64 bit machine:

VB: Project->Properties->Compiler->AdvancedCompile options->TargetCPU->Any CPU

C#: Project->Properties->Build->Platform target: Any CPU

 

 

SystemInfo gives:

 

 

Systeminfo:

 

Host Name:                 CALVINH9

OS Name:                   Microsoft Windows 7 Enterprise

OS Version:                6.1.7601 Service Pack 1, v.178 Build 7601

OS Manufacturer:           Microsoft Corporation

OS Configuration:          Member Workstation

OS Build Type:             Multiprocessor Free

Registered Owner:          admin

Registered Organization:   Microsoft IT

Product ID:                00392-918-5000002-85687

Original Install Date:     2/3/2010, 1:08:28 PM

System Boot Time:          10/20/2010, 11:00:05 PM

System Manufacturer:       Dell Inc.

System Model:              Studio 1558

System Type:               x64-based PC

Processor(s):              1 Processor(s) Installed.

                           [01]: Intel64 Family 6 Model 37 Stepping 2 GenuineIntel ~2400 Mhz

BIOS Version:              Dell Inc. A02, 12/23/2009

Windows Directory:         C:\Windows

System Directory:          C:\Windows\system32

Boot Device:               \Device\HarddiskVolume2

System Locale:             en-us;English (United States)

Input Locale:              en-us;English (United States)

Time Zone:                 (UTC-08:00) Pacific Time (US & Canada)

Total Physical Memory:     8,053 MB

Available Physical Memory: 5,261 MB

Virtual Memory: Max Size:  16,103 MB

Virtual Memory: Available: 12,708 MB

Virtual Memory: In Use:    3,395 MB

Page File Location(s):     D:\pagefile.sys

Domain:                    redmond.corp.microsoft.com

Logon Server:              \\TK5-RED-DC-31

Hotfix(s):                 5 Hotfix(s) Installed.

                           [01]: KB958559

                           [02]: KB2416754

                           [03]: KB958488

                           [04]: KB976902

                           [05]: KB976932

Network Card(s):           4 NIC(s) Installed.

                           [01]: Realtek RTL8168D/8111D Family PCI-E Gigabit Ethernet NIC (NDIS 6.20)

                                 Connection Name: Local Area Connection

                                 Status:          Media disconnected

                           [02]: Dell Wireless 1520 Wireless-N WLAN Mini-Card

                                 Connection Name: Wireless Network Connection

                                 DHCP Enabled:    Yes

                                 DHCP Server:     157.54.23.66

                                 IP address(es)

                                 [01]: 10.80.56.203

                                 [02]: fe80::2c5a:ec35:a53d:d23c

                                 [03]: 2001:4898:b8:2011:69fc:cc57:34f0:64d2

                                 [04]: 2001:4898:b8:2011:2c5a:ec35:a53d:d23c

                           [03]: Microsoft Virtual WiFi Miniport Adapter

                                 Connection Name: Wireless Network Connection 2

                                 Status:          Media disconnected

                           [04]: Microsoft Loopback Adapter

                                 Connection Name: MS Loopback

                                 Status:          Hardware not present

 

Env vars:

_NO_DEBUG_HEAP=1

_NT_SYMBOL_PATH=SRV*c:\symcache*\\ddrps\symbols;srv*c:\symcache*\\symbols\symbols

ALLUSERSPROFILE=C:\ProgramData

APPDATA=C:\Users\calvinh\AppData\Roaming

CommonProgramFiles=C:\Program Files (x86)\Common Files

CommonProgramFiles(x86)=C:\Program Files (x86)\Common Files

CommonProgramW6432=C:\Program Files\Common Files

COMPUTERNAME=CALVINH9

ComSpec=C:\Windows\system32\cmd.exe

Copycmd=/y

COR_ENABLE_PROFILING=1

COR_PROFILER={01673DDC-46F5-454F-84BC-F2F34564C2AD}

COR_PROFILER_PATH=D:\MemSpect\Vsassert.dll

EMC_AUTOPLAY=C:\Program Files (x86)\Common Files\Roxio Shared\

FP_NO_HOST_CHECK=NO

HOMEDRIVE=C:

HOMEPATH=\Users\calvinh

INSTALL_TYPE=WDS-CLEAN

LOCALAPPDATA=C:\Users\calvinh\AppData\Local

LOGONSERVER=\\TK5-RED-DC-31

NUMBER_OF_PROCESSORS=4

OANOCACHE=1

OS=Windows_NT

Path=c:\bin;C:\Program Files\Common Files\Microsoft Shared\Windows Live;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files\System Center Operations Manager 2007\;C:\Program Files (x86)\Common Files\Roxio Shared\10.0\DLLShared\;C:\Program Files (x86)\Common Files\Roxio Shared\DLLShared\;C:\Program Files\Dell\Dell Wireless WLAN Card;C:\Program Files (x86)\Microsoft Application Virtualization Client;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\DTS\Binn\

PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC

PROCESSOR_ARCHITECTURE=x86

PROCESSOR_ARCHITEW6432=AMD64

PROCESSOR_IDENTIFIER=Intel64 Family 6 Model 37 Stepping 2, GenuineIntel

PROCESSOR_LEVEL=6

PROCESSOR_REVISION=2502

ProgramData=C:\ProgramData

ProgramFiles=C:\Program Files (x86)

ProgramFiles(x86)=C:\Program Files (x86)

ProgramW6432=C:\Program Files

PSModulePath=C:\Windows\system32\WindowsPowerShell\v1.0\Modules\

PUBLIC=C:\Users\Public

RoxioCentral=C:\Program Files (x86)\Common Files\Roxio Shared\10.0\Roxio Central36\

SESSIONNAME=Console

SystemDrive=C:

SystemRoot=C:\Windows

TEMP=C:\Users\calvinh\AppData\Local\Temp

TMP=C:\Users\calvinh\AppData\Local\Temp

UATDATA=C:\Windows\SysWOW64\CCM\UATData\D9F8C395-CAB8-491d-B8AC-179A1FE1BE77

USERDNSDOMAIN=REDMOND.CORP.MICROSOFT.COM

USERDOMAIN=REDMOND

USERNAME=calvinh

USERPROFILE=C:\Users\calvinh

VS100COMNTOOLS=C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\Tools\

windir=C:\Windows

 

 

 

 

 

 

<C# Code>

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Windows;

using System.Windows.Controls;

using System.Windows.Data;

using System.Windows.Documents;

using System.Windows.Input;

using System.Windows.Media;

using System.Windows.Media.Imaging;

using System.Windows.Navigation;

using System.Windows.Shapes;

using System.IO;

 

namespace WpfApplication2

{

    /// <summary>

    /// Interaction logic for MainWindow.xaml

    /// </summary>

    public partial class MainWindow : Window

    {

        public MainWindow()

        {

            InitializeComponent();

            this.Content = new TextBox()

            {

                Text = GetInfo(),

                HorizontalScrollBarVisibility = ScrollBarVisibility.Auto,

                VerticalScrollBarVisibility = ScrollBarVisibility.Auto,

                FontFamily = new FontFamily(“Courier New”)

            };

 

        }

        string GetInfo()

        {

            var sb = new System.Text.StringBuilder();

            var sysdir = System.Environment.GetEnvironmentVariable(“systemroot”);//  c:\windows

 

            var systeminfoFile = System.IO.Path.Combine(sysdir, @”system32\systeminfo.exe”);

            if (File.Exists(systeminfoFile))

            {

                var psinfo = new System.Diagnostics.ProcessStartInfo

                {

                    FileName = systeminfoFile,

                    UseShellExecute = false,

                    RedirectStandardOutput = true

                };

                var p = System.Diagnostics.Process.Start(psinfo);

                var sr = p.StandardOutput;

                sb.Append(sr.ReadToEnd());

            }

            sb.AppendLine();

            sb.AppendLine(“Running Processes”);

            foreach (System.Diagnostics.Process proc in

                System.Diagnostics.Process.GetProcesses().OrderBy(p=>p.ProcessName))

            {

                try

                {

                    sb.AppendLine(String.Format(“{0,6} {1,-20} {2,12:n0} {3,4} {4,25} {5,-50} {6,-50}”,

                                                proc.Id,

                                                proc.ProcessName,

                                                proc.WorkingSet64,

                                                proc.Threads.Count,

                                                proc.StartTime,

                                                proc.MainWindowTitle,

                                                proc.MainModule.FileName

                                                ));

 

                }

                catch (Exception ex)

                {

 

                    sb.AppendLine(proc.ProcessName + ” “ + ex.Message);

                }

            }

 

 

            sb.AppendLine();

            sb.AppendLine(“Env vars:”);

            foreach (string envvar in

                (from string env in System.Environment.GetEnvironmentVariables().Keys

                 orderby env

                 select env))

            {

                sb.AppendLine(envvar + “=” + System.Environment.GetEnvironmentVariable(envvar));

            }

            return sb.ToString();

        }

    }

}

 

 

 </C# Code>

 

<VB Code>

Class MainWindow

    Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded

        Me.Content = New TextBox With {

            .Text = GetInfo(),

            .VerticalScrollBarVisibility = ScrollBarVisibility.Auto,

            .HorizontalScrollBarVisibility = ScrollBarVisibility.Auto,

            .FontFamily = New FontFamily(“Courier New”)

        }

    End Sub

    Function GetInfo() As String

        Dim sb As New Text.StringBuilder

        Dim sysdir = System.Environment.GetEnvironmentVariable(“systemroot”) ‘ c:\windows

 

        Dim systeminfoFile = IO.Path.Combine(sysdir, “system32\systeminfo.exe”)

        If IO.File.Exists(systeminfoFile) Then

            Dim psinfo = New ProcessStartInfo With {

                                  .FileName = systeminfoFile,

                                  .UseShellExecute = False,

                                  .RedirectStandardOutput = True

                              }

            Dim p = Process.Start(psinfo)

            Dim sr = p.StandardOutput

            sb.Append(sr.ReadToEnd)

        End If

        sb.AppendLine()

        sb.AppendLine(“Running Processes”)

        For Each proc In System.Diagnostics.Process.GetProcesses.OrderBy(Function(p As Process) p.ProcessName)

            Try

 

                sb.AppendLine(String.Format(“{0,6} {1,-20} {2,12:n0} {3,4} {4,25} {5,-50} {6,-50}”,

                                            proc.Id,

                                            proc.ProcessName,

                                            proc.WorkingSet64,

                                            proc.Threads.Count,

                                            proc.StartTime,

                                            proc.MainWindowTitle,

                                            proc.MainModule.FileName

                                            ))

            Catch ex As Exception

                sb.AppendLine(proc.ProcessName + ” “ + ex.Message)

 

            End Try

 

        Next

 

        sb.AppendLine()

        sb.AppendLine(“Env vars:”)

        For Each envvar As String In From env In System.Environment.GetEnvironmentVariables.Keys Order By env

            sb.AppendLine(envvar + “=” + System.Environment.GetEnvironmentVariable(envvar))

        Next

        Return sb.ToString

    End Function

End Class

 

 

</VB Code>

 

Comments (1)

  1. Zloth says:

    Another possibility is the DxDiag program which I believe has an option to output results as XML.  I don't think it's quite as easy to use as this but it will provide a lot more details about driver versions and codex entries.

Skip to main content