**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`

**STATEMENT:** `If…Then…Else`

**Description**
Branche conditionnelle classique.

**Syntax**
`If…Then…Else`

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

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim x
x = 10
If x > 5 Then
WScript.Echo « x est > 5 »
Else
WScript.Echo « x est <= 5" End If ```

**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`

**STATEMENT:** `For…Next`

**Description**
Boucle numérique.

**Syntax**
`For…Next`

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

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim i
For i = 1 To 3
WScript.Echo i
Next
« `

**METHOD:** `fso.FolderExists(path)`

**Description**
Teste si un dossier existe.

**Syntax**
`fso.FolderExists(path)`

**Paramètres**
– `path` : Chemin du dossier.

**Retour**
True/False

**Exemples**
« `vb
Dim fso
Set fso = CreateObject(« Scripting.FileSystemObject »)
WScript.Echo fso.FolderExists(« C:Windows »)
« `

**Voir aussi**
`FileExists`, `GetFolder`

**STATEMENT:** `For Each…Next`

**Description**
Boucle sur une collection (ex: Dictionary, FSO.Files, etc.).

**Syntax**
`For Each…Next`

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

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim d, k
Set d = CreateObject(« Scripting.Dictionary »)
d.Add « a », 1
d.Add « b », 2
For Each k In d.Keys
WScript.Echo k & « = » & d.Item(k)
Next
« `

**FUNCTION:** `Round(number[, numdecimalplaces])`

**Description**
Arrondit un nombre (décimales optionnelles).

**Syntax**
`Round(number[, numdecimalplaces])`

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

**Exemples**
« `vb
WScript.Echo Round(12.3456, 2)
« `

**Output :** `12.35`

**STATEMENT:** `Do…Loop`

**Description**
Boucle conditionnelle (While/Until).

**Syntax**
`Do…Loop`

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

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim i
i = 0
Do While i < 3 WScript.Echo i i = i + 1 Loop ```

**FUNCTION:** `Int(number)`

**Description**
Retourne la partie entière (arrondi vers -inf).

**Syntax**
`Int(number)`

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

**Exemples**
« `vb
WScript.Echo Int(2.9)
WScript.Echo Int(-2.1)
« `

**Output :** `2 ; -3`

**STATEMENT:** `Select Case`

**Description**
Alternative propre à une chaîne de If/ElseIf.

**Syntax**
`Select Case`

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

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim role
role = « admin »
Select Case LCase(role)
Case « admin »
WScript.Echo « Accès complet »
Case « user »
WScript.Echo « Accès standard »
Case Else
WScript.Echo « Accès inconnu »
End Select
« `