Discussion :

[vince91170]

Bonjour à tous,

Je suis nouveau sur ce forum et j'aurai besoin de votre aide.

Je ne suis pas un développeur et n'y connais pas grand chose en scripting.

Récemment on m'a demandé dans ma société de lister l'ensemble des applications/logiciels installés sur le réseau.

J'ai essayé de trouver des logiciels d'inventaire gratuit car ils ne veulent pas de logiciels d'inventaire payant mais je n'en suis pas satisfait.

Je me tourne donc vers le scripting VBS.

Connaitriez-vous un script qui permet de lister les applications/logiciels installés sur des machines dans un domaine avec plusieurs sous-réseaux.

Par exemple au lancement le script me demandrait quel sous-réseaux je veux attaquer et avec quel compte se connecter aux machines distantes et par la suite me mettrai cela dans un fichier excel avec comme colonne "nom de la machine, nom appli, version, serial du logiciel"

Merci de votre retour

[hackoofr]

Bonjour à tous,
Je suis nouveau sur ce forum et j'aurai besoin de votre aide.
Je ne suis pas un développeur et n'y connais pas grand chose en scripting.
Récemment on m'a demandé dans ma société de lister l'ensemble des applications/logiciels installés sur le réseau.
J'ai essayé de trouver des logiciels d'inventaire gratuit car ils ne veulent pas de logiciels d'inventaire payant mais je n'en suis pas satisfait.
Je me tourne donc vers le scripting VBS.
Connaitriez-vous un script qui permet de lister les applications/logiciels installés sur des machines dans un domaine avec plusieurs sous-réseaux.
Par exemple au lancement le script me demandrait quel sous-réseaux je veux attaquer et avec quel compte se connecter aux machines distantes et par la suite me mettrai cela dans un fichier excel avec comme colonne "nom de la machine, nom appli, version, serial du logiciel"
Merci de votre retour

Salut Bon j'ai ce script pour une machine locale qui donne son inventaire dans un fichier CSV avec ses applications installées!
Donc inspire-toi de ce script pour le moment qui lui manque la partie réseau

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
33
34
35
36
37
38
39
40
41
42
43
Function inventaire
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
inventaire=software
call Explorer("Inventaire " & strComputer & ".csv")
end function
 
Function Explorer(File)
'  Ouverture du Dossier par l'explorateur windows
If Err.Number = vbEmpty Then
   Set objShell = CreateObject("WScript.Shell")
   objShell.Run ("Explorer" & " " & File & "\")
Else
MsgBox "VBScript Error: " & Error(Err.Number)
End If
end Function
 
Call inventaire

[omen999]

bonjour,
avec juste la précision que ça ne liste que les applications qui ont sagement enregistré
leurs paramètres de désinstallation dans la bdr
les applications (in)volontairement "portables" ou affligées de routines
de désinstallation "maison" (comprendre foireuses) n'apparaitront pas.