Discussion :

[help57]

Bonjour a tous,
mon script me permet de lister dans un fichier txt les applications installées sur un serveur
Problème il fonctionne en local seulement sous 2008 mais pas sur 2003 et lorsque j'essaye de lister les applicatifs directement via un fichier .txt ou les noms des serveur sont référencés ça ne fonctionne pas non plus
ci dessous mon script.

Merci pour votre aide

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
Set objFSO = WScript CreateObject("Scripting.FileSystemObject")
Set Ts1 = fso.OpenTexteFile("nom fichier texte avec nom des serveur")
 
'Nouveau fichier avec résultat
Set Ts2 = objFSO.CreateTextFile("C:\Documents and Settings\mhn1\My Documents\listeapplication.txt", True)
 
while not ts1.AtEndOfStream
computer=ts1.ReadLine
 
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set WMIset = objWMIService.ExecQuery _
  ("Select * from Win32_Product")
Ts2.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 WMIset
  Ts2.WriteLine objSoftware.Caption & vbtab & _
  Ts2.Description & vbtab & _
  Ts2.IdentifyingNumber & vbtab & _
  Ts2.InstallDate2 & vbtab & _
  Ts2.InstallLocation & vbtab & _
  Ts2.InstallState & vbtab & _
  Ts2.Name & vbtab & _
  Ts2.PackageCache & vbtab & _
  Ts2.SKUNumber & vbtab & _
  Ts2.Vendor & vbtab & _
  Ts2.Version
Next
Wend
Ts2.close
Ts1.close

[pitchalov]

Bonjour,
Sans analyser le script et les requêtes WMI en détail, cette erreur saute aux yeux :

Code :

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

1
2
3
computer=ts1.ReadLine
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

--> ta requête WMI ne se fait pas sur la liste contenue dans le fichier texte.

Commence déjà par là :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set objFSO = WScript CreateObject("Scripting.FileSystemObject")
Set ts1= fso.OpenTexteFile("nom fichier texte avec nom des serveur")
'...
While not ts1.AtEndOfStream
	strComputer=ts1.ReadLine
	Set objWMIService = GetObject("winmgmts:" _
	  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	'...
Wend
'...

Autre conseil : c'est un détail mais respecter la casse entre les variables est un plus

Bonne continuation.

[help57]

merci beaucoup pour tes informations
le script tourne bien
Le seul probléme est qu'il ne me liste pas toutes les applications.
Du coup j'utilse un autre script ,trouver sur le net qui me liste toutes les applications
J'ai apporté une modif afin de récuperer ma liste des serveurs se trouvant dans un txt mais ca ne fonctionne pas
En fait je ne sais pas ou placer ma variable Strcomputer dans le script
Merci d'avance

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ts1 = fso.OpenTextFile("C:\Users\mhn1\Documents\nomsrv.txt")
Set Ts2 = fso.CreateTextFile("C:\Users\mhn1\Documents\listeapplication.txt", True)
while not ts1.AtEndOfStream
Strcomputer=ts1.ReadLine 
 
Const HKLM = &h80000002
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
objCtx.Add "__ProviderArchitecture", 32
objCtx.Add "__RequiredArchitecture", TRUE
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv")
 
 
 
Ts2.WriteLine  "32-bit Applications"
 
Ts2.WriteLine  "-------------------" 
 
Call GetApplications 
 
objCtx.Add "__ProviderArchitecture", 64
objCtx.Add "__RequiredArchitecture", TRUE
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv") 
 
Ts2.WriteLine "64-bit Applications" 
Ts2.WriteLine "-------------------"
 
On Error resume next  
 
Call GetApplications 
 
Sub GetApplications 
 
' Use ExecMethod to call the GetStringValue method
Set Inparams = objStdRegProv.Methods_("EnumKey").Inparameters
Inparams.Hdefkey = HKLM
Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" 
 
set Outparams = objStdRegProv.ExecMethod_("EnumKey", Inparams,,objCtx) 
 
 
For Each strSubKey In Outparams.snames 
 
Set Inparams = objStdRegProv.Methods_("GetStringValue").Inparameters
Inparams.Hdefkey = HKLM
Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & strSubKey
Inparams.Svaluename = "DisplayName"
set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx) 
 
if ("" & Outparams.sValue) = "" then
 Ts2.WriteLine strSubKey
Else
 Ts2.WriteLine Outparams.SValue
End iF 
 
Inparams.Svaluename = "QuietDisplayName"
set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx)
Ts2.WriteLine "Outparams.SValue"
 
Next 
 
End Sub

[pitchalov]

Bonjour,
Un peu de lecture pour savoir où placer la variable Strcomputer : SWbemLocator.ConnectServer method
Conseil à prendre où à laisser : Indenter ton code le rendrait beaucoup plus lisible.
Bonne continuation

[Cachlab]

Bonjour help57,

Le strComputer est pris en compte en ligne 12 et 26 :

Code :

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

Set objServices = objLocator.ConnectServer(strComputer,"root\default","","",,,,objCtx)

Cependant, il y a également un souci avec ta boucle de lecture (ligne 4).
Voici ce que je te propose :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ts1 = fso.OpenTextFile("C:\Users\mhn1\Documents\nomsrv.txt")
Set Ts2 = fso.CreateTextFile("C:\Users\mhn1\Documents\listeapplication.txt", True)
do while not ts1.AtEndOfStream
strComputer=ts1.ReadLine
 
Const HKLM = &h80000002
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
objCtx.Add "__ProviderArchitecture", 32
objCtx.Add "__RequiredArchitecture", TRUE
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer(strComputer,"root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv")
 
Ts2.WriteLine vbNewLine  & strComputer & vbNewLine
Ts2.WriteLine  "32-bit Applications"
Ts2.WriteLine  "-------------------" 
 
Call GetApplications
 
objCtx.Add "__ProviderArchitecture", 64
objCtx.Add "__RequiredArchitecture", TRUE
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer(strComputer,"root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv") 
 
Ts2.WriteLine "64-bit Applications" 
Ts2.WriteLine "-------------------"
 
On Error resume next  
 
Call GetApplications
 
loop
WScript.quit
 
Sub GetApplications
 
' Use ExecMethod to call the GetStringValue method
Set Inparams = objStdRegProv.Methods_("EnumKey").Inparameters
Inparams.Hdefkey = HKLM
Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" 
 
set Outparams = objStdRegProv.ExecMethod_("EnumKey", Inparams,,objCtx) 
 
For Each strSubKey In Outparams.snames 
 
Set Inparams = objStdRegProv.Methods_("GetStringValue").Inparameters
Inparams.Hdefkey = HKLM
Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & strSubKey
Inparams.Svaluename = "DisplayName"
set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx) 
 
if ("" & Outparams.sValue) = "" then
 Ts2.WriteLine strSubKey
Else
 Ts2.WriteLine Outparams.SValue
End iF 
 
Inparams.Svaluename = "QuietDisplayName"
set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx)
Ts2.WriteLine "Outparams.SValue"
 
Next 
End Sub

Edit : Pour répondre à ta question par MP ...
Pour créer un fichier log par serveur, il suffit d'inclure la création (et le nomage) du fichier log dans ta boucle (ancienne ligne 3, nouvelle ligne 6) :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ts1 = fso.OpenTextFile("C:\Users\mhn1\Documents\nomsrv.txt")
 
do while not ts1.AtEndOfStream
strComputer=ts1.ReadLine
Set Ts2 = fso.CreateTextFile("C:\Users\mhn1\Documents\" & strComputer & ".txt", True)
 
Const HKLM = &h80000002
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
objCtx.Add "__ProviderArchitecture", 32
objCtx.Add "__RequiredArchitecture", TRUE
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer(strComputer,"root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv")
 
Ts2.WriteLine vbNewLine  & strComputer & vbNewLine
Ts2.WriteLine  "32-bit Applications"
Ts2.WriteLine  "-------------------" 
 
Call GetApplications
 
objCtx.Add "__ProviderArchitecture", 64
objCtx.Add "__RequiredArchitecture", TRUE
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer(strComputer,"root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv") 
 
Ts2.WriteLine "64-bit Applications" 
Ts2.WriteLine "-------------------"
 
On Error resume next  
 
Call GetApplications
 
loop
WScript.quit
 
Sub GetApplications
 
' Use ExecMethod to call the GetStringValue method
Set Inparams = objStdRegProv.Methods_("EnumKey").Inparameters
Inparams.Hdefkey = HKLM
Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" 
 
set Outparams = objStdRegProv.ExecMethod_("EnumKey", Inparams,,objCtx) 
 
For Each strSubKey In Outparams.snames 
 
Set Inparams = objStdRegProv.Methods_("GetStringValue").Inparameters
Inparams.Hdefkey = HKLM
Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & strSubKey
Inparams.Svaluename = "DisplayName"
set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx) 
 
if ("" & Outparams.sValue) = "" then
 Ts2.WriteLine strSubKey
Else
 Ts2.WriteLine Outparams.SValue
End iF 
 
Inparams.Svaluename = "QuietDisplayName"
set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx)
Ts2.WriteLine "Outparams.SValue"
 
Next 
End Sub

[help57]

Merci a tous pour votre aide.
Le script fonctionne bien.
Jai utilisé la solution de Cachlab