Tipp 0059 System-Informationen auslesen ( WMI)
Autor/Einsender:
Datum:
  Konstantin Merz
26.10.2004
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Dieses einfache Konsolenprogramm gibt fast alle Informationen des Rechners wieder, z. B. Rechnername, Betriebssystem, Domain, usw.
Möglich ist das durch die WMI-Klassen im Namespace System.Management: ManagementObjectSearcher, ManagementObjectCollection, ManagementObject und PropertyData.
 
Class Class1
  Public mos As Management.ManagementObjectSearcher

  Shared Sub Main()
    Dim mos As Management.ManagementObjectSearcher
    Dim moc As Management.ManagementObjectCollection
    Dim mo As Management.ManagementObject
    Dim pd As Management.PropertyData
    Console.WriteLine("Weiter mit ENTER!")
    Console.ReadLine()
    Console.WriteLine( _
                 "Die Eigenschaften aller Laufwerke auslesen:")
    mos = New Management.ManagementObjectSearcher( _
                 "select * from win32_logicaldisk")
    moc = mos.Get()
    For Each mo In moc
      Console.WriteLine("------------")
      For Each pd In mo.Properties
        Try
          Console.WriteLine(pd.Name + " = " + pd.Value.ToString)
        Catch
        End Try
      Next
      Console.ReadLine()
    Next
    moc.Dispose()
    mos.Dispose()

    Class1.computer()
    Console.ReadLine()
    Class1.domain()
    Console.ReadLine()
    Class1.os()
    Console.ReadLine()
    Class1.shutdown()
    Console.ReadLine()
    Class1.systemdir()
    Console.ReadLine()
    Class1.user1()
    Console.ReadLine()
    Console.WriteLine(user)
    Console.ReadLine()
    Console.WriteLine(Environment.CommandLine)
    Console.ReadLine()
    Console.WriteLine("Ende.")
    Console.ReadLine()
    Class1.enter()
    Console.ReadLine()
  End Sub

  Shared Sub enter()
    Console.WriteLine("Beenden mit ENTER.")
  End Sub

  Shared Sub computer()
    Console.WriteLine("Computername: " & Environment.MachineName)
  End Sub

  Shared Sub shutdown()
    Console.WriteLine("Shutdown: " &
                Environment.HasShutdownStarted)
  End Sub

  Shared Sub systemdir()
    Console.WriteLine("System-Ordner: " & _
                Environment.SystemDirectory)
  End Sub

  Shared Sub domain()
    Console.WriteLine("Aktive Domain: " & _
               Environment.UserDomainName)
  End Sub

  Shared Sub os()
    Console.WriteLine(Environment.OSVersion)
  End Sub

  Shared Sub user1()
    Console.WriteLine("Aktiver User: " & Environment.UserName)
  End Sub

  Private _lastacces As Date
  Private _lastwrite As Date

  Public Sub New(ByVal s As String)
    MyBase.new()
    _lastwrite = Now
  End Sub

  Public Function getlastacces() As Date
    Return _lastacces
  End Function

  Public Function getlastwrite() As Date
    Return _lastacces
  End Function

  Public Shared Property user()
    Get
      Return user
    End Get
    Set(ByVal s)
      user = s
    End Set
  End Property
End Class
 
Weitere Links zum Thema
Aktuelle Druckaufträge auslesen (WMI)
Benutzeridentität auslesen
Systemeinstellungen auslesen

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


Download  (6,2 kB) Downloads bisher: [ 1368 ]

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, 22. Januar 2012