Collect system info for your application's runtime environment

[アーティクル]
10/28/2010

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>

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

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))

Return sb.ToString

End Function

End Class

</VB Code>

Comments

Anonymous
November 01, 2010
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.

次の方法で共有

Collect system info for your application's runtime environment

Comments

その他のリソース