{"id":323,"date":"2009-05-04T12:39:15","date_gmt":"2009-05-04T09:39:15","guid":{"rendered":"http:\/\/www.notsayfam.com\/?p=323"},"modified":"2010-06-19T23:16:34","modified_gmt":"2010-06-19T20:16:34","slug":"vbscript-ve-wmi-kullanarak-envanter-cikaralim","status":"publish","type":"post","link":"https:\/\/www.notsayfam.com\/?p=323","title":{"rendered":"VBScript ve WMI kullanarak envanter \u00e7\u0131karal\u0131m."},"content":{"rendered":"<p>Scriptimiz \u00e7al\u0131\u015ft\u0131r\u0131ld\u0131\u011f\u0131 bilgisayar\u0131n envanterini \u00e7\u0131kartarak, payla\u015f\u0131ma koydu\u011fumuz mdb dosyas\u0131 \u00fczerine kay\u0131t\u0131 yaz\u0131yor. Veritaban\u0131na yazd\u0131ktan sonra C: dizini alt\u0131na env.txt isimli dosya olu\u015fturuyor. Ayn\u0131 bilgisayarda tekrar \u00e7al\u0131\u015fmamas\u0131 i\u00e7in ise env.txt dosyas\u0131n\u0131n varl\u0131\u011f\u0131n\u0131 kontrol ediyor dosya varsa e\u011fer envanteri \u00e7\u0131kartmadan \u00e7\u0131k\u0131yor.<\/p>\n<p>Active Directory \u00fczerinden logon script olarak uygulay\u0131p envanter bilgisi toplayabiliriz.<\/p>\n<p>Envanter i\u00e7eri\u011fi,<br \/>\nNetwork kartlar\u0131 ve ip,dns,gateway,subnetleri.<br \/>\ncdrom, fiziksel disk s\u00fcr\u00fcc\u00fcler ve partition yapilari, bilgisayara tak\u0131l\u0131 olan ramler vb<\/p>\n<p><code>'==========================================================================<br \/>\n'<br \/>\n' notsayfam.com<br \/>\n'<br \/>\n'==========================================================================<\/code><br \/>\n<code><br \/>\nOption Explicit<br \/>\ndim envanter<\/code><\/p>\n<p><code>envanter = \"c:\\env.txt\"<br \/>\nConst wbemFlagReturnImmediately = &amp;h10<br \/>\nConst wbemFlagForwardOnly = &amp;h20<\/code><\/p>\n<p><code>Dim iCursorType\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 ' The Cursor Type for the Recordset<br \/>\nDim iLockType\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 ' The Lock Type for the Recordset<\/code><\/p>\n<p><code>Dim fso<br \/>\nSet fso = WScript.CreateObject(\"Scripting.FileSystemObject\")<\/code><\/p>\n<p><code>' c:\\env.txt dosyasi mevcut degilse envanter cikarilmasini sagliyoruz<br \/>\nif not fso.FileExists(envanter) then<br \/>\n<\/code><br \/>\n<code>Dim output<br \/>\nDim wmiService<br \/>\nDim bilgiler<br \/>\n<\/code><br \/>\n<code>Dim hostname<br \/>\nDim islemci<br \/>\nDim islemcifiziksel<br \/>\nDim islemcicekirdek<br \/>\n<\/code><\/p>\n<p><!--more--><br \/>\n<code>Dim Bilgisayartipi<br \/>\nDim nicMAC<br \/>\n<\/code><br \/>\n<code>Dim ram,ramslotsayisi,rammax,rammhz,ramtipi,ramboyutu,ramslot<br \/>\nDim hdd,hddboyut,hddtip,hddid<br \/>\nDim cdromsurucu,cdromtipi,cdromadi<br \/>\nDim anakart<br \/>\nDim vga,vgaram<br \/>\nDim seriportsayisi,lptportsayisi<br \/>\n<\/code><br \/>\n<code>Dim uretici,model,biosversion,isletimsistemi,serino<\/code><\/p>\n<p><code>Call baglantiac<br \/>\nDim baglanti<br \/>\nDim verikaynagi<\/code><\/p>\n<p><code>Sub baglantiac<br \/>\nSet baglanti = CreateObject(\"ADODB.Connection\")<br \/>\nSet verikaynagi = CreateObject(\"ADODB.Recordset\")<br \/>\niCursorType\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 = 1<br \/>\niLockType\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 = 3<br \/>\nbaglanti.Provider = \"Microsoft.Jet.OLEDB.4.0\"<br \/>\n'VERi tabani baglanti yolu<br \/>\nbaglanti.Properties(\"Data Source\") = \"\\\\192.168.9.50\\test\\envanter.mdb\"<br \/>\nbaglanti.Open<br \/>\nEnd Sub<\/code><\/p>\n<p><code>Set wmiService = GetObject(\"winmgmts:\\\\.\\root\\CIMV2\")<br \/>\nhostname = \"\"<br \/>\nuretici = \"\"<br \/>\nmodel = \"\"<br \/>\nbiosversion = \"\"<br \/>\nisletimsistemi = \"\"<br \/>\nserino = \"\"<br \/>\nOn Error Resume Next<\/code><\/p>\n<p><code>'B\u0130OS B\u0130LG\u0130LER\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_BIOS\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nDim objeler<br \/>\nFor Each objeler In bilgiler<br \/>\nserino = objeler.serialNumber<br \/>\nbiosversion = objeler.SMBIOSBIOSVersion<br \/>\nNext<br \/>\n'GENEL B\u0130LG\u0130LER 2<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_ComputerSystem\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nFor Each objeler In bilgiler<br \/>\nhostname = objeler.Caption<br \/>\nuretici = objeler.Manufacturer<br \/>\nmodel = objeler.Model<br \/>\nislemcifiziksel = objeler.NumberOfProcessors<br \/>\nislemcicekirdek = objeler.NumberOfLogicalProcessors<br \/>\nbilgisayartipi = objeler.PCSystemType<br \/>\nNext<br \/>\nSelect Case bilgisayartipi<br \/>\nCase 1<br \/>\nbilgisayartipi = \"Masa\u00fcst\u00fc\"<br \/>\nCase 2<br \/>\nbilgisayartipi = \"Laptop\"<br \/>\nCase 3<br \/>\nbilgisayartipi = \"\u0130\u015f \u0130stasyonu\"<br \/>\nCase 4<br \/>\nbilgisayartipi = \"Sunucu\"<br \/>\nCase Else<br \/>\nbilgisayartipi = \"Bulunamad\u0131\"<br \/>\nEnd Select<br \/>\nwscript.exho bilgisayartipi<br \/>\n'\u0130\u015eLET\u0130M S\u0130STEM\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_OperatingSystem\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nFor Each objeler In bilgiler<br \/>\nisletimsistemi = objeler.Name<br \/>\nisletimsistemi = Split(isletimsistemi, \"|\")(0)<br \/>\nNext<\/code><\/p>\n<p><code>'TOPLAM RAM<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_ComputerSystem\", \"WQL\",wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nFor Each objeler In bilgiler<br \/>\nram = round (objeler.TotalPhysicalMemory \/ 1047000,0)<br \/>\nNext<br \/>\n'CPU<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_Processor\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nFor Each objeler In bilgiler<br \/>\nislemci = objeler.Name<br \/>\nNext<br \/>\n'VGA B\u0130LG\u0130LER\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_VideoController\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<\/code><\/p>\n<p><code>For Each objeler In bilgiler<br \/>\nvga = objeler.Name<br \/>\nvgaram = objeler.AdapterRAM<br \/>\nNext<\/code><\/p>\n<p><code>'SER\u0130 PORT SAYISI<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_SerialPort\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nseriportsayisi=0<br \/>\nFor Each objeler In bilgiler<br \/>\nseriportsayisi = seriportsayisi + 1<br \/>\nNext<br \/>\n'PARALEL PORT SAYISI<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_ParallelPort\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nlptportsayisi=0<br \/>\nFor Each objeler In bilgiler<br \/>\nlptportsayisi = lptportsayisi + 1<br \/>\nNext<\/code><\/p>\n<p><code>' RAM SLOT VE MAX\u0130MUM<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_PhysicalMemoryArray\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nFor Each objeler In bilgiler<br \/>\nramslotsayisi = objeler.MemoryDevices<br \/>\nrammax = Clng (objeler.MaxCapacity \/ 1000000)<br \/>\nNext<br \/>\n<\/code><br \/>\n<code>verikaynagi.CursorType = iCursorType<br \/>\nverikaynagi.LockType = iLockType<br \/>\nverikaynagi.Source = \"envanter\"<br \/>\nverikaynagi.ActiveConnection = baglanti<br \/>\nverikaynagi.Open<br \/>\nverikaynagi.AddNew<br \/>\nverikaynagi(\"hostname\") = hostname<br \/>\nverikaynagi(\"bilgisayartipi\") = bilgisayartipi<br \/>\nverikaynagi(\"serino\")= serino<br \/>\nverikaynagi(\"uretici\")=uretici<br \/>\nverikaynagi(\"model\")=model<br \/>\nverikaynagi(\"biosversion\")= biosversion<br \/>\nverikaynagi(\"os\")= isletimsistemi<br \/>\nverikaynagi(\"islemci\")= islemci<br \/>\nverikaynagi(\"islemcifiziksel\")= islemcifiziksel<br \/>\nverikaynagi(\"islemcicekirdek\")= islemcicekirdek<br \/>\nverikaynagi(\"ram\")= ram<br \/>\nverikaynagi(\"rammax\")= rammax<br \/>\nverikaynagi(\"ramslot\")= ramslot<br \/>\nverikaynagi(\"seriportsayisi\") = seriportsayisi<br \/>\nverikaynagi(\"lptportsayisi\") = lptportsayisi<br \/>\nverikaynagi.Update<br \/>\nverikaynagi.Close<\/code><\/p>\n<p><code>' A\u011e B\u0130LG\u0130LER\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_NetworkAdapterConfiguration\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nDim IPP,subnett,DNSS,gatewayy<br \/>\nverikaynagi.CursorType = iCursorType<br \/>\nverikaynagi.LockType = iLockType<br \/>\nverikaynagi.Source = \"network\"<br \/>\nverikaynagi.ActiveConnection = baglanti<\/code><\/p>\n<p><code>Dim ipler,dnsler,gatewayler,subnetler<br \/>\nverikaynagi.Open<br \/>\nFor Each objeler In bilgiler<br \/>\nnicMAC =\u00a0 objeler.MACAddress<br \/>\n' WScript.Echo nicMAC<br \/>\nif nicMAC &lt;&gt; \"\" then<br \/>\nIf nicMAC &lt;&gt; \"50:50:54:50:30:30\" Then<br \/>\nIf objeler.Description &lt;&gt; \"Packet Scheduler Miniport\"\u00a0 Then<br \/>\nIf objeler.Description &lt;&gt; \"Paket Zamanlay\u0131c\u0131s\u0131 Mini Ba\u011flant\u0131 Noktas\u0131\" Then<br \/>\nIf objeler.Description &lt;&gt; \"WAN Miniport (PPPOE)\" Then<br \/>\nIf objeler.Description &lt;&gt; \"1394 A\u011f Ba\u011fda\u015ft\u0131r\u0131c\u0131s\u0131\" Then<\/code><br \/>\n<code><br \/>\nverikaynagi.AddNew<br \/>\n'WScript.Echo objeler.Description<\/code><\/p>\n<p><code>For Each IPP In objeler.IPAddress<br \/>\nipler = ipler &amp; IPP &amp; \",\"<br \/>\nNext<br \/>\nFor Each DNSS In objeler.DNSServerSearchOrder<br \/>\ndnsler = dnsler\u00a0 &amp; DNSS\u00a0 &amp; \",\"<br \/>\nNext<br \/>\nFor Each Subnett In objeler.IPSubnet<br \/>\nsubnetler=subnetler &amp; Subnett &amp; \",\"<br \/>\nNext<br \/>\nFor Each gatewayy In objeler.DefaultIpGateway<br \/>\ngatewayler = gatewayler &amp; gatewayy &amp; \",\"<br \/>\nNext<\/code><br \/>\n<code><br \/>\nverikaynagi(\"hostname\") = hostname<br \/>\nverikaynagi(\"adi\") = objeler.Description<br \/>\nverikaynagi(\"mac\") = objeler.MACAddress<br \/>\nverikaynagi(\"dhcp\") = objeler.DHCPEnabled<br \/>\nverikaynagi(\"ip\") = ipler<br \/>\nverikaynagi(\"dns\") = dnsler<br \/>\nverikaynagi(\"subnet\") = subnetler<br \/>\nverikaynagi(\"gateway\") = gatewayler<br \/>\nverikaynagi.Update<\/code><\/p>\n<p><code>ipler=\"\"<br \/>\ndnsler=\"\"<br \/>\nsubnetler=\"\"<br \/>\ngatewayler=\"\"<br \/>\nEnd If<br \/>\nEnd If<br \/>\nEnd If<br \/>\nEnd If<br \/>\nEnd If<br \/>\nend if<br \/>\n<\/code><br \/>\n<code>Next<br \/>\nverikaynagi.Close<\/code><\/p>\n<p><code>'F\u0130Z\u0130KSEL D\u0130SK S\u00dcR\u00dcC\u00dcLER<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_DiskDrive\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nverikaynagi.CursorType = iCursorType<br \/>\nverikaynagi.LockType = iLockType<br \/>\nverikaynagi.Source = \"fizikseldisk\"<br \/>\nverikaynagi.ActiveConnection = baglanti<br \/>\nverikaynagi.Open<br \/>\nFor Each objeler In bilgiler<br \/>\nverikaynagi.AddNew<br \/>\nverikaynagi(\"hostname\") = hostname<br \/>\nverikaynagi(\"hddid\") = objeler.DeviceID<br \/>\nverikaynagi(\"hddadi\") = objeler.Model<br \/>\nverikaynagi(\"boyut\") = round(objeler.Size \/ 1000000000, 2)<br \/>\nverikaynagi(\"tipi\") = objeler.InterfaceType<br \/>\nverikaynagi.Update<br \/>\nNext<br \/>\nverikaynagi.close<br \/>\n'PART\u0130T\u0130ON B\u0130LG\u0130LER\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_DiskPartition\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nverikaynagi.CursorType = iCursorType<br \/>\nverikaynagi.LockType = iLockType<br \/>\nverikaynagi.Source = \"partition\"<br \/>\nverikaynagi.ActiveConnection = baglanti<br \/>\nverikaynagi.Open<br \/>\nFor Each objeler In bilgiler<br \/>\nverikaynagi.AddNew<br \/>\nverikaynagi(\"hostname\") = hostname<br \/>\nverikaynagi(\"diskpartition\") = objeler.DeviceID<br \/>\nverikaynagi(\"boyut\") = round(objeler.Size \/ 1000000000, 2)<br \/>\nverikaynagi.Update<br \/>\nNext<br \/>\nverikaynagi.close<\/code><\/p>\n<p><code>'CDROM B\u0130LG\u0130LER\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_CDROMDrive\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nverikaynagi.CursorType = iCursorType<br \/>\nverikaynagi.LockType = iLockType<br \/>\nverikaynagi.Source = \"cdrom\"<br \/>\nverikaynagi.ActiveConnection = baglanti<br \/>\nverikaynagi.Open<br \/>\nverikaynagi.AddNew<br \/>\nFor Each objeler In bilgiler<br \/>\nverikaynagi(\"hostname\") = hostname<br \/>\nverikaynagi(\"cdromsurucu\") = objeler.Drive<br \/>\nverikaynagi(\"cdromadi\") = objeler.MediaType<br \/>\nverikaynagi(\"cdrombaglanti\") = objeler.Name<br \/>\nverikaynagi.Update<br \/>\nNext<br \/>\nverikaynagi.close<\/code><\/p>\n<p><code>'RAM B\u0130LG\u0130LER\u0130<br \/>\nSet bilgiler = wmiService.ExecQuery(\"SELECT * FROM Win32_PhysicalMemory\", \"WQL\", wbemFlagReturnImmediately + wbemFlagForwardOnly)<br \/>\nverikaynagi.CursorType = iCursorType<br \/>\nverikaynagi.LockType = iLockType<br \/>\nverikaynagi.Source = \"ram\"<br \/>\nverikaynagi.ActiveConnection = baglanti<br \/>\nverikaynagi.Open<br \/>\n<\/code><br \/>\n<code>For Each objeler In bilgiler<br \/>\nverikaynagi.AddNew<br \/>\ndim ramm<br \/>\nSelect Case objeler.MemoryType<br \/>\nCase 2<br \/>\nramm = \"DRAM\"<br \/>\nCase 21<br \/>\nramm = \"DDR2\"<br \/>\nCase 20<br \/>\nramm = \"DDR\"<br \/>\nCase 17<br \/>\nramm = \"SDRAM\"<br \/>\nEnd Select<br \/>\nverikaynagi(\"hostname\") = hostname<br \/>\nverikaynagi(\"slot\") = objeler.DeviceLocator<br \/>\nverikaynagi(\"boyut\") = Int(objeler.Capacity \/ 1047000)<br \/>\nverikaynagi(\"tip\") = objeler.MemoryType<br \/>\nverikaynagi(\"tipdetay\") = ramm<br \/>\nverikaynagi(\"mhz\") = objeler.Speed<br \/>\nverikaynagi.update<br \/>\nNext<br \/>\nverikaynagi.close<\/code><\/p>\n<p><code>Set output = fso.CreateTextFile(\"c:\\env.txt\", True)<br \/>\noutput.WriteLine \"Hostname:\" &amp; hostname<br \/>\noutput.WriteLine \"Bilgisayar Tipi:\" &amp; bilgisayartipi<br \/>\noutput.WriteLine \"Seri No:\" &amp; serino<br \/>\noutput.WriteLine \"\u00dcretici:\" &amp; uretici<br \/>\noutput.WriteLine \"Model:\" &amp; model<br \/>\noutput.WriteLine \"Bios: \" &amp; biosversion<br \/>\noutput.WriteLine \"Isletim Sistemi:\" &amp; isletimsistemi<br \/>\noutput.WriteLine \"Islemci:\" &amp; islemci<br \/>\noutput.WriteLine \"Fiziksel Islemci:\" &amp; islemcifiziksel<br \/>\noutput.WriteLine \"Mantiksal Islemci:\" &amp; islemcicekirdek<br \/>\noutput.WriteLine \"Bellek: \" &amp; ramboyutcevir (ram)<br \/>\noutput.WriteLine \"Sabit Disk:\" &amp; hdd<br \/>\noutput.WriteLine \"Sabit Disk Boyutu:\" &amp; hddboyut<br \/>\noutput.WriteLine \"Sabit Disk Tipi:\" &amp; hddtip<br \/>\noutput.WriteLine \"Sabit Disk ID:\" &amp; hddid<br \/>\noutput.WriteLine \"Anakart \" &amp; anakart<br \/>\noutput.WriteLine \"Ekran Karti: \" &amp; vga<br \/>\noutput.WriteLine \"Ekran Karti Ram:\" &amp; ramboyutcevir(vgaram)<br \/>\noutput.WriteLine \"\"<br \/>\noutput.WriteLine \"Cdrom S\u00fcr\u00fcc\u00fc:\" &amp; cdromsurucu<br \/>\noutput.WriteLine \"Cdrom T\u00fcr\u00fc:\" &amp; cdromtipi<br \/>\noutput.WriteLine \"Cdrom Adi:\" &amp; cdromadi<br \/>\noutput.WriteLine \"\"<br \/>\noutput.WriteLine \"Seri Port Sayisi:\" &amp; seriportsayisi<br \/>\noutput.WriteLine \"Paralel Port Sayisi:\" &amp; lptportsayisi<br \/>\noutput.WriteLine \"\"<br \/>\noutput.WriteLine \"Ram Slot Sayisi:\" &amp; ramslotsayisi<br \/>\noutput.WriteLine \"Maksimum Ram Destegi(GB): \" &amp; rammax<br \/>\noutput.WriteLine \"Takili oldugu slot:\" &amp; ramslot<br \/>\noutput.WriteLine \"Bellek Tipi\" &amp; ramtipi<br \/>\noutput.WriteLine \"Bellek Hizi:\" &amp; rammhz<br \/>\noutput.WriteLine \"Bellek Boyutu:\" &amp; ramboyutu<br \/>\noutput.WriteLine \"\"<br \/>\noutput.WriteLine \"Ethernet:\" &amp; strNic<\/code><\/p>\n<p>output.Close<\/p>\n<p><code>Set wmiService = Nothing<br \/>\nSet bilgiler = Nothing<br \/>\nset verikaynagi = nothing<br \/>\nset baglanti = nothing<\/code><\/p>\n<p><code>else<br \/>\n' wscript.echo \"zaten envanter al\u0131nm\u0131\u015f\"<br \/>\nEnd IF<\/code><\/p>\n<p><code><a href=\"http:\/\/www.notsayfam.com\/wp-content\/plugins\/download-monitor\/download.php?id=1\">Script ve veritaban\u0131n\u0131 indirmek i\u00e7in t\u0131klay\u0131n\u0131z<\/a><\/code><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Scriptimiz \u00e7al\u0131\u015ft\u0131r\u0131ld\u0131\u011f\u0131 bilgisayar\u0131n envanterini \u00e7\u0131kartarak, payla\u015f\u0131ma koydu\u011fumuz mdb dosyas\u0131 \u00fczerine kay\u0131t\u0131 yaz\u0131yor. Veritaban\u0131na yazd\u0131ktan sonra C: dizini alt\u0131na env.txt isimli dosya olu\u015fturuyor. Ayn\u0131 bilgisayarda tekrar \u00e7al\u0131\u015fmamas\u0131 i\u00e7in ise env.txt dosyas\u0131n\u0131n varl\u0131\u011f\u0131n\u0131 kontrol ediyor dosya varsa e\u011fer envanteri \u00e7\u0131kartmadan \u00e7\u0131k\u0131yor. Active Directory \u00fczerinden logon script olarak uygulay\u0131p envanter bilgisi toplayabiliriz. Envanter i\u00e7eri\u011fi, Network kartlar\u0131 ve ip,dns,gateway,subnetleri. &hellip; <a href=\"https:\/\/www.notsayfam.com\/?p=323\" class=\"more-link\">Okumaya devam et<span class=\"screen-reader-text\"> &#8220;VBScript ve WMI kullanarak envanter \u00e7\u0131karal\u0131m.&#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,87],"tags":[91,89,90,88],"class_list":["post-323","post","type-post","status-publish","format-standard","hentry","category-programlama","category-vbscript","tag-bilgisayar-envanteri-cikartma","tag-script-ve-wmi-kullanimi","tag-vbscript-access-veritabani","tag-vbscript-ile-donanim-envanteri-cikartma"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/323","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=323"}],"version-history":[{"count":11,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/323\/revisions"}],"predecessor-version":[{"id":379,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/323\/revisions\/379"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=323"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=323"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=323"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}