Текст скрипта AutorunDisabled для отключения автозагрузки.
Всё, что ниже, скопировать в текстовый файл и сохранить его с именем и расширением, например, AutorunDell.vbs
Вместо рожицы со смайликом - двоеточие :
'****************************************************
'***** AutorunDisabled ************
'****************************************************
Dim WSHShell
Set WSHShell = wscript.CreateObject("wscript.Shell")
'************************************************************************************
'******** Добавляем записи в реестр *********************
'************************************************************************************
'отключаем автозагрузку через политики Windows
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servi ces\Cdrom\AutoRun", "0", "REG_DWORD"
'отключаем автозагрузку через политики Windows
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\policies\Explorer\NoDriveTypeAutoRun", "255", "REG_DWORD"
'Таким образом Windows думает, что autorun.inf нет вообще на компе и злостные команды для запуска зловредов в файле autorun.inf не выполняются
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\IniFileMapping\Autorun.inf\", "@SYS
oesNotExist"
'здесь указываются ТЕКСТОВЫЕ ПАРАМЕТРЫ ФАЙЛОВ, КОТОРЫЕ НЕ ДОЛЖНЫ АВТО-ЗАПУСКАТЬСЯ, *.* - означает любой
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Explorer\AutoplayHandlers\CancelAutopl ay\Files\*.*", ""
'*************************************************************************************************
'******** Удаление MountPoints2 из реестра *********************
'*************************************************************************************************
'Через ключ MountPoints2 в реестре также существует возможность для системы обходить заданный запрет на автозапуск сьёмных носителей.(там могут уже быть заданы параметры по автозапуску для сьёмных устройств, которые система уже знает).
Command = "REG DELETE ""HKCU\Software\Microsoft\Windows\CurrentVersion\E xplorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
Command = "REG DELETE ""HKU\.DEFAULT\Software\Microsoft\Windows\CurrentV ersion\Explorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
Command = "REG DELETE ""HKU\S-1-5-18\Software\Microsoft\Windows\CurrentVersion\Explo rer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
Command = "REG DELETE ""HKU\S-1-5-20\Software\Microsoft\Windows\CurrentVersion\Explo rer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
Command = "REG DELETE ""HKU\S-1-5-21-2170445449-3629066266-18666223-4272\Software\Microsoft\Windows\CurrentVersion\Exp lorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
WSHShell.Popup "Автозагрузка успешно отключена"