Script qui affiche l'Adresse du fichier en cours et ouvre son emplacement

CODE SCRIPT

' Trouver l'adresse du script exécuté

Script Yes or No Question avec Timeout

Code Script

' Accéder à WScript.Shell

set wshshell = CreateObject("WScript.Shell")

' posez la question et attendre 5 secondes pour avoir la réponse:

ask = "Vous êtes un homme ou une femme?"

timeout = 5

title = "Test psychologique!"

constants = vbExclamation + vbOkCancel

result = wshshell.Popup(ask, timeout, title, constants)

if result = vbCancel then

MsgBox "OK, Bienvenue Madame!"

elseif result = true then

MsgBox "Vous avez pris beaucoup de temps pour décider!!!!!!!"

else

MsgBox "Ok, Bienvenue Monsieur!"

end if

Exemple D’illustration

* Le script vous demande si vous êtes un Homme ou Une Femme

*Si la réponse est OUI, le Script vous dit « Bienvenue Monsieur »

*Si La réponse est NON, le script vous dit « Bienvenue, Madame »

*Si vous dépassez plus de cinq secondes pour répondre, le script vous signale que avez pris beaucoup de temps pour répondre :

Script avec des tests sur les variables entrées : Diagnostique de date naissance

CODE VBSCRIPT

' Demander une date

ask = "Quel est votre date de naissance?"

title = "Diagnotiquer votre Age!"

' Commencer la boucle:

do

birthday = InputBox(ask, title)

' check whether the user wants to quit:

if isEmpty(birthday) then

MsgBox "Hey! Vous pouvez entrer une date erronée pour " _

& " cacher votre age! Mais OK, Je Quite!"

WScript.Quit

elseif not isDate(birthday) then

' verifier que la valeur entrée est vraiment une date!

' Donner une occasion de saisie de la date:

MsgBox "Vous n'avez pas entré une date! Essayez à nouveau!"

end if

' boucler jusqu'à une date valide a été entrée

loop until isDate(birthday)

' à cette étape, nous avons une date valide!

' effectuer nos calcul:

age_in_days = DateDiff("d", birthday, date)

age_in_months = DateDiff("m", birthday, date)

age_in_years = DateDiff("yyyy", birthday, date)

day_born = WeekdayName(Weekday(birthday))

' calculer la date de naissance de cette année

date_day = Day(birthday)

date_month = Month(birthday)

' utiliser l'année en cours:

date_year = Year(date)

this_years_birthday = DateSerial(date_year, date_month, date_day)

' use Abs to convert to positive numbers in case the birthday’s

' already over:

days_to_birthday = Abs(DateDiff("d", date, this_years_birthday))

day_celebrating = WeekdayName(Weekday(this_years_birthday))

' passer à l'autre étape?

if this_years_birthday

message = "Vous avez déjà faité votre anniversaire " & days_to_birthday _

& " Jours Avant"

elseif this_years_birthday = date then

message = "Joyeux Anniversaire!!!"

else

message = days_to_birthday & " jours avant votre anniversaire"

end if

' output Information

msg = "Ceci est un diagnostic de votre date de naissance:" & vbCr

msg = msg + "Vous étiez née le " & birthday & vbCr

msg = msg + "Vous avez  " & age_in_years & " ans. Ce qui fait" & vbCr

msg = msg & age_in_months & " Mois ou bien " & age_in_days _

& " Jours!" & vbCr

msg = msg + "Vous étiez née un " & day_born & vbCr

msg = msg + "Cette année, votre anniversaire est le " & this_years_birthday & vbCr

msg = msg + "Il correspond à un " & day_celebrating & vbCr

msg = msg + message

MsgBox msg

EXEMPLE D’ILLUSTRATION:

*Une fois vous avez entré une date valide, le script vous donne une analyse de votre date de naissance : jour de naissance, jour ou vous fêtez votre anniversaire cette année, combien vous reste en jour :

*Le script vérifie si vous avez bien entré une date et vous demande d’entrer une date valide :

*Si voulez annuler, le script vous informe que vous pouvez faire le diagnostic avec une date erronée :

Script InputBox avec programmation du bouton annuler et de la valeur par défaut

CODE VBSCRIPT

' script input box avec réponse au bouton annuler et à la valeur par défaut

ask = "Entrez votre nom?"

title = "Identification?"

default = "??"

answer = InputBox(ask, title,default)

if answer = vbEmpty then

Botox "Vous voulez quiter le script? OK!"

WScript.Quit

elseif answer = "" or answer ="??" then

MsgBox "Vous voulez restez anonyme, ..."

else

MsgBox "Bienvenue " & answer & "!"

end if

Exemple d’Exécution

Le script vous demande votre nom avec les boutons «OK » et « ANNULER » et une valeur par défaut

Script qui compte le nombre de fichiers dans dossier s’il existe

Présentation

Vous trouvez un script qui vous demande l’adresse d’un dossier donner

Et vous renvoi le nombre de fichier dans ce dossier

Si le chemin est erroné, il vous informe que l’adresse saisie est erronée

CODE SCRIPT

' script qui compte le nombre de fichier ou de dossier

 set fs = CreateObject("Scripting.FileSystemObject")

folder = InputBox("Entrer l'adresse du dossier!", "Nombre de fichier dans un dossier", "C:\")

if fs.folderExists(folder) then

set handle = fs.GetFolder(folder)

filecount = handle.files.count

MsgBox "Le dossier contient " & filecount & " fichiers!"

else

MsgBox "Le dossier " & folder & " est inexistant!"

end if

Script qui vous donne le jour correspondant à une date donnée

Vous trouvez ci-dessous un script qui vous demande d'entrer une date quelconque:

Ensuite,  ce script vous donne le jour de la semaine correspondant à cette date:

Si l'utilisateur entre une date erronée, le script lui demande qu'il devrait la valeur entrée n'est pas une date.

CODE SCRIPT:

'script qui vous donne le jour correspondant à la date entrée
mydate = InputBox("Please enter a date!")
if isDate(mydate) then
MsgBox mydate & " : corespond un " & WeekdayName(Weekday(mydate))
else
MsgBox "Vous n'avez pas saisie une date!"
end if

Batch pour écrire une suite de phrase dans un fichier

Vous trouvez ici un batch pour écrire une suite de mot et même des paragraphes dans fichier texte sans l’ouvrir. Pour mettre fin à l’exécution du batch écrire « exit » sans guillemet et tapez sur Entré.

echo off

:debut

set /p nom=

rem ici la commande pour récupérer dans une variable "nom" ce que l'utilisateur saisie

echo %nom% >> d:\Enregistrement.txt

IF %nom% ==exit (goto fin) else (goto debut)

:fin

exit