Vbs ile Bir registry değerini okutalım

Vbs ile Bir registry değerini okutalım
Registryde yeralan bilgilerden bir veya birkaçını ekrana getirmek yani script ile okutmak çoğu durumda işlem pratikliği ve zaman kazandırır.Kodlama yaparken genellikle belirli bir registry değeri kontrol

ettirilip işlem yapılır mesela değer 2 ise şunu yap değer 1 ise bunu yap gibi, hatta registry değerini açıp kendim bakarım diye de düşünebilirsiniz peki ama ya aynı anda 3-4 veya daha fazla registry anahtarının değerini görüntülemek istersek ? sayı arttıkça tek tek O anahtarlara gidip kontrol etmek imkansız hale gelecektir. Vbscript te kolayca istediğiniz sayıda registry değerini okutup bilgileri ekrana getirebilirsiniz. Konuyu hemen bir örnekle açıklayacak olursak, varsayalım kullanıcının Windows Home mu Pro mu yoksa başka bir sürüm mü çalıştırdığını , sürüm numarasını ve Nt Çekirdek numarasını görüntületmek isteyelim.

VBscript ile Registryden değer okutmak

1. Öncelikle değerleri hangi registry anahtarından veya anahtarlarından okutacağınızı belirlemeniz gerekir, örneğimizde bütün değerleri aşağıdaki registry anahtarında yeralmaktadır.

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion

Üstteki anahtarda hangi Reg_Dword veya Reg_SZ (Dize değeri) leri okutacağımızı da tespit ettik

Vbs ile registry değeri okutalım

2. Şimdi sırada bu değerleri okutup ekrana getirmek var, bunun için ilk önce tek bir değeri okutmaya çalışalım , sürüm numarasını bir tıkla ekrana popup şeklinde getirmek için aşağıdaki kodları kullanabiliriz.

Dim windowsShell
Dim regValue
Set windowsShell = CreateObject("WScript.Shell")
regValue = windowsShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId")
Wscript.echo regValue

Üstteki script çalıştırıldığında ekrana aşağıdaki gibi bir pencere gelecektir.

Vbs ile tek registry değeri okutalım

Şimdi asıl amacımız olan birden fazla registry değerini okutup bu bilgileri alt alta sıralı verirken başlık çubuğunda da site ismimizi yazdırmak var, aşağıdaki gibi bir kodlama kullanılabilir.

'www.sordum.net - 08.06.2020 - velociraptor
Dim windowsShell
Dim regValue
Set windowsShell = CreateObject("WScript.Shell")
regValue1 = windowsShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId")
regValue2 = windowsShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
regValue3 = windowsShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuildNumber")
regValue4 = windowsShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
tMessage= "Windows Sürümü: " & regValue2  & vbNewLine & _ 
"Windows Sürüm Numarası: " & regValue1  & vbNewLine & _
"Windows Yapı Numarası: " & regValue3 & vbNewLine & _
"Windows Nt Sürümü: " & regValue4
MsgBox tMessage,0,"www.sordum.net"

Üstteki kodlamaların her ikisi ve farklı bir örnek script sayfa sonundaki indirme linkinde sunulmuştur. İndirip kodları kendinize göre düzenleyebilirsiniz. Script çalıştırıldığında aşağıdaki gibi bir çıktı verecektir.

Registryden Windows sürümünü bulmak

Microsoft İşletim sistemi version numaralarını Buradaki yazısında vermişti bu numaralar bir yazılımın işletim sistemini otomatik olarak algılamasında kullanılabilir , mesela yazılım registry değerini okuyup eğer Windows 7 ise başka bir pencere Windows 8.1 ise başka bir pencere sunabilir , elbette kullanım alanı hayal gücümüze bağlı olarak çok farklı da olabilir.