Program Ekle veya Kaldır iletişim penceresi yazılım listesi oluşturmanıza yardımcı olmuyor. Çünkü bu pencerede "Dışarı ver" ya da "Yazdır" gibi bir seçenek yok. Oysa ipucumuz farklı seviyelerde detay içeren üç farklı liste oluşturmanızı sağlıyor.
Standart araçlarla basit liste oluşturmak
Sistemde kurulu yazılımların listesini elde etmenin en hızlı yolu Windows'un sunduğu standart araçları kullanmaktan geçiyor. Bunun için Başlat menüsünden Tüm Programlar / Donatılar / Sistem araçları / Sistem Bilgisi'ne tıklayın. Açılan pencereden Yazılım ortamını seçin. Daha sonra Program gruplarını seçin. Dosya / Ver'e tıklayın.
Daha fazla ayrıntı öğrenmek
İlk skript'imiz kurulum tarihi, klasör, sürüm numarası gibi detayların yazılım listesinde yer almasını sağlıyor. Aşağıdaki satırları girmek için Not Defteri'nden yardım alabilirsiniz.
Uyarı: Burada bir değişiklik yok. Indesign'daki kodu direkt kullanın!
Set.objFSO.=.CreateObject ("Scripting.FileSystemObject")
Set.objTextFile.=.objFSO.Create TextFile("c:software.tsv",.True)
strComputer.=."."
Set.objWMIService.=.GetObject ("winmgmts:"._
.&."{impersonationLevel=impersonate}!".&.
strComputer.&." ootcimv2")
Set.colSoftware.=.objWMIService.ExecQuery.("SELECT.*.FROM.Win32_Product")
objTextFile.WriteLine."Caption".&.vbtab.&._
"Description".&.vbtab.&."Identifying.Number".&.vbtab.&._
"Install.Date".&.vbtab.&."Install.Location".&.vbtab.&._ "Install.State".&.vbtab.&."Name".&.vbtab.&._
"Package.Cache".&.vbtab.&."SKU.Num ber".&.vbtab.&."Vendor".&.vbtab._
.&."Version"
For.Each.objSoftware.in.colSoftware
objTextFile.WriteLine.objSoftware.Caption.&.vbtab.&._
objSoftware.Description.vbtab.&._
objSoftware.IdentifyingNumber.&.vbtab.&._
objSoftware.InstallDate.&.vbtab.&._
objSoftware.InstallLocation.&.vbtab.&._
objSoftware.InstallState.&.vbtab.&._
objSoftware.Name.&.vbtab.&._
objSoftware.PackageCache.&.vbtab.&._
objSoftware.SKUNumber.&.vbtab.&._
objSoftware.Vendor.&.vbtab.&._
objSoftware.Version
Next
objTextFile.Close
Dosyayı software.vbs adıyla kaydedin ve üzerine çift tıklayarak onu başlatın. Skript her satırında sistemde kurulu yazılımlardan birine ait bilgileri içeren bir metin dosyası oluşturuyor. C:\ sürücüsündeki software.tsv dosyasını Excel ile görüntüleyebilirsiniz. Bunun için Dosya / Aç menüsüne girin. Dosya türü alanından Tüm dosyalar (*.*)'yı seçin. Metin dosyasının bulunduğu klasöre geçin ve software.tsv'yi işaretledikten sonra Aç'a tıklayın. Sihirbazı önce İleri'ye, ardından Son'a tıklayarak tamamlayın. Artık elde ettiğiniz listeyi düzenleyebilir, formatını değiştirebilir ve yazdırabilirsiniz.
Eksiksiz bir liste oluşturmak
Güvenlik güncellemelerinin tümünü, kurulum klasörü, ID, sürüm numarası ve Package Cache gibi bilgileri içeren eksiksiz bir liste oluşturmak için Kayıt Defteri'ndeki Uninstall anahtarından bilgi alan ikinci skriptimizden yararlanabilirsiniz.
!!!!!!!!!Dikkat: Burada da Indesign'daki kodu kullanabilirsiniz. Tek değişiklik Kırmızı renkli üç kelime!!!!!!!!!!
strHost.=."."
Const.HKLM.=.&H80000002
Set.objFSO. =.CreateObject("Scripting.FileSystemObject")
Set.objTextFile.=.objFSO.Create TextFile("c:software2.tsv",.True)
objTextFile.WriteLine."Isim".&.vbtab.&."Kurulum tarihi"
Set.objReg.=.GetObject("winmgmts ://".&.strHost.&."/root/default:StdRegProv")
Const.strBaseKey.=."SoftwareMicrosoftWindowsCurrent VersionUninstall"
objReg.EnumKey.HKLM,. strBaseKey, .arrSubKeys
For.Each.strSubKey.In.arrSubKeys
intRet.=.objReg.GetStringValue(HKLM,.strBaseKey.&.strSubKey,. DisplayName",.strValue)
If.intRet.<>.0.Then
intRet.=.objReg.GetStringValue (HKLM,.strBaseKey.&.strSubKey, ."QuietDisplayName",.strValue)
End.If
intRet1.=.objReg.GetStringValue (HKLM,.strBaseKey.&.strSubKey, ."InstallDate",.strValue2)
If.(strValue.<>."").and.(intRet. =.0).Then
objTextFile.WriteLine.strValue.& .vbtab.&.strValue2
End.If
Next
objTextFile.Close
Kodu software2.vbs adıyla kaydedin. Bu yolla oluşturduğunuz liste tüm yazılımların adlarıyla beraber kurulum tarihlerini de içerecek. Ayrıca söz konusu listeyle Excel altında da çalışabileceksiniz.