Bonjour

jútilise ton batch pour faire un inputbox sous une fenetre cmd dans XP.
Je l ai appeler Valbox.vbs
dans mon fichier batch je l appele comme ceci :

call Valbox.vbs /T"Titre de la Valbox " /Q"texte dans la Valboxe" /F"C:\valbox.txt"

Ca marche tres bien mais j aimerai gerer l apuis sur le bouton annuler et le bouton fermeture (croix rouge).
J ai esayer avec des errorlevel en sortie mais apparement je recupere toujours la valeur 0.
Peut tu me donner ton avis sur une solution STP

Une autre remarque
l argument /T ne marche pas chez moi (mauvaise manip ?)
j ai rajouter un nouveau argument /F pour donner un chemin et nom de fichier. Celui ci marche corectement.

Encore une autre remarque :
Est ce normal que le texte est donner en minuscule et que le resultat dans le fichier soit en majuscule ?


merci et @+

Voici le code vbs

rem ____________________________________________________________________________ 
rem  Script de recupération de valeurs via POPUP Windows pour Batch Dos 
rem Syntaxe : ValBox /Q<Question incitant la saisie> /T<Titre de la fenêtre> 
rem Génère l'écriture dans le fihier C:\temp.tmp de la valeur saisie 
rem Ctec2i | JMB | 18/10/2006 
rem  ____________________________________________________________________________ 
Set sh = Wscript.CreateObject("WScript.Shell") 
Set envSyst = sh.Environment("SYSTEM") 
Set args=Wscript.Arguments 
nbargs=args.count 

If testarg("T") Then 
Titre=getarg 
End If 

If testarg("Q") Then 
Question=getarg 
End If 

If testarg("F") then
Fichier_=getarg
end If

Set fs = CreateObject("Scripting.FileSystemObject") 
Set fich = fs.OpenTextFile(Fichier_, 2, true) 
Change = UCase(Inputbox(Question,Titre)) 
fich.writeLine Change 
fich.close 
Wscript.Quit 
Set envSyst = nothing 
set sh=nothing 

Function testarg(param) 
testarg=false 
getarg="" 
For i = 0 To nbargs-1 
curarg=args(i) 
If left(curarg,1)="/" Then 
If mid(ucase(curarg),2,1)=param Then 
getarg=mid(curarg,3,len(curarg)) 
testarg=true 
exit function 
End If 
End If 
Next 
End Function