Liste des logiciels installés (par VBS)Résolu

Question

Bonjour,

Je suis un peu perplexe, je viens de m'apercevoir que certains logiciels ne "remontaient" pas ds WMI via le script suivant :

    
Set WMI_ObjProps = WMI_Obj.ExecQuery("SELECT * FROM Win32_Product", , 48)
    For Each ObjClsItem In WMI_ObjProps
    WScript.echo ObjClsItem.name + "/"+ ObjClsItem.description + "/"+ ObjClsItem.caption  + "/"+ ObjClsItem.installlocation
    Next


C'est le cas par exemple de mozilla firefox.

J'ai écrit une suite de logiciel pour gérer le parc logiciel de manière automatisée et s'il me manque la moitié des logiciels, ça va pas le faire 

Avez-vous des idées d'où ça peut provenir ?
Pour info, je suis utilisateur d'un domaine.

A+

cs_Le Pivert · Accepted Answer

Bonjour,
Essayez cela: 

Set oShell = CreateObject("wscript.Shell")
Set env = oShell.environment("Process")
strComputer = env.Item("Computername")
Const HKEY_LOCAL_MACHINE = &H80000002
Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
".\root\default:StdRegProv")
oReg.EnumKey HKEY_LOCAL_MACHINE, UnInstPath, arrSubKeys
software = "*******************************" & Now & "****************************" & vbCrLf
software = software & "*******************************Logiciels installés********************************" & vbCrLf
For Each subkey In arrSubKeys
        'MsgBox subkey
        If Left (subkey, 1) <> "{" Then
                software = software & subkey & vbCrLf
        End If
Next
software = software & "*********************************************************" & vbCrLf
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
'Détermine si le fichier csv existe déjà ou s'il doit le créer
If Not fso.FileExists("inventaire " & strComputer & ".csv") Then
        set ts = fso.CreateTextFile("inventaire " & strComputer & ".csv", True)
Else
        set ts = fso.OpenTextFile("inventaire " & strComputer & ".csv", 2, True)
End If
 
ts.write software

Cela fonctionne chez moi
@+
Le Pivert

cs_glad · Answer

j'ai pas de succès avec ma question...

Vraiment aucune idée ?

cs_glad · Answer

Ca marche !

Merci ...
Au passage voici ton code un peu revu :


Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
".\root\default:StdRegProv")
oReg.EnumKey HKEY_LOCAL_MACHINE, UnInstPath, arrSubKeys

For Each subkey In arrSubKeys
        	WScript.echo subkey & vbCrLf
        	tmp=WshShell.RegRead ("HKLM" & UnInstPath & subkey & "\DisplayName")
        	If tmp="" Then tmp=SubKey
        	f.Write(";Appl;" & tmp)
        	tmp=""
        	tmp=WshShell.RegRead ("HKLM" & UnInstPath & subkey & "\InstallDate")
        	f.Write(";ApplInstallDate;" & tmp)
        	tmp=""
        	tmp=WshShell.RegRead ("HKLM" & UnInstPath & SubKey & "\DisplayVersion")
        	f.writeline(";ApplVersion;" & tmp )
Next



A++

Liste des logiciels installés (par VBS)

3 réponses

Votre réponse

Discussions similaires