AltınSoft Makale Arşivi

Anasayfa | Toplu SMS | Video | Web Hosting | Makale Ara | Anketler | Sitene Ekle | RSS Kaynağı

Bilgisayar Bilgilerini almak

Bilgisayar Bilgilerini Textboxa Yazdırmak.

Kategori	: Asp.NET
Yorum Sayısı	: 0
Okunma	: 126
Tarih	: 22 Eylül 2009 12:30

Bilgisayar Bilgilerini Textboxa Yazdırmak.

İlk Olarak İşletim Sistemi Bilgilerinin Alınması:

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


Bios Bilgilerinin Alınması:

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

İşlemci Bilgilerinin Alınması:

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

Pc Genel Bilgiler:

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

Bir çok yerde işinize yarayacağını düşünüyorum ;)

54321

© 2004-2009 Tüm Hakları Saklıdır
RSS Kaynağı

AltınSoft Bilişim Teknolojileri

Altyapı: MyDesign Haber Sistemi