Bonjour à tous,
Actuellement entrain d'essayer de coder un petit script VBS je me retrouve confronté à une difficulté , manque de connaissance
Mon script consiste à demander à l'utilisateurs des informations concernant un prêt de matériel informatique ou un retour en y indiquant la date , l'heure, le nom , et le type de matériel.
Jusque la tout va bien!
Par la suite ou plutôt à la fin du script ce qui se passe c'est que j'exporte les résultats de ce dernier dans deux fichiers texte. Emprunt et Retour.
Mon souhait serait par exemple de pouvoir :
- réunir toutes les infos sur un seul fichier texte ( sans qu'il m'écrase ce dernier à chaque fois )
- Inserer une couleur pour les entrées sorties dans le fichier texte
Je vous remercie d'avance si jamais vous avez d'autres idées, ou pour toutes informations qui me sera apportée !!
Mon script :
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 strtexte = "projet Test script entree sortie materiel informatique" ' Partie box avec bouton oui non annuler ' valbout = msgbox("EMPRUNT de materiel ? ", 35, "Service Informatique") if valbout = 6 Then ' Debut du script ' ' Mot de passe ' MotDePasse = "toto" MonTest = inputbox("Entrez le mot de passe : ", "Service Informatique") If MonTest = MotDePasse Then Dateetheure = inputbox("Date et heure " , "Service Informatique") wscript.echo "Date et heure de l'emprunt " & Dateetheure Personne = inputbox("Nom de la personne? " , "Service Informatique") wscript.echo "Emprunt par : " & Personne Materiel = inputbox("Quel est le materiel? " , "Service Informatique") wscript.echo "Type de Materiel : " & Materiel wscript.echo "Recapatiulatif : " & Dateetheure & " " & Personne & " Emprunte " & Materiel ' Creation du fichier .txt recapitulatif ' Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\Users\xxxx\desktop\EMPRUNT-Materiel.txt") objFile.Write ("RECAPITULATIF EMPRUNT-Materiel || ") & Dateetheure & " || " & Personne & " || " & Materiel objFile.close Else Msgbox "MOT DE PASSE INCCORECT" End If wscript.quit End if ' Partie box avec bouton oui non annuler ' valbout = msgbox("RETOUR de materiel ? ", 35, "Service Informatique") if valbout = 6 Then ' Debut du script ' ' Mot de passe ' MotDePasse = "toto" MonTest = inputbox("Entrez le mot de passe : ", "Service Informatique") If MonTest = MotDePasse Then Dateetheure = inputbox("Date et heure " , "Service Informatique") wscript.echo "Date et heure de l'emprunt " & Dateetheure Personne = inputbox("Nom de la personne? " , "Service Informatique") wscript.echo "Emprunt par : " & Personne Materiel = inputbox("Quel est le materiel? " , "Service Informatique") wscript.echo "Type de Materiel : " & Materiel wscript.echo "Recapatiulatif : " & Dateetheure & " " & Personne & " Emprunte " & Materiel ' Creation du fichier .txt recapitulatif ' Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\Users\xxxx\desktop\RETOUR-Materiel.txt") objFile.Write ("RECAPITULATIF RETOUR-Materiel || ") & Dateetheure & " || " & Personne & " || " & Materiel objFile.close Else Msgbox "MOT DE PASSE INCCORECT" End If wscript.quit End if
Partager