Mega Code Archive

 

Categories / VB.Net by API / System

 

Environment Version

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