Click here to Skip to main content
11,795,568 members (77,337 online)
Click here to Skip to main content

Simple Computer Info.

, 3 Jun 2002 83.5K 692 39
Rate this:
Please Sign up or sign in to vote.
Get HostName, Logged On User, SytemRoot, Uptime, and a few more with only a few lines of code.

Sample Image - Environment_Class_small.jpg


This is the meat of the program. If you need more, then download the project. It's only 25K.

Public sAppName As String = "Registry Tester"
Public sRegSection As String = "Startup"
Public sXpos As String = "StartPos X"
Public sYpos As String = "StartPos Y"

Public Sub New()
    Dim X, Y As Integer
    X = GetSetting(sAppName, sRegSection, sXpos, CInt(100))
    Y = GetSetting(sAppName, sRegSection, sYpos, CInt(250))
    Me.Location = New Drawing.Point(X, Y)
    Me.StartPosition = FormStartPosition.Manual
    'This call is required by the Windows Form Designer.

    'Add any initialization after the InitializeComponent() call

End Sub

Private Sub Form1_Closing(ByVal sender As Object, _
  ByVal e As System.ComponentModel.CancelEventArgs) _
  Handles MyBase.Closing
    Dim X, Y As Integer
    X = Me.Location.X
    Y = Me.Location.Y
    SaveSetting(sAppName, sRegSection, sXpos, X)
    SaveSetting(sAppName, sRegSection, sYpos, Y)
End Sub

Private Sub btnDo_Click(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles btnDo.Click
    lblOsVersion.Text = Environment.OSVersion.ToString
    lblUser.Text = Environment.UserName.ToString
    lblRuntime.Text = Environment.Version.ToString
    lblUptime.Text = Mid((Environment.TickCount / 3600000), 1, 5) & " :Hours"
End Sub

Private Sub btnGetRoot_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnGetRoot.Click
    lblSystemRoot.Text = _
End Sub

This project started out from reading "Coding Techniques For Visual Basic .NET". But then I got side tracked on the registry to save app settings. And then I got into the Environment class and all of its glory. I have seen a lot of code written to get uptime and so on, but they were a lot more than this. I hope someone likes it.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Bo Hunter
United States United States
My biggest intrests are cars and computers.
I work for one of Nascar's 50 greates drivers
where we build race cars for some people. We
mostly build them for ourselfs to race. I was
very fortunate to have Jack Ingram to take me
under his wing and teach me how to drive LMSC.
So when we are not racing or building new cars
I spend my time learning C++ and the new .Net

You may also be interested in...

Comments and Discussions

QuestionDownload not work - it download form1.aspx/logon.aspx Pin
SheBi Videography27-Feb-14 23:46
memberSheBi Videography27-Feb-14 23:46 
QuestionComplete System Info Pin
Chandan_Kr12-Jan-06 23:41
memberChandan_Kr12-Jan-06 23:41 
GeneralGetSetting Function Pin
Bo Hunter5-Jun-02 7:36
memberBo Hunter5-Jun-02 7:36 
GeneralMy... Pin
arcdemon3-Jun-06 13:17
memberarcdemon3-Jun-06 13:17 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.151002.1 | Last Updated 4 Jun 2002
Article Copyright 2002 by Bo Hunter
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid