vbs tester si une application existe

Version imprimable

01/03/2010, 10h31
notar

vbs tester si une application existe

bonjour,
débutant, j'ai eu beau chercher, soit dans l'aide vbs, soit sur le net, je n'ai pas trouvé de fonction me signifiant si une application ( excel, word,...) existe sur le poste.
en effet, quand je fais:

AppExcel = CreateObject("Excel.Application")

soit je crée l'objet, soit j'ai une erreur.
en fait, je souhaite vérifier si une appli existe avant de lancer mon script vbs; et la, je sèche.

si vous pouviez m'orienter pour une solution.
merci d'avance.
Notar
03/03/2010, 10h06
Flamby38

En vbscript il existe un moyen de gérer les erreurs en ajoutant en début de script la manière de gérer les erreurs.

Par exemple tu peut lui mettre en première ligne "on error resume next" ce qui fera que ton script ne tient pas compte des erreurs, ou alors "on error goto GESTION_ERREUR" avec un pavé de gestion d'erreur qui commence par "GESTION_ERREUR : ".

bonjour,
en cherchant, j'ai touvé et adapté ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 strComputer = "." set fso =CreateObject ("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where FileName = 'excel' and Extension='exe'") For Each objFile in colFiles dim DriveRoot, DrivePath Set fso = CreateObject("Scripting.FileSystemObject") DriveRoot = objFile.drive DrivePath = objFile.path If (fso.FileExists(DriveRoot&DrivePath&"excel.exe" ))Then Wscript.echo DriveRoot&DrivePath&"excel.exe" End If Next
c'est impeccable mais avec un ordi cadencé à 2.66GHz avec 500Mo de RAM et un DD de 40 Go, çà met environ 45'' pour obtenir le résultat.
Y-a-t-il une autre procédure qui pourrait accélérer notablement l'execution de la requête?
merci d'avance pour vos contributions.
Notar

03/03/2010, 10h10
notar

merci Flamby38, je vais de ce pas employer ta solution.

en fait, ce sont deux scripts:
le premier formate un fichier xls

Code:

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
 
Dim xlapp, classeur, feuille, Selection
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = false
alert(xlapp)
xlapp.DisplayAlerts = FALSE
Set classeur = xlapp.Workbooks.open("C:\........\*.xls")
Set feuille = classeur.ActiveSheet
Set Selection = feuille.Columns("D:D")
With Selection
.ColumnWidth = 80
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Set Selection = feuille.Columns("C:C")
With Selection
.ColumnWidth = 30
.WrapText = True
End With
Set Selection = feuille.Columns("A:A")
With Selection
.ColumnWidth = 10
.WrapText = True
End With
classeur.Save
classeur.Close  'quitte en sauvant
xlapp.quit
Set classeur = Nothing
Set xlapp = Nothing

le second envois ce fichier formaté

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
With CreateObject("CDO.Message")
.From="toto@wanadoo.fr"
.To="tata@hotmail.com"
.Subject="rapport hebdo pour la semaine 1 de 2010"
.TextBody="Bonjour.Veuillez trouver, ci-joint, mes rapports pour la semaine 1 de 2010"
.AddAttachment("C:\..........\*.xls")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With

donc si je mets

Code:

1
2
 
on error resume next

en tête du premier script alors il ne s'interprètera pas et passera directement au second?

merci.

bonjour,
remplace les deux premières lignes de ton script par ceci :

Code:

1
2
3
4
5
6
7
8
9
10
Dim xlapp, classeur, feuille, Selection
On Error Resume Next
Set xlapp = CreateObject("Excel.Application")
If IsObject(xlapp) Then
  On Error GoTo 0
  MsgBox "Le serveur automation MS Excel® est actif" 
Else
  MsgBox "L'application MS Excel® n'est pas installée sur ce poste " & vbcrlf & "Bonne journée"
  WScript.Quit
End if

04/03/2010, 10h38
notar

merci omen999 pour ta contribution.
dans le cas présent je n'ai pas besoin d'indiquer que Excel est installé ou pas car je mets juste en forme un fichier excel si l'appli existe: c'est plus propre pour envoyer le fichier; par contre si l'appli n'est pas installée le fichier restera brut; à charge pour le lecteur de le mettre en forme ( largeur colonnes pour lire facilement )
mais je note, pour plus tard, la façon de faire pour savoir si l'appli existe.
04/03/2010, 10h41
notar

reste que maintenant faut que je trouve comment je vais mettre en forme ( au format excel ) à partir d'une appli Open Office.
si vous avez des pistes, je suis preneur; çà me fera gagner un temps précieux.