Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Wu-Tang

Ветеран


Сообщения: 1316
Благодарности: 79

Профиль | Отправить PM | Цитировать


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

-------
Всему свое время и каждому свой час!
Хочешь жить - умей вертеться!


Отправлено: 23:14, 18-09-2010 | #9