Important alert: (current site time 7/15/2013 9:08:25 AM EDT)
 

winzip icon

System Information (Update #2) (Visual Basic Version)

Email
Submitted on: 3/10/2008 6:20:24 PM
By: Herbert N Swearengen III 
Level: Intermediate
User Rating: By 23 Users
Compatibility: VB.NET
Views: 27321
author picture
(About the author)
 
     This program provides a lot of information about your computer. Most of the information is harvested using the .NET Framework 2.0 or the WMI classes accessible through the Framework. This version is a major upgrade from the original submission. A lot of code has been cleaned up and most existing panels have been enhanced in some way. There are 4 new panels: Installed Programs, Services, Startup Programs, and Users. This project is also available in C# and because I did not use any language features specific to Visual Basic in this version, they are quite similar. The idea for using the panels is not mine. I modified some code from a Microsoft sample. This update has been converted for VS2008 and includes some additional features including support for 64-bit versions of Windows.

 
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
//**************************************
// for :System Information (Update #2) (Visual Basic Version)
//**************************************
Very permissive license that basically only requires that you give credit and hold me liable.
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

 
Terms of Agreement:   
By using this code, you agree to the following terms...   
  1. You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
  2. You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 47 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

1/18/2006 5:48:39 PMcaroço

a quick bug fix on line 361 put
If IsNothing(Info.HardDriveSerialNo) = False Then
lvwDrives.Items(X).SubItems.Add(Info.HardDriveSerialNo(X))
End If

because it errors out on my pc
(If this comment was disrespectful, please report it.)

 
1/19/2006 2:41:32 AMDarian

Thanks for sharing this! The tidiness of your code and comments made it easy to follow. Haven't seen panels used like this before, love the GUI. Five globes.
(If this comment was disrespectful, please report it.)

 
1/20/2006 3:38:07 PMjoejoe

Looks great,it's a pity that it is vb code
(If this comment was disrespectful, please report it.)

 
2/6/2006 9:33:18 PMTerry Arnett

GUI is clean and extremely well thought out. Good job.
(If this comment was disrespectful, please report it.)

 
3/27/2006 5:35:17 AMFrancesco

cheers! Nice one
(If this comment was disrespectful, please report it.)

 
4/16/2006 3:38:24 PMHasanUlukaya

Good Job Man..... I'm a beginner :) I am Following Your Codes.. Thanks
(If this comment was disrespectful, please report it.)

 
4/18/2006 8:13:09 AMJason Vetter

This looks fantastic Herb. I think my wait to switch over to 2005 is over!

Very nice looking interface.
(If this comment was disrespectful, please report it.)

 
5/2/2006 10:41:02 AMBulli

Strong and Simple!
(If this comment was disrespectful, please report it.)

 
5/8/2006 9:02:49 AMipat

Very good exampl !
(If this comment was disrespectful, please report it.)

 
6/5/2006 10:45:44 AMFrankV

awesome example. Thank you for taking the time to put this together and thank you even more for sharing it on PSC.
(If this comment was disrespectful, please report it.)

 
6/13/2006 8:53:09 AMRyan

I keep getting this error, "The specified image file did not contain a resource section". Whats it all about? Thanks for any help

Ryan
(If this comment was disrespectful, please report it.)

 
6/13/2006 10:52:38 AMRyan

I fixed it, the icon set for the exe was erroring out. I changed it to the default one and it built fine
(If this comment was disrespectful, please report it.)

 
6/13/2006 12:50:07 PMHerbert N Swearengen III

Ryan,

Thanks a bunch.

The icon was from Vista and contained a 256x256 compressed image. I'll edit the icon and repost as soon as I have Windows reinstalled on my computer. :)
(If this comment was disrespectful, please report it.)

 
6/22/2006 2:53:15 AMSteve

I get the error "Error 1 Unable to write to output file 'D:\System_Inf2000546132006\obj\Release\SystemInformation.exe': System Error &H80070714&
", why? thank you.
(If this comment was disrespectful, please report it.)

 
6/22/2006 6:03:59 AMHerbert N Swearengen III

Hi Steve,

Judging by your folder name, you have the version with the icon bug. Please either download again or change to the default icon.

Thanks,

Herb
(If this comment was disrespectful, please report it.)

 
8/18/2006 11:48:50 AMDevsultan

Any chance you might be releasing a C# version soon?
(If this comment was disrespectful, please report it.)

 
9/3/2006 2:48:06 AMVBNewComer

I i rated you excelent (5/5) you deserved for.

Can you help me in similar kind, my Programme in VB.NET for WMI gives error in GetInstances() can you tell me why it is even after ref. to system.management and imports ?

(If this comment was disrespectful, please report it.)

 
9/3/2006 2:48:56 AMVBNewComer

It is not showing anything related to processor and bios.
(If this comment was disrespectful, please report it.)

 
9/19/2006 9:24:04 AMKlaus

Hi,

for those who prefere C#: You know there are several converters out there ? just Google for it. One is:

http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx

mfg< BR>
Klaus

(If this comment was disrespectful, please report it.)

 
11/5/2006 3:26:11 AMBrandon Scott

Man you wrock man...your sweet dude!

I liked all the system info...
(If this comment was disrespectful, please report it.)

 
11/6/2006 4:34:02 AMSteve Abbott

One little bug for those of us who aren't American in InstalledProrams.vb. If the installDate is in YYYYMMDD format then you convert it to the US MM/DD/YYYY format which creates an error on CDate(installDate). The fix is either to get the whole of the USA to acknowledge its error and use the same sensible format as the rest of the world (unlikely) or add an autodetector for the local date format. This should be easy, but I can't quite think what it is.

Great program!

Thanks

Steve
(If this comment was disrespectful, please report it.)

 
11/6/2006 8:44:33 AMHerbert N Swearengen III

Hey Steve,

Sorry about the date thing. Try replacing the line after this comment with the code below it.

' If the install date does not contains "/" or ",",
' assume that the date format is YYYYMMDD.
installDate = New DateTime(CInt(installDate.Substring(0, 4)), CInt(installDate.Substring(4, 2)), CInt(installDate.Substring(6, 2))).ToLongDateString 'installDate = String.Format("{0:D}", CDate(installDate.Substring(4, 2) & _

The general form of this is:

dateString = New DateTime(yyyy as Integer, mm as Integer, dd as Integer).ToLongDateString

(If this comment was disrespectful, please report it.)

 
11/6/2006 10:42:37 AMSteve Abbott

Your general fix is great for the part I mentioned. But there's another issue. The system also delivers dates as strings such as "25/01/2006" and you have code to deal with these which also fail outside the USA. Of course one can manually code this for one's location to extract the month and day. But is there a generic technique that knows the date format of one's PC and therefore can automatically change such a string into a proper date? In other words, if the system returns "01/25/2006" to a US computer and "25/01/2006" to a non-US computer is there one code which can output the long date without problem?

Thanks

Steve
(If this comment was disrespectful, please report it.)

 
11/6/2006 1:26:56 PMHerbert N Swearengen III

Steve,

I think the code below will fix the problems. I have assumed that any software installed on your computer would have left an install date in your local format. If some are in local format and some are in US format, then there is no way to solve the problem.

ElseIf installDate.Contains("/") Then
' Declare tempDate As Date at the top of the method.
' TryParse will place the Date of the string in local format in tempDate.
DateTime.TryParse(installDate, tempDate)
' Use the Framework to extract a local long date string.
installDate = tempDate.ToLongDateString()
' Remove the day of the week.
installDate = installDate.Remove(0, installDate.IndexOf(",") + 2)
End If

(If this comment was disrespectful, please report it.)

 
3/4/2008 8:26:06 PMN Raynel

Hi There,

I have just found your program "System Information and I like the look of it.
I tried running it but get the following error. I am using VB 2008 Express edition on a Pentium 4 PC running XP SP2. Thanks for sharing and can you help me please.
Thanks

Norman Raynel

Error 1 The command ""%ProgramFiles%\Microsoft Visual Studio 8\SDK\v2.0\Bin\rc.exe" "F:\TempDownloads\System_InformationTwo2028581122006\System Information\System Information.rc"" exited with code 9009. System Information

(If this comment was disrespectful, please report it.)

 
3/12/2011 12:18:24 PMMohammed Al-zain

very nice application brother
and well done.
thanks
(If this comment was disrespectful, please report it.)

 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.