[vbs] Comment faire Fermé

Question

Bonjour, bonsoir.

Je code déjà un peu en html et en php.
Mais cette fois si je voudrais faire quelque chose de bien spécifique en vbs,
c'est pourquoi je fais appel à votre aide.

Dans l'idéal je souhaite que mon fichier.vbs ouvre une interface, avec 2 zones de texte éditable et un bouton "submit".

Je voudrais également qu'à la pression du bouton, le contenu des deux zones soit enregistré dans un fichier texte dans c:\repertoire avec un nom particulier du genre nom du poste + date.

Quelqu'un pourrait-il m'éclairer?

Par avance merci.

LinkSX


Configuration: Windows XP / Firefox 3.0.19

LinkSX · Answer

Voici ce que j'ai réalisé si y'en à que ça peut aider =)

Ne trouvant pas d'exemples préfaits pour ce que je voulais faire, j'ai du apprendre le langage.


'------------------------------------------------------------------------------------------'
'Script réalisé par Matthieu Chianta pour le Lycée Marcel Sembat.
'chianta.rh@gmail.com
'Sous Licence GNU.
'Janvier 2011
'------------------------------------------------------------------------------------------'
sub rapport_sembat
  Const ForReading = 1, ForWriting = 2
	Set WshNetwork = WScript.CreateObject("WScript.Network")
  nomp = WshNetwork.ComputerName
  nomu = WshNetwork.UserName
  hor = DatePart("h",Now())
  jour = DatePart("d",Now())
  mois = DatePart("m",Now())
  minutes = DatePart("n",Now())
  pb = InputBox("Veuillez renseigner uniquement le problème et valider par OK." & vbcrlf & "-" & vbcrlf & "Rappel : Vous devez être raccordé au réseau pour la demande aboutisse.", "Je rencontre un problème informatique" , "")
	if pb = "" Then
  msgbox("Rapport non remis. Si vous n'arrivez pas à envoyer un rapport vérifiez que vous avez bien rempli le formulaire.") 
		exit sub
  else
	Set WshShell = WScript.CreateObject("WScript.Shell")
  Dim fso, f
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile( "LE_CHEMIN_DU_REPERTOIRE_OU_SE_CREER_LE_FICHIER" & nomp & "_LE" & jour & "." & mois & "A" & hor & "H" & minutes & ".txt", ForWriting,true) 
   f.write("Rapport signalé le " & jour & "/" & mois & " à " & hor & "H" & minutes & "")
   f.write VbCrLf
   f.write("_______________________________________________")
   f.write VbCrLf
   f.write("Provenance du rapport : " & nomp & "")
   f.write VbCrLf
   f.write("Utilisateur ayant signalé le rapport : " & nomu & "")
   f.write VbCrLf
   f.write("===============================================")
   f.write VbCrLf
   f.write("Détails du rapport :")
   f.write VbCrLf
   f.write("" & pb & "")
   f.write VbCrLf
   f.write ("-----------------------------------------------")
   f.write VbCrLf
   f.write ("Fin du rapport.") 
   msgbox("Le rapport est remis")
	end if
		end sub 
 
 rapport_sembat()


Il n'y a que la ligne 24 à modifier. Vous aurez juste besoin de mettre le chemin du répertoire qui devra contenir les fichiers textes.

[vbs] Comment faire

1 réponse

Discussions similaires