Discussion :

[Igloobel]

Bonjour à tous

j'ai fais des recherche pour créer un vbscript dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colFeatures = objWMIService.ExecQuery _
    ("Select * from Win32_SoftwareFeature")
result = ""
cpt = 1
For Each objFeature in colfeatures
 
	if cpt mod 2 <>0 then
		result = result & objFeature.Name & vbtab & vbtab & vbtab
	else
		result = result & objFeature.Name & vbcrlf
	end if
	cpt = cpt + 1
Next
 
msgbox (result)

Le résultat ne me donne pas le nom clair du programme (comme ce que l'on trouve dans panneau de config - programme)

comment puis-je récupérer la liste de tous mes logiciels en clair?

Merci d'avance

igloobel

[omen999]

salut,
http://www.microsoft.com/technet/scr....mspx?mfr=true

[Igloobel]

Merci

Bon j'ai a peu près compris ce que fais le script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\scripts\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.InstallLocation & vbtab & _
 objSoftware.InstallState & vbtab & _
 objSoftware.Name & vbtab & _
 objSoftware.PackageCache & vbtab & _
 objSoftware.SKUNumber & vbtab & _
 objSoftware.Vendor & vbtab & _
 objSoftware.Version
Next
objTextFile.Close
Msgbox "Création du fichier terminé !" & vbCrLf & "Sur : c:\scripts\software.tsv"

Donc il crée un fichier texte software.tsv (Faut pas oublier de créer le répertoire) qui contient apparament tout ce dont j'ai besoin, par le biais d'une requête Sql (Dejà pour moi là c'est chaud).

Je supose que le : objSoftware.Name correspond au nom du logiciel.
Seulement voilà je voudrais afficher le résultat dans un Msgbox et la tronche du fichier Texte me fait peur

Si quelqu'un peut me dire comment exploiter ce fichier texte merci d'avance