Lister les logiciels installés sur un PC

‘ List All Installed Software

 

Const HKLM = &H80000002 ‘HKEY_LOCAL_MACHINE

strComputer = « . »

strKey = « SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ »

strEntry1a = « DisplayName »

strEntry1b = « QuietDisplayName »

strEntry3 = « VersionMajor »

strEntry4 = « VersionMinor »

strEntry5 = « EstimatedSize »

 

Set objReg = GetObject(« winmgmts:{impersonationLevel=impersonate}// » & strComputer & « /root/default:StdRegProv »)

objReg.EnumKey HKLM, strKey, arrSubkeys

 

Set objFSO = CreateObject(« Scripting.FileSystemObject »)

Set objTextFile = objFSO.CreateTextFile(« c:\scripts\software.txt », True)

 

For Each strSubkey In arrSubkeys

 

intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, strEntry1a, strValue1)

 

If intRet1 <> 0 Then

objReg.GetStringValue HKLM, strKey & strSubkey, strEntry1b, strValue1

End If

 

If strValue1 <> «  » AND InStr(strValue1, « Hotfix »)=0 AND InStr(strValue1, « Security Update »)=0 AND InStr(strValue1, « Update for Windows »)=0 AND InStr(strValue1, « Update for Microsoft »)=0 AND InStr(strValue1, « Service Pack »)=0 Then

If strValue1 <> «  » Then

strPrint1 = strValue1

 

objReg.GetDWORDValue HKLM, strKey & strSubkey, strEntry3, intValue3

objReg.GetDWORDValue HKLM, strKey & strSubkey, strEntry4, intValue4

 

If intValue3 <> «  » Then

strPrint1 = strPrint1 & « Version:  » & intValue3 & « . » & intValue4

End If

 

objReg.GetDWORDValue HKLM, strKey & strSubkey, strEntry5, intValue5

 

If intValue5 <> «  » Then

strPrint1 = strPrint1 &  » – Estimated size:  » & Round(intValue5/1024, 3) &  » megabytes »

End If

End If

End If

 

If strPrint1 <> «  » Then

objTextFile.WriteLine strPrint1

StrPrint1 = «  »

End If

 

Next

Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :