Stupid VBS tricks I discovered...

December 28, 2014

This is dumb but I was trolling malwr.com and noticed there was a keyword for "VBS".
Uncompiled malware in a text file? Sign me up. Here are a few of the tidbits I picked up:
Here is an example of how to retrieve files from the interwebs with VBScript:

Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
a = GetRequest("https://jon.glass")
With oFSO.createTextFile("index.htm")
    .Write(a)
    .Close
End With
Function GetRequest(URL)
    GetRequest=""
    Dim o
    Set o = CreateObject("MSXML2.XMLHTTP")
    o.open "GET",URL, false
    o.send
    GetRequest=o.responseText
End Function

Here is an example of how to use VBScript to make a post :

post "jon.glass","test"
function post(cmd ,da)
    post=""
    UAString = "whatever the hell you want"
    Dim o
    Set o = CreateObject("MSXML2.XMLHTTP")
    o.open "POST","http://" & cmd, false
    o.setRequestHeader "User-Agent:", UAString
    o.send da
    post=o.responseText
end function

This is probably something well documented but since I was unfamiliar with it and it looks vaguely useful...I posted it here for future reference.