{"id":292,"date":"2009-04-08T15:36:00","date_gmt":"2009-04-08T12:36:00","guid":{"rendered":"http:\/\/www.notsayfam.com\/?p=292"},"modified":"2009-04-08T15:49:34","modified_gmt":"2009-04-08T12:49:34","slug":"visual-basic-net-ile-wmi-kullanarak-donanim-envanterimizi-almak","status":"publish","type":"post","link":"https:\/\/www.notsayfam.com\/?p=292","title":{"rendered":"Visual Basic :Net ile WMI kullanarak EtkiAlan\u0131\/Yerel Donan\u0131m envanterimizi almak"},"content":{"rendered":"<p>Donan\u0131m takip yaz\u0131l\u0131m\u0131 yazarken aralarda kalm\u0131\u015f olan bilgisayar donan\u0131mlar\u0131n\u0131n al\u0131nmas\u0131 i\u015flemini bo\u015f vaktimde tamamlad\u0131m.<\/p>\n<p>Domain \u00fczerinde ba\u011flant\u0131 bilgileri girilerek uzaktaki domain \u00fcyesinin envanteri al\u0131nabilir.<\/p>\n<p>Program\u0131n yapabildikleri.<\/p>\n<p>\u0130\u015flemci , fiziksel i\u015flemci , mant\u0131ksal i\u015flemci adedi<br \/>\nen fazla ram deste\u011fi, anakartta ka\u00e7 slot oldu\u011fu, hangi slotlarda hangi mhz ramlerin yer ald\u0131\u011f\u0131<br \/>\nFiziksel diskler, partition yap\u0131lar\u0131, mant\u0131ksal diskler<br \/>\nCd S\u00fcr\u00fcc\u00fcler, tipleri<br \/>\nekran kartlar\u0131 , ramleri<br \/>\nYaz\u0131c\u0131lar, yaz\u0131c\u0131lar\u0131n ba\u011fl\u0131 oldu\u011fu port,destekledikleri ka\u011f\u0131t boyutlar\u0131<br \/>\nPayla\u015f\u0131mlar, payla\u015f\u0131mlar\u0131n yollar\u0131, payla\u015f\u0131m \u00e7e\u015fitleri<br \/>\nA\u011f : DNS,IP,Gateway bilgileri<br \/>\nSeri, parallel port say\u0131s\u0131<br \/>\nBilgisayar\u0131n \u00fczerindeki slotlar ve t\u00fcmle\u015fik kartlar<br \/>\n\u00a0<\/p>\n<p>\u00a0<\/p>\n<p>E\u011fer uzaktaki bilgisayar\u0131n konfig\u00fcrasyonunu al\u0131rken a\u015fa\u011f\u0131daki hatay\u0131 al\u0131rsan\u0131z<\/p>\n<p><code>The RPC server is unavailable. (Exception from HRESULT: 0x800706BA)<\/code><\/p>\n<p>Client \u00fczerindeki firewall a\u00e7\u0131k durumda olmas\u0131ndan kaynaklan\u0131yor. Client \u00fczerinde a\u015fa\u011f\u0131daki komutlar\u0131 \u00e7al\u0131\u015ft\u0131rarak ba\u015far\u0131l\u0131 bir \u015fekilde konfig\u00fcrasyonu alabiliriz.<\/p>\n<p><code>netsh.exe firewall set service type=REMOTEADMIN mode=ENABLE scope=ALL<br \/>\nnetsh firewall add portopening protocol=tcp port=135 name=<em>DCOM_TCP135<\/em><\/code><\/p>\n<p>program kodlar\u0131 yaz\u0131n\u0131n devam\u0131nda<\/p>\n<p>\u00a0<!--more--><\/p>\n<p>Form \u00fczerinde \u00a01 adet Richtext box (name: richtextbox1), 2 adet buton buluyonur.<\/p>\n<p>1. butonda envanter fonksiyon , sub larla richtextbox \u00fczerine aktar\u0131l\u0131yor.<br \/>\n2 butonda ise uzaktaki bir bilgisayar\u0131n i\u015fletim sistemini \u00f6\u011freniyoruz.<br \/>\n<code>Imports System.Management<br \/>\nImports System<br \/>\nImports System.Management.Instrumentation<br \/>\nPublic Class Form1<br \/>\nPrivate Shared Sub bilgisayar()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_ComputerSystem\")<br \/>\nbilgiler = objearama.Get()<br \/>\nDim rol As String = \"\"<br \/>\nDim sistem As String = \"\"<br \/>\nFor Each objeler In bilgiler<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Computer:\" &amp; objeler(\"Caption\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Fiziksel i\u015flemci:\" &amp; objeler(\"NumberOfProcessors\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Mant\u0131ksal \u0130\u015flemci:\" &amp; objeler(\"NumberOfLogicalProcessors\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Domain: \" &amp; objeler(\"Domain\"))<br \/>\nIf objeler(\"PartOfDomain\") Then<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Etki Alan\u0131 \u00dcyeli\u011fi:\" &amp; \"\u00fcye\")<br \/>\nElse<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Etki Alan\u0131 \u00dcyeli\u011fi:\" &amp; \"\u00fcyede\u011fil\")<br \/>\nEnd If<br \/>\nSelect Case objeler(\"DomainRole\")<br \/>\nCase 0<br \/>\nrol = \"Standalone Workstation\"<br \/>\nCase 1<br \/>\nrol = \"Member Workstation\"<br \/>\nCase 1<br \/>\nrol = \"Standalone Server\"<br \/>\nCase 3<br \/>\nrol = \"Member Server\"<br \/>\nCase 4<br \/>\nrol = \"Backup Domain Controller\"<br \/>\nCase 5<br \/>\nrol = \"Primary Domain Controller\"<br \/>\nEnd Select<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"A\u011fdaki Rol\u00fc:\" &amp; rol)<br \/>\nTry<br \/>\nSelect Case objeler(\"PCSystemType\")<br \/>\nCase 1<br \/>\nsistem = \"Masa\u00fcst\u00fc\"<br \/>\nCase 2<br \/>\nsistem = \"Laptop\"<br \/>\nCase 3<br \/>\nsistem = \"\u0130\u015f \u0130stasyonu\"<br \/>\nCase 4<br \/>\nsistem = \"Sunucu\"<br \/>\nCase Else<br \/>\nsistem = \"Bulunamad\u0131\"<br \/>\nEnd Select<br \/>\nCatch ex As Exception<\/code><\/p>\n<p><code>End Try<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Sistem:\" &amp; sistem)<br \/>\nDim roller As String = \"\"<br \/>\nFor Each rolee As String In objeler(\"roles\")<br \/>\nroller += rolee &amp; \",\"<br \/>\nNext<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Rolleri:\" &amp; roller)<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Toplam Ram:\" &amp; objeler(\"TotalPhysicalMemory\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Kullan\u0131c\u0131ad\u0131:\" &amp; objeler(\"UserName\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"\u00c7al\u0131\u015fma Grubu:\" &amp; objeler(\"Workgroup\"))<br \/>\nNext<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_OperatingSystem\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"\u0130\u015fletim Sistemi :\" &amp; objeler(\"Caption\"))<br \/>\nNext<\/code><\/p>\n<p><code>End Sub<\/code><\/p>\n<p><code>Public Shared Sub baseboard()<\/code><\/p>\n<p><code>Dim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_BaseBoard\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Anakart:\" &amp; objeler(\"Product\"))<br \/>\nNext<\/code><\/p>\n<p><code> <\/code><\/p>\n<p><code>End Sub<\/code><\/p>\n<p><code>Public Function Cpu() As String<br \/>\nDim isim As String = \"\"<br \/>\nDim CpuSinif As New ManagementClass(\"Win32_Processor\")<br \/>\nDim CpuKoleksiyon As ManagementObjectCollection = CpuSinif.GetInstances<br \/>\nDim CpuNesne As ManagementObject<br \/>\nFor Each CpuNesne In CpuKoleksiyon<br \/>\nisim = CStr(CpuNesne(\"Name\"))<br \/>\nNext CpuNesne<\/code><\/p>\n<p><code>Return isim<br \/>\nEnd Function<\/code><\/p>\n<p><code>Public Shared Sub vga()<br \/>\nDim vganSinif As New Management.ManagementClass(\"Win32_VideoController\")<br \/>\nDim vganKoleksiyon As Management.ManagementObjectCollection = vganSinif.GetInstances<br \/>\nDim vganNesne As Management.ManagementObject<br \/>\nFor Each vganNesne In vganKoleksiyon<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; vganNesne(\"Name\") &amp; vbTab &amp; \"RAM: \" &amp; vganNesne(\"AdapterRAM\") \/ 1024 \/ 1024)<br \/>\nNext vganNesne<br \/>\nEnd Sub<\/code><\/p>\n<p><code>Public Shared Sub fizikseldisk()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_DiskDrive\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Ba\u011flant\u0131:\" &amp; objeler(\"InterfaceType\").ToString &amp; vbTab &amp; _<br \/>\n\"Modeli\" &amp; objeler(\"Model\").ToString &amp; vbTab &amp; \"Boyutu\" &amp; _<br \/>\nFormat(objeler(\"Size\") \/ 1024 \/ 1024 \/ 1024, \"#.##\").ToString &amp; \" GB\" &amp; _<br \/>\nvbTab &amp; \"S\u00fcr\u00fcc\u00fc ID:\" &amp; objeler(\"DeviceID\").ToString)<br \/>\nTry<br \/>\nIf objeler(\"SerialNumber\") IsNot Nothing Then<br \/>\nForm1.RichTextBox1.AppendText(\"SeriNo:\" &amp; objeler(\"SerialNumber\"))<br \/>\nEnd If<br \/>\nCatch ex As Exception<br \/>\n'  MsgBox(ex.Message)<br \/>\nEnd Try<br \/>\nNext<br \/>\nEnd Sub<\/code><\/p>\n<p><code>Private Shared Sub partitionyapisi()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_DiskPartition\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Disk,Part\" &amp; (Replace(Replace(objeler(\"DeviceID\"), \"Disk #\", \"\"), _<br \/>\n\" Partition #\", \"\")) &amp; vbTab &amp; _<br \/>\nFormat(objeler(\"Size\") \/ 1024 \/ 1024 \/ 1024, \"#.##\"))<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub DiskBoyutlari()<br \/>\nDim diskClass As New System.Management.ManagementClass(\"Win32_LogicalDisk\")<br \/>\nDim disks As System.Management.ManagementObjectCollection = diskClass.GetInstances()<br \/>\nDim disk As System.Management.ManagementObject<br \/>\nDim isim As String<br \/>\nDim pnpDeviceIDsi As String<br \/>\nDim boyut As System.UInt64 = 0<br \/>\nFor Each disk In disks<br \/>\npnpDeviceIDsi = CType(disk(\"MediaType\"), UInt32).ToString<br \/>\nisim = CStr(disk(\"Name\"))<br \/>\nboyut = disk(\"Size\")<br \/>\nIf boyut &gt; 0 And (pnpDeviceIDsi = \"12\" Or pnpDeviceIDsi = \"11\" Or pnpDeviceIDsi = \"0\") Then<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; isim &amp; \", Toplam Alan:\" &amp; _<br \/>\nFormat(disk(\"Size\") \/ 1024 \/ 1024 \/ 1024, \"#.##\") &amp; \"GB , Bo\u015f Alan:\" &amp; _<br \/>\nFormat(disk(\"FreeSpace\") \/ 1024 \/ 1024 \/ 1024, \"#.##\") &amp; \" GB\" &amp; vbTab _<br \/>\n&amp; \"DosyaTipi:\" &amp; disk(\"FileSystem\"))<br \/>\nEnd If<br \/>\nNext disk<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub cdsurucu()<br \/>\nDim cdromSinif As New Management.ManagementClass(\"Win32_CDROMDrive\")<br \/>\nDim cdromKoleksiyon As Management.ManagementObjectCollection = cdromSinif.GetInstances<br \/>\nDim cdromNesne As Management.ManagementObject<br \/>\nFor Each cdromNesne In cdromKoleksiyon<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; cdromNesne(\"Drive\") &amp; \"     \" &amp; cdromNesne(\"MediaType\") &amp; \"     \" &amp; cdromNesne(\"Name\"))<br \/>\nNext cdromNesne<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub printers()<br \/>\nDim printerSinif As New Management.ManagementClass(\"Win32_Printer\")<br \/>\nDim printerKoleksiyon As Management.ManagementObjectCollection = printerSinif.GetInstances<br \/>\nDim printerNesne As Management.ManagementObject<br \/>\nDim paylasim As String = \"\"<br \/>\nDim sayfaboyutlari As String = \"\"<br \/>\nFor Each printerNesne In printerKoleksiyon<br \/>\nFor Each sayfa As String In printerNesne(\"PrinterPaperNames\")<br \/>\nsayfaboyutlari += sayfa &amp; \",\"<br \/>\nNext<br \/>\nIf printerNesne(\"Shared\") Then<br \/>\npaylasim = \"Payla\u015ft\u0131r\u0131lm\u0131\u015f. Payla\u015f\u0131m ad\u0131= \" &amp; printerNesne(\"ShareName\")<br \/>\nElse<br \/>\npaylasim = \"Payla\u015ft\u0131r\u0131lmam\u0131\u015f\"<br \/>\nEnd If<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"YAZICI:\" &amp; vbTab &amp; printerNesne(\"Name\") &amp; vbCrLf &amp; \"Ba\u011fl\u0131 Oldu\u011fu Port:\" _<br \/>\n&amp; vbTab &amp; printerNesne(\"PortName\") &amp; vbCrLf &amp; paylasim &amp; vbCrLf &amp; \"Destekledi\u011fi Ka\u011f\u0131tlar:\" &amp; _<br \/>\nvbTab &amp; sayfaboyutlari)<br \/>\nNext printerNesne<br \/>\nEnd Sub<\/p>\n<p>Public Function SeriPortAdet() As Integer<br \/>\nDim seriPortSinif As New Management.ManagementClass(\"Win32_SerialPort\")<br \/>\nDim seriPortKoleksiyon As Management.ManagementObjectCollection = seriPortSinif.GetInstances<br \/>\nDim seriPortNesne As Management.ManagementObject<br \/>\nDim portSayisi As Integer = 0<br \/>\nFor Each seriPortNesne In seriPortKoleksiyon<br \/>\nportSayisi += 1<br \/>\nNext seriPortNesne<br \/>\nReturn portSayisi<br \/>\nEnd Function<\/p>\n<p>Public Function parelelPortAdet() As Integer<br \/>\nDim seriPortSinif As New Management.ManagementClass(\"Win32_ParallelPort\")<br \/>\nDim seriPortKoleksiyon As Management.ManagementObjectCollection = seriPortSinif.GetInstances<br \/>\nDim seriPortNesne As Management.ManagementObject<br \/>\nDim portSayisi As Integer = 0<br \/>\nFor Each seriPortNesne In seriPortKoleksiyon<br \/>\nportSayisi += 1<br \/>\nNext seriPortNesne<br \/>\nReturn portSayisi<br \/>\nEnd Function<\/p>\n<p>Public Shared Sub ram_max()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_PhysicalMemoryArray\")<br \/>\nbilgiler = objearama.Get()<br \/>\nDim s As String = \"\"<br \/>\nFor Each objeler In bilgiler<br \/>\ns = s &amp; \"Slot Say\u0131s\u0131: \" &amp; objeler(\"MemoryDevices\") &amp; vbTab<br \/>\ns = s &amp; \"Maximum: \" &amp; objeler(\"MaxCapacity\") \/ 1024 &amp; \" MB \" &amp; vbCrLf<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; s)<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub ram()<br \/>\nDim bellektSinif As New Management.ManagementClass(\"Win32_PhysicalMemory\")<br \/>\nDim bellektKoleksiyon As Management.ManagementObjectCollection = bellektSinif.GetInstances<br \/>\nDim bellektNesne As Management.ManagementObject<br \/>\nDim tip As System.UInt64<br \/>\nDim tipdetay As String = \"\"<br \/>\nFor Each bellektNesne In bellektKoleksiyon<br \/>\ntip = bellektNesne(\"MemoryType\")<br \/>\nSelect Case tip<br \/>\nCase 2<br \/>\ntipdetay = \"DRAM\"<br \/>\nCase 21<br \/>\ntipdetay = \"DDR2\"<br \/>\nCase 20<br \/>\ntipdetay = \"DDR\"<br \/>\nCase 17<br \/>\ntipdetay = \"SDRAM\"<br \/>\nEnd Select<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Konumu:\" &amp; bellektNesne(\"DeviceLocator\") &amp; vbTab &amp; \"Boyut \" &amp; _<br \/>\nbellektNesne(\"Capacity\") \/ 1024 \/ 1024 &amp; vbTab &amp; \"H\u0131z\u0131:\" &amp; bellektNesne(\"Speed\") &amp; _<br \/>\nvbTab &amp; \"Tipi :\" &amp; tip &amp; vbTab &amp; \"Tip Detay\u0131=\" &amp; tipdetay)<\/p>\n<p>Next bellektNesne<\/p>\n<p>End Sub<\/p>\n<p>Private Shared Sub network()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_NetworkAdapterConfiguration\")<br \/>\nbilgiler = objearama.Get()<\/p>\n<p>For Each objeler In bilgiler<br \/>\nIf objeler(\"MacAddress\") = \"\" Then<br \/>\nGoTo sonraki<br \/>\nEnd If<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Description : \" &amp; objeler(\"Description\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"MacAddress : \" &amp; objeler(\"MacAddress\"))<br \/>\nDim dnssunucular As String() = TryCast(objeler(\"DNSServerSearchOrder\"), String())<br \/>\nDim IPAddresses As String() = TryCast(objeler(\"IPAddress\"), String())<br \/>\nDim IPSubnets As String() = TryCast(objeler(\"IPSubnet\"), String())<br \/>\nDim gateway As String() = TryCast(objeler(\"DefaultIPGateway\"), String())<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; (\"DNS HostName\" &amp; \" : \") + objeler(\"DNSHostName\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; (\"DNS Domain\" &amp; \" : \") + objeler(\"DNSDomain\"))<br \/>\nIf objeler(\"DHCPEnabled\") Then<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Otomatik IP. DHCP Sunucu=\" &amp; objeler(\"DHCPServer\"))<br \/>\nElse<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Ip Elle Yap\u0131land\u0131r\u0131lm\u0131\u015f.\")<br \/>\nEnd If<br \/>\nIf dnssunucular IsNot Nothing Then<br \/>\nFor Each dnssunucu As String In dnssunucular<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; (\"DNS Sunucu\" &amp; \" : \") + dnssunucu)<br \/>\nNext<br \/>\nEnd If<br \/>\nIf IPAddresses IsNot Nothing Then<br \/>\nFor Each IPAddress As String In IPAddresses<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; (\"IP Adres\" &amp; \" : \") + IPAddress)<br \/>\nNext<br \/>\nEnd If<br \/>\nIf IPSubnets IsNot Nothing Then<br \/>\nFor Each IPSubnet As String In IPSubnets<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; (\"IP Subnet\" &amp; \" : \") + IPSubnet)<br \/>\nNext<br \/>\nEnd If<br \/>\nIf gateway IsNot Nothing Then<br \/>\nFor Each DefaultIPGateway As String In gateway<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; (\"Gateway\" &amp; \" : \") + DefaultIPGateway)<br \/>\nNext<br \/>\nEnd If<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\")<br \/>\nsonraki:<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub ses()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_SoundDevice\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Ses Kart\u0131:\" &amp; objeler(\"Description\"))<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub tumlesik()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nDim aygittipi As System.UInt32<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_OnBoardDevice\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\naygittipi = objeler(\"DeviceType\")<br \/>\nSelect Case aygittipi<br \/>\nCase 1<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Di\u011fer\")<br \/>\nCase 3<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"VGA\")<br \/>\nCase 4<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"SCSI Controller\")<br \/>\nCase 5<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Ethernet\")<br \/>\nCase 7<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Ses\")<br \/>\nEnd Select<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Model:\" &amp; objeler(\"Description\"))<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\")<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub slotlar()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\n' Dim aygittipi As System.UInt16<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_SystemSlot\")<br \/>\nbilgiler = objearama.Get()<br \/>\nDim tipdetay As String = \"\"<br \/>\nFor Each objeler In bilgiler<br \/>\nDim tip As System.UInt16() = TryCast(objeler(\"ConnectorType\"), System.UInt16())<br \/>\nFor Each ConnectorType As String In tip<br \/>\nSelect Case ConnectorType<br \/>\nCase 43<br \/>\ntipdetay = \"PCI\"<br \/>\nCase 44<br \/>\ntipdetay = \"ISA\"<br \/>\nCase 81<br \/>\ntipdetay = \"AGP2X\"<br \/>\nCase 82<br \/>\ntipdetay = \"AGP4X\"<br \/>\nCase 123<br \/>\ntipdetay = \"AGP8X\"<br \/>\nCase 124<br \/>\ntipdetay = \"PCI-E\"<br \/>\nEnd Select<br \/>\nNext<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Slot:\" &amp; objeler(\"SlotDesignation\") &amp; vbTab &amp; \"Detay:\" &amp; tipdetay)<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Public Shared Sub paylasimlar()<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(\"SELECT * FROM Win32_Share\")<br \/>\nbilgiler = objearama.Get()<br \/>\nDim tip As System.UInt32<br \/>\nDim tipdetay As String = \"\"<br \/>\nFor Each objeler In bilgiler<br \/>\ntip = objeler(\"Type\")<\/p>\n<p>Select Case objeler(\"Type\")<br \/>\nCase 0<br \/>\ntipdetay = \"Klas\u00f6r Payla\u015f\u0131m\u0131\"<br \/>\nCase 1<br \/>\ntipdetay = \"Yaz\u0131c\u0131 Payla\u015f\u0131m\u0131\"<br \/>\nCase 2147483648<br \/>\ntipdetay = \"Y\u00f6netimsel S\u00fcr\u00fcc\u00fc P.\"<br \/>\nCase 2147483651<br \/>\ntipdetay = \"Y\u00f6netimsel Payla\u015f\u0131m\"<br \/>\nEnd Select<br \/>\nForm1.RichTextBox1.AppendText(vbCrLf &amp; \"Payla\u015f\u0131m Ad\u0131:\" &amp; vbTab &amp; objeler(\"Name\") &amp; vbTab &amp; _<br \/>\n\"Payla\u015f\u0131m Yolu:\" &amp; objeler(\"Path\") &amp; vbCrLf &amp; \"Tip:\" &amp; tipdetay)<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"**************** B \u0130 L G \u0130 S A Y A R**********************\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nCall bilgisayar()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"****************A N A K A R T **********************\")<br \/>\nCall baseboard()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"****************\u0130 \u015e L E M C \u0130 **********************\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\u0130\u015flemci:\" &amp; Cpu())<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"*********E K R A N K A R T I*****************\")<br \/>\nCall vga()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"**********F \u0130 Z \u0130 K S E L D \u0130 S K***********\")<br \/>\nCall fizikseldisk()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"**********P A R T I T I O N Y A P I S I***********\")<br \/>\nCall partitionyapisi()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"*******S A B \u0130 T S \u00dc R \u00dc C \u00dc L E R *******\")<br \/>\nCall DiskBoyutlari()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"***********C D S \u00dc R \u00dc C \u00dc L E R *******************\")<br \/>\nCall cdsurucu()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"************Y A Z I C I L A R******************\")<br \/>\nCall printers()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"*********S E R \u0130 P O R T S A Y I S I*****************\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"SeriPortSay\u0131s\u0131:\" &amp; SeriPortAdet())<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"*********P A R A L E L P O R T S A Y I S I*****************\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"SeriPortSay\u0131s\u0131:\" &amp; parelelPortAdet())<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"************R A M B \u0130 L G \u0130 L E R \u0130*****************\")<br \/>\nCall ram_max()<br \/>\nCall ram()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"***********A \u011e B \u0130 L G \u0130 L E R \u0130***************\")<br \/>\nCall network()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"**********S E S K A R T I *********\")<br \/>\nCall ses()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"*********T \u00dc M L E \u015e \u0130 K K A R T L A R*******************\")<br \/>\nCall tumlesik()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"**********S L O T L A R***********\")<br \/>\nCall slotlar()<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"**************** P A Y L A \u015e I M L A R**********************\")<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\")<br \/>\nCall paylasimlar()<br \/>\nEnd Sub<\/p>\n<p>Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br \/>\nDim BaglantiAyarlarim As New System.Management.ConnectionOptions<br \/>\nWith BaglantiAyarlarim<br \/>\n'.Username = \"192.168.2.51\\notsayfam\"<br \/>\n'.Password = \"123\"<br \/>\n.Impersonation = System.Management.ImpersonationLevel.Impersonate<br \/>\n'.Impersonation = True<br \/>\n.Authentication = AuthenticationLevel.Packet<br \/>\n'.EnablePrivileges = True<br \/>\nEnd With<br \/>\nDim baglantim As System.Management.ManagementScope<br \/>\nDim BaglanilacakSunucu As String = \"192.168.2.51\"<br \/>\n'Sadece localde \u00e7al\u0131\u015facaksa ba\u011flan\u0131lacak sunucuya . yazabilirsiniz<br \/>\nbaglantim = New System.Management.ManagementScope(\"\\\\\" &amp; _<br \/>\nBaglanilacakSunucu &amp; \"\\root\\cimv2\", BaglantiAyarlarim)<br \/>\nTry<br \/>\nbaglantim.Connect()<br \/>\nCatch ex As Exception<br \/>\nMsgBox(ex.Message)<br \/>\nEnd Try<br \/>\nIf baglantim.IsConnected = False Then<br \/>\nMsgBox(\"Sunucuya ba\u011flan\u0131lamad\u0131\")<br \/>\nExit Sub<br \/>\nEnd If<br \/>\nDim objearama As System.Management.ManagementObjectSearcher<br \/>\nDim bilgiler As System.Management.ManagementObjectCollection<br \/>\nDim objeler As System.Management.ManagementObject<br \/>\nobjearama = New System.Management.ManagementObjectSearcher(baglantim.Path.ToString, \"SELECT * FROM Win32_OperatingSystem\")<br \/>\nbilgiler = objearama.Get()<br \/>\nFor Each objeler In bilgiler<br \/>\nRichTextBox1.AppendText(vbCrLf &amp; \"\u0130\u015fletim Sistemi :\" &amp; objeler(\"Caption\"))<br \/>\nNext<\/p>\n<p><\/code><\/p>\n<p>\u00a0<\/p>\n<p>\u00a0<\/p>\n<p>\u00a0<\/p>\n<p>\u00a0<\/p>\n<p><code> End Sub<br \/>\nEnd Class<\/code><\/p>\n<p>Domaine \u00fcye olmayan ama bilgisayar\u0131n local kullan\u0131c\u0131 ad\u0131 ve \u015fifresini bildi\u011fimiz bir bilgisayar\u0131n envanterini alma \u00f6zelli\u011fini eklemek biraz zaman alacak. oturum a\u00e7ma ba\u015far\u0131s\u0131z oluyor &#8221; (Exception from HRESULT: 0x80070005 (E_ACCESSDENIED)) &#8221; hatas\u0131 d\u00f6n\u00fcyor.<br \/>\nb\u00f6yle bir\u015fey yapmak istiyorsan\u0131z hata \u00e7\u00f6z\u00fcmleri i\u00e7in<br \/>\n<a href=\"http:\/\/msdn.microsoft.com\/en-us\/library\/aa389286(VS.85).aspx\" target=\"_blank\">Connecting Through Windows Firewall<\/a>\u00a0<a href=\"http:\/\/msdn.microsoft.com\/en-us\/library\/aa389286(VS.85).aspx\"><br \/>\n<\/a><a href=\"http:\/\/msdn.microsoft.com\/en-us\/library\/aa393266(VS.85).aspx\" target=\"_blank\">Securing a Remote WMI Connection<\/a>\u00a0linklerinde detayl\u0131 bilgi mevcut.<br \/>\n<strong>Gereksinimler:<\/strong> \u00a0 \u00a0 .Net Framework 2.0<br \/>\n<strong> Kaynaklar:<\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/strong><\/p>\n<p><strong><\/p>\n<ol>\n<li><span style=\"font-weight: normal;\">MSDN \u00a0 \u00a0\u00a0<a href=\"http:\/\/msdn.microsoft.com\/en-us\/library\/aa394084(VS.85).aspx\" target=\"_blank\">http:\/\/msdn.microsoft.com\/en-us\/library\/aa394084(VS.85).aspx<\/a><\/span><\/li>\n<li><span style=\"font-weight: normal;\">Yazgelistir.com \u00a0 \u00a0 \u00a0<a href=\"http:\/\/www.yazgelistir.com\/Makaleler\/1000000916.ygpx\" target=\"_blank\">http:\/\/www.yazgelistir.com\/Makaleler\/1000000916.ygpx<\/a><\/span><\/li>\n<\/ol>\n<p><\/strong><br \/>\n<a href=\"http:\/\/www.notsayfam.com\/wp-content\/uploads\/2009\/04\/wmi.zip\">VS2008 Proje dosyas\u0131n\u0131 indirin<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Donan\u0131m takip yaz\u0131l\u0131m\u0131 yazarken aralarda kalm\u0131\u015f olan bilgisayar donan\u0131mlar\u0131n\u0131n al\u0131nmas\u0131 i\u015flemini bo\u015f vaktimde tamamlad\u0131m. Domain \u00fczerinde ba\u011flant\u0131 bilgileri girilerek uzaktaki domain \u00fcyesinin envanteri al\u0131nabilir. Program\u0131n yapabildikleri. \u0130\u015flemci , fiziksel i\u015flemci , mant\u0131ksal i\u015flemci adedi en fazla ram deste\u011fi, anakartta ka\u00e7 slot oldu\u011fu, hangi slotlarda hangi mhz ramlerin yer ald\u0131\u011f\u0131 Fiziksel diskler, partition yap\u0131lar\u0131, mant\u0131ksal diskler &hellip; <a href=\"https:\/\/www.notsayfam.com\/?p=292\" class=\"more-link\">Okumaya devam et<span class=\"screen-reader-text\"> &#8220;Visual Basic :Net ile WMI kullanarak EtkiAlan\u0131\/Yerel Donan\u0131m envanterimizi almak&#8221;<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,13],"tags":[79,80,77,78,81],"class_list":["post-292","post","type-post","status-publish","format-standard","hentry","category-programlama","category-vb-net","tag-etki-alanindaki-bilgisayarlarin-donanim-bilgilerini-toplamak","tag-uzaktaki-bilgisayarin-donanim-bilgilerini-almak","tag-vbnet-wmi","tag-visual-basic-envanter","tag-visual-basicnet-wmi-envanter"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/292","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=292"}],"version-history":[{"count":7,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/292\/revisions"}],"predecessor-version":[{"id":296,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/292\/revisions\/296"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=292"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=292"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=292"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}