Scriptimiz çalıştırıldığı bilgisayarın envanterini çıkartarak, paylaşıma koyduğumuz mdb dosyası üzerine kayıtı yazıyor. Veritabanına yazdıktan sonra C: dizini altına env.txt isimli dosya oluşturuyor. Aynı bilgisayarda tekrar çalışmaması için ise env.txt dosyasının varlığını kontrol ediyor dosya varsa eğer envanteri çıkartmadan çıkıyor.
Active Directory üzerinden logon script olarak uygulayıp envanter bilgisi toplayabiliriz.
Envanter içeriği,
Network kartları ve ip,dns,gateway,subnetleri.
cdrom, fiziksel disk sürücüler ve partition yapilari, bilgisayara takılı olan ramler vb
'==========================================================================
'
' notsayfam.com
'
'==========================================================================
Option Explicit
dim envanter
envanter = "c:\env.txt"
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Dim iCursorType ' The Cursor Type for the Recordset
Dim iLockType ' The Lock Type for the Recordset
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' c:\env.txt dosyasi mevcut degilse envanter cikarilmasini sagliyoruz
if not fso.FileExists(envanter) then
Dim output
Dim wmiService
Dim bilgiler
Dim hostname
Dim islemci
Dim islemcifiziksel
Dim islemcicekirdek
Okumaya devam et “VBScript ve WMI kullanarak envanter çıkaralım.”