amel27,
А куда вставлять?
Так:
Код:

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
WinDir = WshShell.ExpandEnvironmentStrings("%windir%")
Wscript.Sleep 1000 'в мс.
WshShell.Run "REG DELETE HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /V DisableTaskMgr /f", 0
FileDelete fso, WinDir & "\tweaks2.reg", True
FileDelete fso, WinDir & "\DT.exe", True
FileDelete fso, WinDir & "\reboot.exe", True
FileDelete fso, WinDir & "\Unlocker189.exe", True
FileDelete fso, WinDir & "\PuntoSwitcher31172.exe", True
FileDelete fso, WinDir & "\1365VidChng.exe", True
FileDelete fso, WScript.ScriptFullName, True
Function FileDelete(oFile, sFileName, bForce)
If oFile.FileExists(sFileName) Then
oFile.DeleteFile sFileName, bForce
End If
End Function
Function FolderDelete(oFile, sFolderName, bForce)
If oFile.FolderExists(sFileName) Then
oFile.DeleteFolder sFolderName, bForce
End If
End Function