Vb.net ile bilgisayarınızın işletim sistemi , bios ve çeşitli bilgilerini kolay bir şekilde görüntüyebilirsiniz.

İşlemci Bilgilerini Görüntülemek :

Dim query As New SelectQuery("Win32_processor")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Processor: " & info("caption").ToString() & CRLF
Next

Bios Bilgilerini Görüntülemek :

Dim query As New SelectQuery("Win32_bios")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Bios version: " & info("version").ToString() & CRLF
Next

İşletim Sistemi Bilgilerini Görüntülemek :

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Name: " & info("name").ToString() & CRLF 'sistemin Adı
Textbox1.Text += "Version: " & info("version").ToString() & CRLF ' versiyonu
Textbox1.Text += "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Computer name: " & info("csname").ToString() & CRLF ' bilgisayar adı
Textbox1.Text += "Windows Directory: " & _
info("windowsdirectory").ToString() & CRLF ' dizini
Next

Genel Bilgisayar Bilgilerini Görüntülemek :

Dim search As New ManagementObjectSearcher("SELECT * FROM
Win32_ComputerSystem")
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Model: " & info("model").ToString() & CRLF
Textbox1.Text += "System Type: " & info("systemtype").ToString() & CRLF
Textbox1.Text += "Total Physical Memory: " & _
info("totalphysicalmemory").ToString() & CRLF
Next

Bu bilgileri görünülemek çoğu yerde işinize yarayabilir. Kodları butonlar içerisine yerleştirebilirsiniz.Görüntülemek için TEXTBOX kullanılmıştır.Daha gelişmiş birşeyler yapmak istiyorsanız labelleri kullanabilirsiniz...