Forum
Bildirimler
Hepsini Temizle
3 Party
5
Yazılar
5
Üyeler
0
Reactions
937
Görüntüleme
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
Global Network Inventory kullanabilirsiniz, ayrıca GFI ' ın da böyle bir ürünü var.
Gönderildi : 26/05/2010 18:27
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
asıl amacı bu olmamakla birlikte kaspersky admin kit tarafındada listeleniyor clientlere kurulu programlar
Gönderildi : 28/05/2010 14:59
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
Gönderildi : 29/05/2010 13:58