Ağ'daki Bilgisayarlara Yüklü Olan Programlar

Erkan Cengiz

(@ErkanCengiz)

Gönderiler: 29

Eminent Member

Konu başlatıcı

Merhaba ;

Network'ümde Bulunan Bilgisayarda Yüklü Olan Programları Liste Olarak Bulma istiyorum.

BSA'nın Gasp Programı Var Fakat Hiç Kullanmadım Ve Güvenmiyorum. Buna Muadil Önerebileceğiniz Programlar Varmıdır ?

Teşekkürler.

Gönderildi : 26/05/2010 17:42

CozumPark

(@cozumpark)

Gönderiler: 16307

Illustrious Member Yönetici

Global Network Inventory kullanabilirsiniz, ayrıca GFI ' ın da böyle bir ürünü var.

Gönderildi : 26/05/2010 18:27

Resul SOYDAŞ

(@resulsoydas)

Gönderiler: 1658

Noble Member

Microsoft Software Inventory Analyzer porgramı işinizi görür mü?

http://www.microsoft.com/india/sam/msia.mspx

Gönderildi : 26/05/2010 19:31

Vasvi UYSAL

(@vasviuysal)

Gönderiler: 7889

Üye

asıl amacı bu olmamakla birlikte kaspersky admin kit tarafındada listeleniyor clientlere kurulu programlar

Gönderildi : 28/05/2010 14:59

Anonim

(@Anonim)

Gönderiler: 0

Aşağıdaki betik yüklü yazılımların listesini verir. Komut isteminde : cscript programlar.vbs

On Error Resume Next

strComputer = "."

arrIA = getApps(strComputer)

If IsArray(arrIA) Then
WScript.Echo "There are " & UBound(arrIA)+1 & " applications installed on " & UCase(strComputer) & VbCrLf
i = 1

For Each strApp In arrIA
WScript.Echo i & ": " & strApp
i = i + 1
Next
Else
WScript.Echo "Unable to connect."
End If

' List installed programs

Function getApps(strComputer)
HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}//" & strComputer & "/root/default:StdRegProv")

If Err.Number > 0 Then
getApps = False
Err.Clear
Exit Function
End If

objReg.EnumKey HKLM, strKey, arrSubkeys

arrInstalledApps = Array()

For Each strSubkey In arrSubkeys
'====== Display Name ========
intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, "DisplayName", strValue1)
If intRet1 <> 0 Then
objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", strValue1
End If

If InStr(strValue1, "Hotfix") Or InStr(strValue1, "Security Update") Or InStr(strValue1, "Update for Windows") Then
'Nothing
Elseif strValue1 <> "" Then
ReDim Preserve arrInstalledApps(UBound(arrInstalledApps) + 1)
arrInstalledApps(UBound(arrInstalledApps)) = strValue1
End If
Next
getApps = arrInstalledApps
End Function