FAQ VBScriptConsultez toutes les FAQ
Nombre d'auteurs : 16, nombre de questions : 108, dernière mise à jour : 2 mars 2019 Ajouter une question
Cette FAQ VB Script est le fruit de la collaboration de l'équipe de rédaction et des membres du forum VB.
Aidez-nous à faire vivre cette FAQ en participant au forum Vos contributions VBScript.
Pour toutes questions ou tous problèmes concernant cette FAQ, vous pouvez contacter par MP ThierryAIM ou bbil.
L'équipe de rédaction de Developpez.com vous remercie pour votre participation passée et à venir.
L'objet WshEnvironment contient les variables d'environnement de Windows:
Vous pouvez accéder aux variables de type :
- Process
- System
- User
- Volatile
L'exemple suivant affiche le nom de l'utilisateur courant :
| Code vb : | Sélectionner tout |
1 2 3 | Set WshShellObj = WScript.CreateObject("WScript.Shell") Set WshProcessEnv = WshShellObj.Environment("Process") WScript.Echo WshProcessEnv("USERNAME") |
L'exemple suivant affiche la variable d'environnement PATH du système :
| Code vb : | Sélectionner tout |
1 2 3 | Set WshShell = WScript.CreateObject("WScript.Shell") Set WshProcessEnv = WshShell.Environment("Process") WScript.Echo "PATH = " & WshProcessEnv("PATH") |
L'exemple suivant affiche les informations du processeur :
| Code vb : | Sélectionner tout |
1 2 3 4 5 6 | Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("System") WScript.Echo WshSysEnv("PROCESSOR_ARCHITECTURE") & vbCr _ & WshSysEnv("PROCESSOR_IDENTIFIER") & vbCr _ & WshSysEnv("PROCESSOR_LEVEL") & vbCr _ & WshSysEnv("PROCESSOR_REVISION") |
La propriété Count de l'objet WshEnvironment renvoie le nombre de variables d'environnement dans le type sélectionné :
| Code vb : | Sélectionner tout |
1 2 3 | Set WshShell = WScript.CreateObject("WScript.Shell") Set WshProcessEnv = WshShell.Environment("Process") WScript.Echo WshProcessEnv.Count |
La propriété Environment de l'objet WshShell renvoie une collection WshEnvironment de variables.
La création d'une variable se fait lors de l'affectation à une valeur, la méthode remove permet d'effacer la variable environnement
| Code vb : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 | Dim WshShell, WshProcessEnv Set WshShell = WScript.CreateObject("WScript.Shell") Set WshProcessEnv = WshShell.Environment("Process") 'Créer une variable d'environnement WshProcessEnv("DVP") = "developpez.com" 'Affiche la variable WScript.Echo WshShell.ExpandEnvironmentStrings("La valeur de la variable DVP = '%DVP%'") WshProcessEnv.Remove "DVP" WScript.Echo WshShell.ExpandEnvironmentStrings("Aprés l'avoir effacée : '%DVP%'") |
En utilisant un appel à l'application magnétophone de Windows.
| Code vb : | Sélectionner tout |
1 2 3 4 5 | Option explicit Dim stFicSon,WshShell Set WshShell = WScript.CreateObject("WScript.Shell") stFicSon = "C:\WINDOWS\Media\chimes.wav" WshShell.Run "sndrec32 /play /embedding /close " & stFicSon , 0, true |
En utilisant GetRef
| Code vb : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 | Function AddNum(lNum1,lNum2) AddNum = lNum1 + lNum2 End Function Function MultNum(lNum1,lNum2) MultNum = lNum1 * lNum2 End Function Set FuncVar = GetRef("AddNum") MsgBox FuncVar(5,6) Set FuncVar = GetRef("MultNum") MsgBox FuncVar(5,6) |
Proposer une nouvelle réponse sur la FAQ
Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça
Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous 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'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.