Private Sub sysinfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
ListBox1.Items.Clear()
 
ListBox1.Items.Add("*** Информация о системе ***")
 
ListBox1.Items.Add("--------------------------------------")
 
ListBox1.Items.Add("- посредством класса System.Environment из пространства имён System -")
 
ListBox1.Items.Add("--------------------------------------")
 
ListBox1.Items.Add("Имя машины: " & System.Environment.MachineName)
 
ListBox1.Items.Add("Версия ОС:")
 
ListBox1.Items.Add(System.Environment.OSVersion)
 
ListBox1.Items.Add("Система в работе (мс): " & System.Environment.TickCount)
 
ListBox1.Items.Add("Системный каталог: " & System.Environment.SystemDirectory)
 
ListBox1.Items.Add("Имя каталога Program Files: " & System.Environment.SpecialFolder.ProgramFiles)
 
ListBox1.Items.Add("Текущий каталог: " & System.Environment.CurrentDirectory)
 
ListBox1.Items.Add("Версия CLR: " & System.Environment.Version.Major & System.Environment.Version.Minor)
 
ListBox1.Items.Add("Версия MS Framework: " & System.Environment.Version.ToString())
 
ListBox1.Items.Add("-------------------------------")
 
ListBox1.Items.Add("- посредством класса SystemInformation из пространства имён System.Windows.Forms -")
 
ListBox1.Items.Add("--------------------------------")
 
ListBox1.Items.Add("Имя ПК: " & SystemInformation.ComputerName)
 
ListBox1.Items.Add("Имя домена: " & SystemInformation.UserDomainName)
 
ListBox1.Items.Add("Имя пользователя: " & SystemInformation.UserName)
 
ListBox1.Items.Add("Находится ли пользователь в сети: " & SystemInformation.Network)
 
ListBox1.Items.Add("Кол-во мониторов на ПК: " & SystemInformation.MonitorCount)
 
ListBox1.Items.Add("ComputerName : " + SystemInformation.ComputerName)
 
ListBox1.Items.Add("Network : " + SystemInformation.Network.ToString())
 
ListBox1.Items.Add("UserDomainName : " + SystemInformation.UserDomainName)
 
ListBox1.Items.Add("UserName : " + SystemInformation.UserName)
 
ListBox1.Items.Add("BootMode : " + SystemInformation.BootMode.ToString())
 
ListBox1.Items.Add("MenuFont : " + SystemInformation.MenuFont.ToString())
 
ListBox1.Items.Add("MonitorCount : " + SystemInformation.MonitorCount.ToString())
 
ListBox1.Items.Add("MonitorsSameDisplayFormat : " + SystemInformation.MonitorsSameDisplayFormat.ToString())
 
ListBox1.Items.Add("ArrangeDirection: " + SystemInformation.ArrangeDirection.ToString())
 
ListBox1.Items.Add("MousePresent : " + SystemInformation.MousePresent.ToString())
 
ListBox1.Items.Add("MouseButtonsSwapped : " + SystemInformation.MouseButtonsSwapped.ToString())
 
ListBox1.Items.Add("UserInteractive : " + SystemInformation.UserInteractive.ToString())
 
ListBox1.Items.Add("VirtualScreen: " + SystemInformation.VirtualScreen.ToString())
 
ListBox1.Items.Add("-----------------------------")
 
End Sub