Tipp 0021 Systemeinstellungen auslesen
Autor/Einsender:
Datum:
  Michael Werner
14.03.2004 (Update)
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Mit Hilfe der Eigenschaften der Environment-Klasse im Namespace System lassen sich Systeminformationen ermitteln, wie z. B. Betriebssystem, Version, MachineName, UserName, UserDomainName, SystemDirectory usw.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim oEnv As System.Environment
  Dim oItem As ListViewItem

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    lvwSystem.View = View.Details
    lvwSystem.Columns.Add("Eigenschaft", 140, _
          HorizontalAlignment.Left)
    lvwSystem.Columns.Add("Werte", 700, HorizontalAlignment.Left)
    FillSystemEinstellungen()
  End Sub

  Private Sub AddItems(ByVal lvw As ListView, ByVal sProperty _
          As String, ByVal sValue As String)
    oItem = New ListViewItem(sProperty)
    oItem.SubItems.Add(sValue)
    lvw.Items.Add(oItem)
  End Sub

  Private Sub FillSystemEinstellungen()
    AddItems(lvwSystem, "OS Version", _
                        oEnv.OSVersion.Version.ToString)
    AddItems(lvwSystem, "CLR Version.Major", _
                        oEnv.Version.Major.ToString)
    AddItems(lvwSystem, "CLR Version.Minor", _
                        oEnv.Version.Minor.ToString)
    AddItems(lvwSystem, "CLR Version.Revision", _
                        oEnv.Version.Revision.ToString)
    AddItems(lvwSystem, "CLR Version.Build", _
                        oEnv.Version.Build.ToString)
    AddItems(lvwSystem, "OS Plattform", _
                        oEnv.OSVersion.Platform.ToString)
    AddItems(lvwSystem, "MachineName", oEnv.MachineName.ToString)
    AddItems(lvwSystem, "SystemDirectory", _
                        oEnv.SystemDirectory.ToString)
    AddItems(lvwSystem, "UserDomainName", _
                        oEnv.UserDomainName.ToString)
    AddItems(lvwSystem, "UserInteractive", _
                        oEnv.UserInteractive.ToString)
    AddItems(lvwSystem, "UserName", oEnv.UserName.ToString)
    AddItems(lvwSystem, "CurrentDirectory", _
                        oEnv.CurrentDirectory.ToString)
    AddItems(lvwSystem, "WorkingSet", oEnv.WorkingSet.ToString)
    AddItems(lvwSystem, "CommandLine", oEnv.CommandLine.ToString)
    AddItems(lvwSystem, "TickCount", oEnv.TickCount.ToString)
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
Betriebssystem ermitteln
System-Informationen auslesen (WMI)

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,3 kB) Downloads bisher: [ 1239 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 15. Januar 2012