| | auteur : ThierryAIM |
VBScript (Microsoft Visual Basic Scripting Edition) est un langage de script d'usage général, dérivé de Microsoft Visual Basic.
Apparu avec Internet Explorer 3, il est utilisable soit en ligne de commande, soit directement dans l'environnement Windows
ou dans la plupart des navigateurs web.
VBScript est un langage interprété, ne nécessitant pas de compilateur spécifique, contrairement aux langages compilés, mais il a besoin d'un interpréteur,
capable de comprendre et d'exécuter les instructions contenues dans le script.
Installé de base depuis Windows 98, l'interpréteur le plus couramment utilisé dans l'environnement Windows est wscript.exe
L'équivalent de wscript.exe pour une exécution en ligne de commande est cscript.exe
Les fichiers de type VBScript ont généralement l'extension .vbs
|
| | auteur : bbil |
Deux interpréteurs de script sont disponible sous Windows :
- Wscript : pour le mode graphique
- Cscript : pour le mode texte
pour changer l'interpréteur par défaut, on utilise la commande :
Pour choisir Wscript :
Pour choisir Cscript :
Nota : On préférera utiliser CScript, qui présente l'avantage d'avoir une commande d'affichage "Wscript.Echo" non bloquante là où WScript utilise une boîte de message (message box) réclamant une action de l'opérateur
|
| | auteur : ThierryAIM |
Comme dans tous les langages, même si VBScript est très permissif à ce niveau, il est recommandé de déclarer toutes les variables utilisées dans le code.
Mais, contrairement aux langages Visual Basic 6 (VB6) ou Visual Basic for Application (VBA), en VBScript, le typage des variables se fait
au moment de l'assignation, et non pas lors de la déclaration.
Autrement dit, vous ne devez pas utiliser de déclaration Dim ... As ... , mais simplement Dim ...
Déclarations correctes :
| VBS |
Dim i
Dim MonText
Dim toto, titi
Dim arg1, arg2, arg3
|
Déclarations incorrectes :
Dim i As Integer
Dim MonText As String
|
|
| | auteur : bbil | | VBS |
MsgBox "Appuyer sur OK pour lancer la pause"
Wscript.Sleep 2000
MsgBox "2 secondes Plus tard"
|
|
| | auteur : Forum |
La méthode Quit permet de mettre fin à un script immédiatement :
| VBS |
If MyVar = 0 Then WScript.Quit
|
|
| | auteur : ThierryAIM |
Affiche le nom et chemin complet du script en cours d'exécution :
| VBS |
MsgBox WScript.ScriptFullName
|
Affiche le nom du script en cours d'exécution :
| VBS |
MsgBox WScript.ScriptName
|
|
| | auteur : bbil | Grâce à l'objet WshArguments ..
créer un fichier msgbox.vbs code :
| msgbox.VBS |
If wscript.Arguments.length = 2 Then
MsgBox wscript.arguments(0),wscript.arguments(1), "FaqVbs"
Else
wscript.Echo "Nombre d'arguments incorrect"
Wscript.Echo "MsgBox Message iType"
End if
|
puis pour l'appel du code exécuter en ligne de commande :
| Ligne de commande |
MsgBox "Bonjour à tous " 48
|
|
| | auteur : Baptiste Wicht |
Pour récupérer la date et l'heure courante sous forme de chaîne , il suffit d'utiliser la variable prédéfinie Now. Voici ce que vaut la variable Now à l'heure ou j'écrit ces lignes :
Cette variable est donc très pratique pour l'affichage. Mais si on désire faire des calculs sur des parties de l'heure courante seulement, par exemple, si on a besoin de récupérer les secondes, ce n'est pas très pratique. On pourrait bien évidemment parser la chaîne pour récupérer ce dont on a besoin, mais on a pas besoin de se donner ce mal, car VBS possède déjà les fonctions nécessaires :
- Year : Retourne l'année de la date
- Month :Retourne le mois de la date
- Day : Retourne le jour de la date
- Hour : Retourne l'heure de la date
- Minute : Retourne les minutes de la date
- Second : Retourne les secondes la date
Il suffit de passer Now en paramètre de ces fonctions pour récupérer les éléments voulus.
| VBS | WScript.Echo Day(Now)& "."& Month(Now)& "."& Day(Now)& "."& Year(Now)& " "& Hour(Now)& ":"& Minute(Now)& ":"& Second(Now)
|
|
| | auteur : bbil |
Grâce à une combinaison de la fonction WeekDay qui, à partir d'une date, renvoi le numéro (1 à 7 ) du jour de la semaine...
et la fonction WeekDayName qui, à partir de ce numéro, renvoi le nom du jour :
| VBS |
Dim d
Dim stJs
d = now
stJS = WeekDayName(WeekDay(d))
Wscript.Echo " Nous sommes un : " & stJs
|
|
| | auteurs : bbil, ThierryAIM |
Avec la méthode BrowseForFolder de l'objet Shell.Application :
| VBS |
Const RETURNONLYFSDIRS = &H1
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "c:\")
If oFolder is Nothing Then
MsgBox "Abandon opérateur",vbCritical
Else
Set oFolderItem = oFolder.Self
MsgBox oFolderItem.path
End If
Set oFolderItem = Nothing
Set oFolder = Nothing
Set oShell = Nothing
|
Quelques compléments intéressants à cette fonction :
Supprimer le bouton "Créer un nouveau dossier" :
| VBS |
Const RETURNONLYFSDIRS = &H1
Const NONEWFOLDERBUTTON = &H200
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS + NONEWFOLDERBUTTON, "c:\")
|
Ajouter un label d'aide en ligne :
| VBS |
Const RETURNONLYFSDIRS = &H1
Const NONEWFOLDERBUTTON = &H200
Const UAHINT = &H100
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS + NONEWFOLDERBUTTON + UAHINT, "c:\")
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|
