**METHOD:** `shell.Environment(scope)`

**Description**
Accède aux variables d’environnement (Process/User/System).

**Syntax**
`shell.Environment(scope)`

**Paramètres**
– `scope` : « PROCESS », « USER » ou « SYSTEM ».

**Retour**
Collection de variables d’environnement.

**Exemples**
« `vb
Dim shell, env
Set shell = CreateObject(« WScript.Shell »)
Set env = shell.Environment(« PROCESS »)
WScript.Echo env(« COMPUTERNAME »)
« `

**Voir aussi**
`WshShell.ExpandEnvironmentStrings`

**FUNCTION:** `Asc(string) / Chr(charcode)`

**Description**
Convertit caractère<->code ASCII (selon encodage).

**Syntax**
`Asc(string) / Chr(charcode)`

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

**Exemples**
« `vb
WScript.Echo Asc(« A »)
WScript.Echo Chr(65)
« `

**Output :** `65 ; A`

**METHOD:** `shell.CreateShortcut(pathToLnk)`

**Description**
Crée/ouvre un raccourci `.lnk` (puis définir TargetPath, Arguments, etc.).

**Syntax**
`shell.CreateShortcut(pathToLnk)`

**Paramètres**
– `pathToLnk` : Chemin du .lnk.

**Retour**
Objet `WshShortcut`.

**Exemples**
« `vb
Dim shell, sc
Set shell = CreateObject(« WScript.Shell »)
Set sc = shell.CreateShortcut(« C:tempdemo.lnk »)
sc.TargetPath = « notepad.exe »
sc.Description = « Demo pleasant »
sc.Save
« `

**Voir aussi**
`WshShortcut.Save`

**FUNCTION:** `Sgn(number)`

**Description**
Signe d’un nombre (-1, 0, 1).

**Syntax**
`Sgn(number)`

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

**Exemples**
« `vb
WScript.Echo Sgn(-5)
WScript.Echo Sgn(0)
WScript.Echo Sgn(7)
« `

**Output :** `-1 ; 0 ; 1`

**METHOD:** `d.Add key, item`

**Description**
Ajoute une entrée clé/valeur dans un `Scripting.Dictionary`.

**Syntax**
`d.Add key, item`

**Paramètres**
– `key` : Clé (souvent String).
– `item` : Valeur associée.

**Retour**
Aucun.

**Exemples**
« `vb
Dim d
Set d = CreateObject(« Scripting.Dictionary »)
d.Add « a », 1
WScript.Echo d.Item(« a »)
« `

**Voir aussi**
`Dictionary.Exists`, `Dictionary.Item`

**METHOD:** `net.MapNetworkDrive localName, remoteName[, updateProfile[, user[, password]]]`

**Description**
Mappe un lecteur réseau (ex: Z: -> \servershare).

**Syntax**
`net.MapNetworkDrive localName, remoteName[, updateProfile[, user[, password]]]`

**Paramètres**
– `localName` : Lettre (ex: « Z: »).
– `remoteName` : Partage UNC (ex: « \servershare »).

**Retour**
Aucun.

**Notes**
– Peut nécessiter des droits/identifiants.
– Attention en environnement corporate (politiques, MFA, etc.).

**Exemples**
« `vb
Dim net
Set net = CreateObject(« WScript.Network »)
‘ net.MapNetworkDrive « Z: », « \servershare »
WScript.Echo « Mapping prêt (décommenter pour l’exécuter) »
« `

**Voir aussi**
`WshNetwork.RemoveNetworkDrive`

**METHOD:** `d.Exists(key)`

**Description**
Teste l’existence d’une clé dans un `Dictionary`.

**Syntax**
`d.Exists(key)`

**Paramètres**
– `key` : Clé à tester.

**Retour**
True/False.

**Exemples**
« `vb
Dim d
Set d = CreateObject(« Scripting.Dictionary »)
d.Add « a », 1
WScript.Echo d.Exists(« a »)
« `

**Voir aussi**
`Dictionary.Add`

**METHOD:** `re.Test(string)`

**Description**
Teste si une chaîne correspond au pattern.

**Syntax**
`re.Test(string)`

**Paramètres**
– `string` : Chaîne à tester.

**Retour**
True/False.

**Exemples**
« `vb
Dim re
Set re = CreateObject(« VBScript.RegExp »)
re.Pattern = « ^[A-Z]{2}d{2}$ »
WScript.Echo re.Test(« AB12 »)
« `

**Voir aussi**
`RegExp.Replace`, `RegExp.Execute`

**METHOD:** `re.Replace(string, replaceWith)`

**Description**
Remplace les correspondances du pattern par un texte.

**Syntax**
`re.Replace(string, replaceWith)`

**Paramètres**
– `string` : Chaîne source.
– `replaceWith` : Remplacement.

**Retour**
Chaîne modifiée.

**Exemples**
« `vb
Dim re
Set re = CreateObject(« VBScript.RegExp »)
re.Pattern = « s+ »
re.Global = True
WScript.Echo re.Replace(« a b »,  » « )
« `

**Voir aussi**
`Replace`

**FUNCTION:** `Date()`

**Description**
Retourne la date courante (sans l’heure).

**Syntax**
`Date()`

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

**Exemples**
« `vb
WScript.Echo Date
« `

**Output :** `date courante`