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