Discussion :

[nicolas.ja]

Bonjour, j'aurais besoin que vous m'aidiez a créer un script vbs sachant que je n'ai presque aucune connaissance dans ce domaine.
J'aimerais que mon script vérifie si l'agent FusionInventory Agent 2.4.3 est installer alors le script s'arrête tout de suite, cependant si il n'est pas installer ou si c'est une autre version alors le script continue.

Ou si ce n'est pas possible j'aimerais qu'il crée un fichier txt (exemple.txt) dans le répertoire temp si ce fichier existe le script s'arrête (sans afficher de message si possible) mais si il n'existe pas alors il le crée puis le script continue.
Pour la deuxième options je partais sur çà mais ça ne fonctionne pas

Code :

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

1
2
3
4
5
6
if FileExists("toto.txt") Then
MsgBox0,"attention","ce script à déja été éxécuté"
EndIF
 
if $file = CreateFile("toto.txt", 2)
MsgBox0,"ok","execution du script pour la premiere fois"

Merci d'avance aux personnes qui vont m'aider

[omen999]

bonjour,

je commencerais par m'inspirer du script écrit par les auteurs de FusionInventory

[nicolas.ja]

C'est ce que j'ai fait mais il ne permet pas de faire ce que je veut... donc j'ai besoin de rajouter quelques lignes pour que le script ne s’exécute pas si l'agent est déjà installé.

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
if FileExists("toto.txt") Then
	MsgBox0,"attention","ce script à déja été éxécuté"
	WScript.Quit 'mettre fin au script
End If
'continuer le script puisque l'absence de toto.txt indique que le script n'a pas encore été exécuté.
'.......
'.......

[nicolas.ja]

C'est bon le problème est régler mais j'aimerais connaitre la commande qui me permet de ne pas afficher tout les message pendant l'éxecution du script, j'aimerais que rien ne s'affiche et que le script s'execute quand même

[l_autodidacte]

Code :

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

1
2
3
4
if FileExists("toto.txt") Then
    MsgBox0,"attention","ce script à déja été éxécuté"
    WScript.Quit
End If

Je ne pense pas qu'il existe une fonction MsgBox0; sauf s'il s'agit d'une construction en local; et même si c'est le cas, le premier paramètre s'en sépare par une virgule !!!!

[ProgElecT]

Salut

Je ne pense pas qu'il existe une fonction MsgBox0....!

faute de frappe, MsgBox"attention","ce script à déjà été exécuté"

[l_autodidacte]

Je n'avais jamais tapé ceux qui étaient mes élèves, que dire d'un grand ProgElecT !
C'était à l'intension du posteur de la requête qui l'avait écrite sous cette forme.
De plus : MsgBox "attention","ce script à déjà été exécuté" devrait avoir la syntaxe :
MsgBox(prompt[, buttons][, title][, helpfile, context]) ; Donc le second paramètre représente le type de bouton à afficher.
Au final, cela devrait être : MsgBox "attention, ce script à déjà été exécuté" .
Et c'est toujours à lui que j'adresse la parole.