Namespace MyApp.Info
Module Main
Sub Main()
Dim objHW As New MyApp.Info.Utilities
objHW.DisplayData()
End Sub
End Module
Public Class Utilities
'Run the application
Public Sub DisplayData()
Console.WriteLine(Environment.MachineName)
Console.WriteLine(Environment.SystemDirectory)
Console.WriteLine(Environment.GetLogicalDrives())
Console.WriteLine(Environment.Version.ToString())
End Sub
End Class
End Namespace
|