Imports System.Management
Imports System.Text
Imports Microsoft.Win32
Imports System.Net.NetworkInformation
Public Class Form1
Dim strmodel As String = “”
Dim strmodel2 As String = “”
Dim strserino As String = “”
Dim regedithex As String = “”
Dim struretimhaftasi As String = “”
Dim struretimyili As String = “”
Dim strdikey, stryatay As Integer
Dim strmonitorinc As Double
Private Function ByteArrayToString(ByVal ba As Byte()) As String
Dim hex As New StringBuilder(ba.Length * 2)
For Each b As Byte In ba
hex.AppendFormat(“{0:x2}”, b)
Next
Return hex.ToString()
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
strmodel = “”
strmodel2 = “”
strserino = “”
regedithex = “”
Dim host As String = InputBox(“Lütfen Mönitörünü tespit etmek istediğiniz host adını veya ip adresini giriniz:”, “Bilgisayar Girişi”)
‘Eğer giriş boş geçilirse local bilgisayarı alalım
If host = “” Then host = “.”
If host <> “.” Then
Dim pingat As New Ping
Dim pingsonuc As PingReply
Try
pingsonuc = pingat.Send(host)
Catch ex As Exception
MsgBox(“Yazdığınız bilgisayar ile iletişim kurulamıyor” & ex.Message)
Exit Sub
End Try

If pingsonuc.Status <> IPStatus.Success Then
MsgBox(“Yazdığınız bilgisayar ile iletişim kurulamıyor”)
Exit Sub
End If
End If

Dim MyReg As RegistryKey = RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, host)
Dim Key As RegistryKey = MyReg.OpenSubKey _
(“SYSTEM\CurrentControlSet\Enum\DISPLAY”, False)
‘Display parametresinin altındaki tüm keyleri subkeynames dizisine atıyoruz
Dim SubKeyNames() As String = Key.GetSubKeyNames()
Dim Index As Integer
Dim Subkey As RegistryKey
Dim dogrupath As String = “”
For Index = 0 To Key.SubKeyCount – 1
Try
‘Enum\Display keyi altındaki tüm anahtarlar için yeni bir subkey oluşturalım
Dim Key2 As RegistryKey = MyReg.OpenSubKey(“SYSTEM\CurrentControlSet\Enum\DISPLAY\” _
+ SubKeyNames(Index), False)
Dim SubKeyNames2() As String = Key2.GetSubKeyNames()

For index2 As Integer = 0 To Key2.SubKeyCount – 1
‘Birden fazla monitör takmışsanız eğer çok fazla subkey oluşabilir
‘Aktif olan monitör için subkey altında Control isimli bir anahtar bulunmakta

Subkey = MyReg.OpenSubKey(“SYSTEM\CurrentControlSet\Enum\DISPLAY\” _
+ SubKeyNames(Index) + “\” + SubKeyNames2(index2) + “\Control”, False)
‘Eğer control isimli subkey yok ise bir sonraki keye gidelim
If Subkey Is Nothing Then
GoTo sonraki
Else
‘Eğer control mevcut ise Device Parameters altındaki EDID Reg_Binary değerine bakıyoruz
‘Monitör çıkartılmış ise BAD_EDID anahtarı oluşuyor.

Subkey = MyReg.OpenSubKey(“SYSTEM\CurrentControlSet\Enum\DISPLAY\” _
+ SubKeyNames(Index) + “\” + SubKeyNames2(index2) + “\Device Parameters”, False)
Dim bytes As Byte() = Subkey.GetValue(“EDID”, Nothing)
Try
If bytes.Length > 0 Then
‘Byte olarak aldığımız değerleri hex formatına çevirelim

regedithex = ByteArrayToString(bytes)
‘MsgBox(regedithex)
struretimhaftasi = System.Convert.ToInt32(Mid(regedithex, 33, 2), 16)
struretimyili = CInt(System.Convert.ToInt32(Mid(regedithex, 35, 2), 16)) + 1990

strdikey = CInt(System.Convert.ToInt32(Mid(regedithex, 43, 2), 16))
stryatay = CInt(System.Convert.ToInt32(Mid(regedithex, 45, 2), 16))

strmonitorinc = (Math.Sqrt(strdikey * strdikey + stryatay * stryatay) / 2.54)

Subkey = MyReg.OpenSubKey(“SYSTEM\CurrentControlSet\Enum\DISPLAY\” _
+ SubKeyNames(Index) + “\” + SubKeyNames2(index2), False)
‘Eğer monitorun windows sürücüsü yüklenmiş ise modelini registry üzerinden alalım
strmodel2 = Subkey.GetValue(“DeviceDesc”)
End If

Catch ex As Exception
End Try
End If
sonraki:
Next
Catch ex As Exception

End Try
Next

’000000ff den sonraki 14 karakter seri numarayı içermekte
Dim serinoindex As Integer = InStr(regedithex, “000000ff”) + 8
’000000fc den sonra olan 14 karakter model numarasını içeriyor
Dim modelindex As Integer = InStr(regedithex, “000000fc”) + 8
Dim serinohex As String = Mid(regedithex, serinoindex, 28)
Dim modelhex As String = Mid(regedithex, modelindex, 28)

For y As Integer = 1 To Len(serinohex) Step 2
Dim s As String
Dim b As Byte
b = System.Convert.ToByte((Mid(serinohex, y, 2)), 16)
s = Chr(b)
If Asc(s) <> 0 And (Asc(s) > 47 And Asc(s) < 126) Then
strserino += s
End If
Next y
For y As Integer = 1 To Len(modelhex) Step 2
Dim s As String
Dim b As Byte
b = System.Convert.ToByte((Mid(modelhex, y, 2)), 16)
s = Chr(b)
If Asc(s) <> 0 And (Asc(s) > 47 And Asc(s) < 126) Then
strmodel += s
End If
Next y
Dim alinanhost As String = “”
If host = “.” Then
alinanhost = “Yerel bilgisayar”
Else
alinanhost = host
End If

MsgBox(“Monitör Bilgileri Alınan Bilgisayar: ” + alinanhost + vbCrLf + _
“Monitor Registry Modeli: ” & strmodel2 & vbCrLf & _
“Monitör Device Modeli: ” & Trim(strmodel) & vbCrLf & _
“Monitör Seri Numarası: ” & strserino & vbCrLf & _
“Üretim Haftası: ” & struretimhaftasi & vbCrLf & _
“Üretim Yılı: ” & struretimyili & vbCrLf & _
“Monitör Dikey Boyutu (cm): ” & strdikey & vbCrLf & _
“Monitör Yatay Boyutu (cm): ” & stryatay & vbCrLf & _
“Monitör Boyutu (inc): ” & Format(strmonitorinc, “##.##”))
End Sub
End Class

Vs2005 Örnek Uygulamasını İndirmek için tıklayınız.

Uygulamanın çalışma mantığı:
Çalıştırıldığı dizinde 2 adet dosyaya ihtiyaç duyuyor ayarlar.ini ve switchler.txt. Switchler.txt switchlerin ip leri yer almakta. ayarlar.ini dosyasında ise switchlerin şifreleri (hepsi ortak olmalı), Çalıştırılacak komut (sh mac-address-table), database bilgileri ve filtreleme, loglama yapılacak mı gibi bilgiler girilmeli.

Loglama yapılacak seçilirse çalıştırıldığı dizinde Log klasörünün içerisine switchlerin konsollarından gelen verileri ve filtreleme sonucu oluşan dosyaların çıktıları yer almakta.

Filtreleme mantığı ise her switch uplink ve downlinkleri üzerinden bir çok kendi üzerinde olmayan mac adresinin database üzerine kayıt edilmesini engellemek için gerekli olan kısım. Benim örneğimde Fa (Fast Ethernet) ve Lo (Long Reach Ethernet) portlarındaki mac adreslerini almak için filtre girilmiş durumda.  En fazla 3 adet filtre için geliştirdim.

Program kısaca Cisco switchlere telnet bağlanıp Fa,Lo portlarındaki bilgilerin alınıp veritabanına kayıt edilmesini sağlıyor. İsterseniz zamanlamayı açıp her 120 saniyede bir tekrar liste almasını ve değişenleri yazmasını sağlayabilirsiniz.

SQL için aşağıdaki alanlara ihtiyaç duyulmakta;

DROP TABLE IF EXISTS `mac`;
CREATE TABLE `mac` (
`id` int(11) NOT NULL AUTO_INCREMENT,
`switch` text,
`mac` text,
`vlanid` text,
`tarama` datetime DEFAULT NULL,
`port` text,
PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=507 DEFAULT CHARSET=utf8;

VB.Net Telnet Uygulaması (vs2005)

Kuruluma ihtiyaç duymayan
Data,Audio,Video CD/DVD desteği olan
http://www.amok.am/en/freeware/amok_cd-dvd_burning/download/
Bir başka yazılım

Eğer Symantec LUA servisini başlatırken aşağıdaki hatayı alıyorsanız

Could not start the LUA Apache Tomcat service on Local Computer.
Error 1067: The process terminated unexpectedly.

ve komut istemi üzerinden

java -version komutunu çalıştırdığınızda
Error occurred during initialization of VM
java/lang/NoClassDefFoundError: java/lang/Object

hatasını alıyorsanız, Javanın en son kurulu paketini sisteminizden kaldırmanız veya tüm paketleri kaldırıp javayı yeniden kurmanız gerekiyor.

mysql\bin klasörü altında
mysqld --skip-grant-tables
Bu komut penceresi açıkken yeni bir komut penceresi açıp tekrar mysql\bin klasörüne geliyoruz

mysqld

yazıp veritabanına bağlandıktan sonra aşağıdaki komutları çalıştırıp pencereyi kapatıyoruz

mysql> USE mysql
mysql> UPDATE user SET password=password("newpassword") WHERE user="root";
mysql> flush privileges;
mysql> exit;

Bütün açık komut pencerelerini kapattıktan sonra görev yöneticisinden mysqld uygulamasını sonlandırıp MySQL servisini başlatıyoruz.

Tek birini silmek isterseniz; kürsor üzerinde iken delete tuşuna basarak otomatik tamamlama listenizden silebilirsiniz.

Eğer tamamını silmek isterseniz.
%AppData%\Microsoft\Outlook (default olarak C:\Documents and Settings\user\Application Data\Microsoft\Outlook)  dizinindeyer alan Outlook.NK2 isimli dosyayı silmeniz yeterli.

Otomatik tamamlama listenizde hızlı güncelleme yapmak,silmek, tüm listenizi kayıt etmek isterseniz NK2View yazılımını kullanabilirsiniz.

Yeni bilgisayarınızdaki outlook hesabınıza aktarmanız için ise Outlook.NK2 isimli dosyayı yeni bilgisayarnızdaki kopyalamak yeterlidir.

“ERROR [IM014] [Microsoft][ODBC Driver Manager] The specified DSN contains an architecture mismatch”

hatası almamız muhtemel. Sebebi yine ODBC sürücülerinin 32bit sürücü desteğine sahip olması. Her ne kadar ODBC test ettiğimizde başarılı bir şekilde bağlandım dese de vb.net üzerinden bağlantı açılırken yukarıdaki hata mesajını döndürmekte.

Hatayı geçmek için projemizi çalışacağı CPU yu x86 seçmelimiz gerekiyor.

VS2008 üzerinde x86 ayarlanması

Project menüsünden Projemizin özelliklerini açalım.

Compile bölümünü açalım

Advanced Compile Optionsa yarlarını açalım.

Target CPU seçeneğini x86 seçtiğimizde projemiz artık sadece 32bitlik uygulama gibi çalışacak. Yukarıdaki ODBC sorunu kalkacaktır

Kullanacağımız komut cacls (vista ile daha gelişmiş icacls komutu mevcut ama bizim istemcilerimiz xp ve cacls komutunu vista üzerinde de kullanabiliriz)

Parametreler:
parametrelere cacls /? yazarak ulaşabilirsiniz.
/t ACL listemizin alt dizin/dosyalara da etki etmesini sağlar
/e değiştirme yapmamızı sağlar. (bunu kullanmazsak mevcut ACL bilgileri silinir yeni yetkiler aktarılır
/p mevcut olan yetkileri değiştirmek için
/r kullanıcıyı acl listesinden silmek için
/c hata oluşsa bile devam etmesi için
/d kullanıcı erişimini engellemek için
yetkiler:
R Oku
W Yaz
C Değiştir (yaz)
F Tam denetim

Örnekler
%COMSPEC% /c Echo E| komutunu başa yazarak bize onay sormasını engelliyoruz.(Ingilizce olan işletim sistemleri için E yerine Y koymamız gerekiyor. Bunları ayırt etmemize gerek yok hem E hemde Y olan satırları peş peşe çalıştırırsanız bir tanesi geçerli olacaktır.)

%COMSPEC% /c Echo E| cacls c:\test /t /c /g Administrators:F system:f users:r musti:f
Üstteki örnekte c:\test klasörü ve alt klasörlerindeki tüm yetkiler silinip administrators,system gruplarına tam yetki users grubuna ise okuma yetkisi veriyoruz.

%COMSPEC% /c Echo E| cacls c:\test /e /t /r users
Bu örnekte ise mevcut acl listemizden sadece users grubuna verdiğimiz yetkileri siliyoruz

%COMSPEC% /c Echo E| cacls c:\test /t /e /p users:r musti:f
mevcut acl üzerindeki yetkileri users grubuna sadece okuma musti kullanıcısına tam yetki verdik.

%COMSPEC% /c Echo E| cacls c:\test /e /d musti
musti isimli kullanıcının dizine erişimini engelliyoruz

Bu kodları bat dosyası içerisine yazabileceğimiz gibi vbs üzerine de ekleyebiliriz.
Örnek vbs dosyamız.

Option Explicit
Dim klasor
Dim intRunError, objShell, objFSO
klasor = "c:\test"
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(klasor) Then
intRunError = objShell.Run("%COMSPEC% /c Echo E| cacls " & klasor & " /t /c /g Administrators:F ", 2, True)
If intRunError <> 0 Then
Wscript.Echo klasor & " Klasörünün izinleri değiştirilirken hata ile karşılaşıldı."
End If
End If
WScript.Quit


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


Dim Bilgisayartipi
Dim nicMAC

Dim ram,ramslotsayisi,rammax,rammhz,ramtipi,ramboyutu,ramslot
Dim hdd,hddboyut,hddtip,hddid
Dim cdromsurucu,cdromtipi,cdromadi
Dim anakart
Dim vga,vgaram
Dim seriportsayisi,lptportsayisi

Dim uretici,model,biosversion,isletimsistemi,serino

Call baglantiac
Dim baglanti
Dim verikaynagi

Sub baglantiac
Set baglanti = CreateObject("ADODB.Connection")
Set verikaynagi = CreateObject("ADODB.Recordset")
iCursorType                = 1
iLockType                = 3
baglanti.Provider = "Microsoft.Jet.OLEDB.4.0"
'VERi tabani baglanti yolu
baglanti.Properties("Data Source") = "\\192.168.9.50\test\envanter.mdb"
baglanti.Open
End Sub

Set wmiService = GetObject("winmgmts:\\.\root\CIMV2")
hostname = ""
uretici = ""
model = ""
biosversion = ""
isletimsistemi = ""
serino = ""
On Error Resume Next

'BİOS BİLGİLERİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
Dim objeler
For Each objeler In bilgiler
serino = objeler.serialNumber
biosversion = objeler.SMBIOSBIOSVersion
Next
'GENEL BİLGİLER 2
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objeler In bilgiler
hostname = objeler.Caption
uretici = objeler.Manufacturer
model = objeler.Model
islemcifiziksel = objeler.NumberOfProcessors
islemcicekirdek = objeler.NumberOfLogicalProcessors
bilgisayartipi = objeler.PCSystemType
Next
Select Case bilgisayartipi
Case 1
bilgisayartipi = "Masaüstü"
Case 2
bilgisayartipi = "Laptop"
Case 3
bilgisayartipi = "İş İstasyonu"
Case 4
bilgisayartipi = "Sunucu"
Case Else
bilgisayartipi = "Bulunamadı"
End Select
wscript.exho bilgisayartipi
'İŞLETİM SİSTEMİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objeler In bilgiler
isletimsistemi = objeler.Name
isletimsistemi = Split(isletimsistemi, "|")(0)
Next

'TOPLAM RAM
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL",wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objeler In bilgiler
ram = round (objeler.TotalPhysicalMemory / 1047000,0)
Next
'CPU
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objeler In bilgiler
islemci = objeler.Name
Next
'VGA BİLGİLERİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objeler In bilgiler
vga = objeler.Name
vgaram = objeler.AdapterRAM
Next

'SERİ PORT SAYISI
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_SerialPort", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
seriportsayisi=0
For Each objeler In bilgiler
seriportsayisi = seriportsayisi + 1
Next
'PARALEL PORT SAYISI
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_ParallelPort", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
lptportsayisi=0
For Each objeler In bilgiler
lptportsayisi = lptportsayisi + 1
Next

' RAM SLOT VE MAXİMUM
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_PhysicalMemoryArray", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objeler In bilgiler
ramslotsayisi = objeler.MemoryDevices
rammax = Clng (objeler.MaxCapacity / 1000000)
Next

verikaynagi.CursorType = iCursorType
verikaynagi.LockType = iLockType
verikaynagi.Source = "envanter"
verikaynagi.ActiveConnection = baglanti
verikaynagi.Open
verikaynagi.AddNew
verikaynagi("hostname") = hostname
verikaynagi("bilgisayartipi") = bilgisayartipi
verikaynagi("serino")= serino
verikaynagi("uretici")=uretici
verikaynagi("model")=model
verikaynagi("biosversion")= biosversion
verikaynagi("os")= isletimsistemi
verikaynagi("islemci")= islemci
verikaynagi("islemcifiziksel")= islemcifiziksel
verikaynagi("islemcicekirdek")= islemcicekirdek
verikaynagi("ram")= ram
verikaynagi("rammax")= rammax
verikaynagi("ramslot")= ramslot
verikaynagi("seriportsayisi") = seriportsayisi
verikaynagi("lptportsayisi") = lptportsayisi
verikaynagi.Update
verikaynagi.Close

' AĞ BİLGİLERİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
Dim IPP,subnett,DNSS,gatewayy
verikaynagi.CursorType = iCursorType
verikaynagi.LockType = iLockType
verikaynagi.Source = "network"
verikaynagi.ActiveConnection = baglanti

Dim ipler,dnsler,gatewayler,subnetler
verikaynagi.Open
For Each objeler In bilgiler
nicMAC =  objeler.MACAddress
' WScript.Echo nicMAC
if nicMAC <> "" then
If nicMAC <> "50:50:54:50:30:30" Then
If objeler.Description <> "Packet Scheduler Miniport"  Then
If objeler.Description <> "Paket Zamanlayıcısı Mini Bağlantı Noktası" Then
If objeler.Description <> "WAN Miniport (PPPOE)" Then
If objeler.Description <> "1394 Ağ Bağdaştırıcısı" Then

verikaynagi.AddNew
'WScript.Echo objeler.Description

For Each IPP In objeler.IPAddress
ipler = ipler & IPP & ","
Next
For Each DNSS In objeler.DNSServerSearchOrder
dnsler = dnsler  & DNSS  & ","
Next
For Each Subnett In objeler.IPSubnet
subnetler=subnetler & Subnett & ","
Next
For Each gatewayy In objeler.DefaultIpGateway
gatewayler = gatewayler & gatewayy & ","
Next

verikaynagi("hostname") = hostname
verikaynagi("adi") = objeler.Description
verikaynagi("mac") = objeler.MACAddress
verikaynagi("dhcp") = objeler.DHCPEnabled
verikaynagi("ip") = ipler
verikaynagi("dns") = dnsler
verikaynagi("subnet") = subnetler
verikaynagi("gateway") = gatewayler
verikaynagi.Update

ipler=""
dnsler=""
subnetler=""
gatewayler=""
End If
End If
End If
End If
End If
end if

Next
verikaynagi.Close

'FİZİKSEL DİSK SÜRÜCÜLER
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
verikaynagi.CursorType = iCursorType
verikaynagi.LockType = iLockType
verikaynagi.Source = "fizikseldisk"
verikaynagi.ActiveConnection = baglanti
verikaynagi.Open
For Each objeler In bilgiler
verikaynagi.AddNew
verikaynagi("hostname") = hostname
verikaynagi("hddid") = objeler.DeviceID
verikaynagi("hddadi") = objeler.Model
verikaynagi("boyut") = round(objeler.Size / 1000000000, 2)
verikaynagi("tipi") = objeler.InterfaceType
verikaynagi.Update
Next
verikaynagi.close
'PARTİTİON BİLGİLERİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_DiskPartition", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
verikaynagi.CursorType = iCursorType
verikaynagi.LockType = iLockType
verikaynagi.Source = "partition"
verikaynagi.ActiveConnection = baglanti
verikaynagi.Open
For Each objeler In bilgiler
verikaynagi.AddNew
verikaynagi("hostname") = hostname
verikaynagi("diskpartition") = objeler.DeviceID
verikaynagi("boyut") = round(objeler.Size / 1000000000, 2)
verikaynagi.Update
Next
verikaynagi.close

'CDROM BİLGİLERİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
verikaynagi.CursorType = iCursorType
verikaynagi.LockType = iLockType
verikaynagi.Source = "cdrom"
verikaynagi.ActiveConnection = baglanti
verikaynagi.Open
verikaynagi.AddNew
For Each objeler In bilgiler
verikaynagi("hostname") = hostname
verikaynagi("cdromsurucu") = objeler.Drive
verikaynagi("cdromadi") = objeler.MediaType
verikaynagi("cdrombaglanti") = objeler.Name
verikaynagi.Update
Next
verikaynagi.close

'RAM BİLGİLERİ
Set bilgiler = wmiService.ExecQuery("SELECT * FROM Win32_PhysicalMemory", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
verikaynagi.CursorType = iCursorType
verikaynagi.LockType = iLockType
verikaynagi.Source = "ram"
verikaynagi.ActiveConnection = baglanti
verikaynagi.Open

For Each objeler In bilgiler
verikaynagi.AddNew
dim ramm
Select Case objeler.MemoryType
Case 2
ramm = "DRAM"
Case 21
ramm = "DDR2"
Case 20
ramm = "DDR"
Case 17
ramm = "SDRAM"
End Select
verikaynagi("hostname") = hostname
verikaynagi("slot") = objeler.DeviceLocator
verikaynagi("boyut") = Int(objeler.Capacity / 1047000)
verikaynagi("tip") = objeler.MemoryType
verikaynagi("tipdetay") = ramm
verikaynagi("mhz") = objeler.Speed
verikaynagi.update
Next
verikaynagi.close

Set output = fso.CreateTextFile("c:\env.txt", True)
output.WriteLine "Hostname:" & hostname
output.WriteLine "Bilgisayar Tipi:" & bilgisayartipi
output.WriteLine "Seri No:" & serino
output.WriteLine "Üretici:" & uretici
output.WriteLine "Model:" & model
output.WriteLine "Bios: " & biosversion
output.WriteLine "Isletim Sistemi:" & isletimsistemi
output.WriteLine "Islemci:" & islemci
output.WriteLine "Fiziksel Islemci:" & islemcifiziksel
output.WriteLine "Mantiksal Islemci:" & islemcicekirdek
output.WriteLine "Bellek: " & ramboyutcevir (ram)
output.WriteLine "Sabit Disk:" & hdd
output.WriteLine "Sabit Disk Boyutu:" & hddboyut
output.WriteLine "Sabit Disk Tipi:" & hddtip
output.WriteLine "Sabit Disk ID:" & hddid
output.WriteLine "Anakart " & anakart
output.WriteLine "Ekran Karti: " & vga
output.WriteLine "Ekran Karti Ram:" & ramboyutcevir(vgaram)
output.WriteLine ""
output.WriteLine "Cdrom Sürücü:" & cdromsurucu
output.WriteLine "Cdrom Türü:" & cdromtipi
output.WriteLine "Cdrom Adi:" & cdromadi
output.WriteLine ""
output.WriteLine "Seri Port Sayisi:" & seriportsayisi
output.WriteLine "Paralel Port Sayisi:" & lptportsayisi
output.WriteLine ""
output.WriteLine "Ram Slot Sayisi:" & ramslotsayisi
output.WriteLine "Maksimum Ram Destegi(GB): " & rammax
output.WriteLine "Takili oldugu slot:" & ramslot
output.WriteLine "Bellek Tipi" & ramtipi
output.WriteLine "Bellek Hizi:" & rammhz
output.WriteLine "Bellek Boyutu:" & ramboyutu
output.WriteLine ""
output.WriteLine "Ethernet:" & strNic

output.Close

Set wmiService = Nothing
Set bilgiler = Nothing
set verikaynagi = nothing
set baglanti = nothing

else
' wscript.echo "zaten envanter alınmış"
End IF

Script ve veritabanını indirmek için tıklayınız