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