Vb.net Bilgisayar Bilgilerini Almak

F

Frtn

Yeni üye
17 Ağu 2010
7
0
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 ;)


Kodların en üstüne imports system.collection ve imports microsoft.win32 yazmayı unuymayın
 
K

keskin19

Yeni üye
22 Tem 2009
3
0
vb 2008 de calısıyorum. importlarıda yazdım. ManagementObject ve ManagementObjectSearcher i tanımıyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.