Script ile yuklu programlari listelemek

Merhaba asagidaki script ile bir bilgisayarda kurulu uygulamalari Windows Installer i kullanarak cekebilirsiniz, script te de goreceginiz gibi , cikti c:\software.tsv dosyasina Tab bosluklu kolon formatinda yazilmaktadir.

objSoftware parametrelerinden size gerekmeyenleri iptal ederek daha az bilgi alabilir, scriptte bilgisayara baglanma guvenlik ayarini degistirerek ve strComputer degiskenini bir listeden okuyup dondurerek bir den fazla uzak bilgisayardan bu bilgiyi cekebilirsiniz de biraz degisiklikle.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\software.tsv", True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
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 Number" & vbtab & "Vendor" & vbtab _
& "Version"

For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.Caption & vbtab & _
objSoftware.Description & vbtab & _
objSoftware.IdentifyingNumber & vbtab & _
objSoftware.InstallDate2 & vbtab & _
objSoftware.InstallLocation & vbtab & _
objSoftware.InstallState & vbtab & _
objSoftware.Name & vbtab & _
objSoftware.PackageCache & vbtab & _
objSoftware.SKUNumber & vbtab & _
objSoftware.Vendor & vbtab & _
objSoftware.Version
Next
objTextFile.Close

Bu ve benzeri daha fazla script e ulasmak icin Microsoft Script Center sitesini tavsiye ederim.