object
Objet WshShell. strName
Valeur de chaîne indiquant le nom de la clé, le nom de la valeur ou la valeur que vous voulez créer, ajouter ou modifier.
anyValue
Nom de la nouvelle clé que vous voulez créer, nom de la valeur que vous voulez ajouter à une clé existante ou nouvelle valeur que vous voulez assigner à un nom de valeur existant.
strType
Facultatif. Valeur de chaîne indiquant le type de données de la valeur
Le paramètre facultatif strType permet d'indiquer le type données :
Nom de clé racine
strType
Chaîne
REG_SZ
Chaîne
REG_EXPAND_SZ
Nombre entier
REG_DWORD
Nombre entier
REG_BINARY
vb
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite"HKCU\Software\dvp-faqvbs\montest",now
La fonction now renvoie ici la date et l'heure courante sous la forme d'une chaîne de caractères.
La méthode RegDelete permet d'effacer une entrée de la base de registre. Elle ne prend qu'un argument : le nom de la clé ( qui peu comporter des abréviations ..)
vb
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete ("HKCU\Software\dvp-faqvbs\montest")
Cette même méthode permet aussi d'effacer une clé (en terminant le nom de la clé par un \):
vb
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete ("HKCU\Software\dvp-faqvbs\")
Pour Windows 2000 et supérieur :
Cette astuce permet de désactiver ou d'activer le gestionnaire des tâches à partir du code de votre programme et donc, d'inhiber la séquence de touches Ctrl-Alt-Suppr.
Lorsque le gestionnaire est désactivé, le système renvoie un message d'avertissement (A utiliser avec précaution) :
Désactiver :
vb
Set WshShell =CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1"Set WshShell =Nothing
Activer :
vb
Set WshShell =CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", ""Set WshShell =Nothing
