**HOWTO:** `Set d = CreateObject(« Scripting.Dictionary »)`

**Description**
Crée un dictionnaire clé/valeur (très pratique pour indexer des données).

**Syntax**
`Set d = CreateObject(« Scripting.Dictionary »)`

**Paramètres**
– *(aucun)*

**Retour**
Objet `Scripting.Dictionary`.

**Exemples**
« `vb
Dim d
Set d = CreateObject(« Scripting.Dictionary »)
d.Add « host », « pleasant.ch »
If d.Exists(« host ») Then WScript.Echo d.Item(« host »)
« `

**Voir aussi**
`Dictionary.Add`, `Dictionary.Exists`, `Dictionary.Keys`

**METHOD:** `shell.RegRead(path) / shell.RegWrite(path, value[, type])`

**Description**
Lit/écrit des valeurs dans le registre Windows.

**Syntax**
`shell.RegRead(path) / shell.RegWrite(path, value[, type])`

**Paramètres**
– `path` : Chemin complet (ex: « HKCUSoftware…ValueName »).

**Retour**
Valeur lue (RegRead) / rien (RegWrite).

**Notes**
– Attention : permissions nécessaires selon la ruche/clé.
– Toujours tester en environnement de dev avant prod.

**Exemples**
« `vb
Dim shell
Set shell = CreateObject(« WScript.Shell »)
‘ Exemple: écrire puis relire (HKCU)
shell.RegWrite « HKCUSoftwarepleasantDemo », « ok », « REG_SZ »
WScript.Echo shell.RegRead(« HKCUSoftwarepleasantDemo »)
« `

**Voir aussi**
`WshShell.RegDelete`

**METHOD:** `shell.Exec(command)`

**Description**
Exécute une commande et permet de lire stdout/stderr via l’objet retourné.

**Syntax**
`shell.Exec(command)`

**Paramètres**
– `command` : Commande à exécuter (ex: « cmd /c ipconfig »).

**Retour**
Objet Exec (avec `StdOut`, `StdErr`, `Status`, etc.).

**Exemples**
« `vb
Dim shell, exec
Set shell = CreateObject(« WScript.Shell »)
Set exec = shell.Exec(« cmd /c echo hello »)
WScript.Echo exec.StdOut.ReadAll
« `

**Voir aussi**
`WshShell.Run`, `WScript.Echo`

**METHOD:** `shell.Run(command[, windowStyle[, waitOnReturn]])`

**Description**
Exécute une commande/programme.

**Syntax**
`shell.Run(command[, windowStyle[, waitOnReturn]])`

**Paramètres**
– `command` : Commande (ex: « notepad.exe » ou « cmd /c dir »).
– `waitOnReturn` : `True` pour attendre la fin.

**Retour**
Code retour si `waitOnReturn=True`, sinon 0 (selon contexte).

**Exemples**
« `vb
Dim shell
Set shell = CreateObject(« WScript.Shell »)
shell.Run « notepad.exe », 1, False
« `

**Voir aussi**
`WshShell.Exec`, `WshShell.Popup`

**PROPERTY:** `WScript.Arguments`

**Description**
Accès aux arguments de ligne de commande.

**Syntax**
`WScript.Arguments`

**Paramètres**
– *(aucun)*

**Retour**
Objet `WScript.Arguments`.

**Exemples**
« `vb
Dim i
For i = 0 To WScript.Arguments.Count – 1
WScript.Echo i & « :  » & WScript.Arguments(i)
Next
« `

**Voir aussi**
`WScript.Arguments.Count`, `WScript.Arguments.Item`

**METHOD:** `WScript.Echo message`

**Description**
Affiche un message (console sous cscript.exe, popup implicite sous wscript.exe selon contexte).

**Syntax**
`WScript.Echo message`

**Paramètres**
– `message` : Texte/valeur à afficher.

**Retour**
Aucun.

**Exemples**
« `vb
WScript.Echo « Hello pleasant.ch »
« `

**Voir aussi**
`WScript.Quit`

**METHOD:** `ts.ReadLine`

**Description**
Lit une ligne (jusqu’au retour à la ligne) dans un `TextStream`.

**Syntax**
`ts.ReadLine`

**Paramètres**
– *(aucun)*

**Retour**
Chaîne (la ligne).

**Exemples**
« `vb
Dim fso, ts
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set ts = fso.OpenTextFile(« C:tempdemo.txt », 1)
Do While Not ts.AtEndOfStream
WScript.Echo ts.ReadLine
Loop
ts.Close
« `

**Voir aussi**
`TextStream.AtEndOfStream`, `FileSystemObject.OpenTextFile`

**METHOD:** `fso.CreateTextFile(path[, overwrite[, unicode]])`

**Description**
Crée un fichier texte et retourne un `TextStream` pour écrire.

**Syntax**
`fso.CreateTextFile(path[, overwrite[, unicode]])`

**Paramètres**
– `path` : Chemin du fichier.
– `overwrite` : `True` pour écraser si existe.

**Retour**
Un objet `TextStream`.

**Exemples**
« `vb
Dim fso, ts
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set ts = fso.CreateTextFile(« C:tempdemo.txt », True)
ts.WriteLine « Hello from VBScript »
ts.Close
« `

**Voir aussi**
`TextStream.WriteLine`, `FileSystemObject.OpenTextFile`

**METHOD:** `fso.OpenTextFile(path, iomode[, create[, format]])`

**Description**
Ouvre un fichier texte et retourne un `TextStream` pour lire/écrire.

**Syntax**
`fso.OpenTextFile(path, iomode[, create[, format]])`

**Paramètres**
– `path` : Chemin du fichier.
– `iomode` : 1=ForReading, 2=ForWriting, 8=ForAppending

**Retour**
Un objet `TextStream`.

**Exemples**
« `vb
Dim fso, ts
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set ts = fso.OpenTextFile(« C:tempdemo.txt », 1)
WScript.Echo ts.ReadAll
ts.Close
« `

**Voir aussi**
`FileSystemObject.CreateTextFile`, `TextStream.ReadLine`, `TextStream.WriteLine`