Wsf download files - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Wsf download files (http://forum.oszone.net/showthread.php?t=289044)

LepeT

06-10-2014 21:46 2411897

Wsf download files

Нужно создать wsf который бы качал около 9 файлов в %appdata%\Awesomium и по необходимости (некоторые запускал,а некоторые нет смотря какие отмечены) запускал в скрытом режиме сразу после скачивания т.е , 0, false

Iska	06-10-2014 22:01 2411904

LepeT, ботнет рисуете?

LepeT

06-10-2014 23:06 2411926

Цитата:

Цитата Iska

ботнет рисуете? »

Нет,с чего это ?

Iska	06-10-2014 23:55 2411959

Параноик я, параноик. Разве непонятно :lol:? Приведите конкретные адреса этих «около 9 файлов». Перечислите все случаи «необходимости». Укажите цели запуска.

LepeT

07-10-2014 20:01 2412309

Цитата:

Цитата Iska

Приведите конкретные адреса этих «около 9 файлов». Перечислите все случаи «необходимости». Укажите цели запуска. »

Файлы с собственного хостинга,это файлы групповых политик и их 6 штук,еще wsf файл для замены папки групповых политик в windows (%WINDIR%\System32\GroupPolicy),цели запуска - автоматическая установка расширения в браузер google chrome,само расширение официальное

P.S любое расшрение не из магазина google chrome не поставить,ставятся только те которые есть в магазине webstore

LepeT

07-10-2014 21:04 2412332

Ну дак что поможете?

Iska	07-10-2014 21:16 2412346

Поскольку конкретики я так и не увидел, придётся обойтись ссылками.

1. Загрузка файлов. Выбирайте: vbscript: загрузка файлов из Интернет (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум.

2. Исполнение файлов. Самое простое: Run Method (Windows Script Host) - MSDN - Microsoft. Есть и другие способы — Shell.Execute(), Win32_Process.Create() и прочее.

3. Работа с переменными окружения. Обычно используемый — ExpandEnvironmentStrings Method - MSDN - Microsoft, но я бы рекомендовал рассмотреть использование символьных имён объекта Shell.Application: WSH: перечень предопределённых символьных имён Shell.Application (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум — это более правильный способ.

4. Наконец, сводим всё воедино: WSH: пишем сценарии в формате WSF (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум.

Update::

Цитата:

Цитата LepeT

Ну дак что поможете? »

Простите, как? Я не умею писать скрипты, имея в техзадании общие рассуждения на тему.

LepeT

07-10-2014 22:27 2412374

Цитата:

Цитата Iska

Простите, как? Я не умею писать скрипты, имея в техзадании общие рассуждения на тему. »

Вам дать конкретные ссылки? и сказать какие файлы должны запускаться или нет?
Я врятле сам смогу написать

Iska	07-10-2014 23:03 2412383

Цитата:

Цитата LepeT

Вам дать конкретные ссылки? и сказать какие файлы должны запускаться или нет? »

Ну, я как бы об этом и писал в сообщениях #4 и #7.

LepeT

07-10-2014 23:28 2412396

Так вот ссылки:
Желательно если можно сразу скачать папку http://hancog.hol.es/GroupPolicy/ в которой несколько подпапок Adm с фалом chrome.adm,папка Machine с файлом Registry.pol,файл gpt.ini в корневом каталоге GroupPolicy и пустая папка User
Все это должно качаться в %appdata%\Awesomium что бы по этому пути после скачивания была папка GroupPolicy со всеми подпапками и файлами которые я назвал,т.е %appdata%\Awesomium\GroupPolicy

Дальше вторым качается vbs файл hancog.hol.es/SwitchCopy.vbs и сразу запускается он у меня будет заменять папку GroupPolicy в system32 и обновлять политики командой gpupdate /force
Извиняюсь что не упоминал,нужно что бы расширения установились не только в chrome но и в opera и firefox,для этого нужно скачать следующие файлы:

hancog.hol.es/Raspacovka.bat (запуск)
hancog.hol.es/extensions.json
hancog.hol.es/jid1-Z7wCNOhaBhOLEg@jetpack.xpi
hancog.hol.es/prefs.js
hancog.hol.es/Mozzila.bat (запуск)
hancog.hol.es/ChekPK.bat (запуск)

Iska	07-10-2014 23:39 2412403

Цитата:

Цитата LepeT

Желательно если можно сразу скачать папку http://hancog.hol.es/GroupPolicy/ »

У меня нет желания писать клиент HTTP на VBScript.

Цитата:

Цитата LepeT

Извиняюсь что не упоминал,нужно что бы расширения установились не только в chrome но и в opera и firefox,для этого нужно »

Я, пожалуй, ограничусь тем, что изложил выше.

LepeT

08-10-2014 00:17 2412422

Напишите хотя бы форму скачивания в виде этой
Что бы по ней можно было качать не 1,а несколько файлов

Код:

<?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://hancog.hol.es/file"

                        

                        Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")

                        Set objShell = WScript.CreateObject("Shell.Application")

                        

                        strDestPath = objFSO.BuildPath(objShell.NameSpace("shell:AppData").self.Path, "Awesomium")

                        

                        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>

LepeT

14-10-2014 15:31 2415279

ап помогите кто нибуть

Iska	14-10-2014 19:10 2415367

Цитата:

Цитата LepeT

Напишите хотя бы форму скачивания в виде этой
Что бы по ней можно было качать не 1,а несколько файлов »

Держите ;). Функция и примеры её применения:

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>

<job>

        <script language='VBScript'>

                <![CDATA[

                        Option Explicit

                        

                        Dim strUrl

                        Dim strPath

                        

                        

                        ' 1

                        strUrl  = "http://nirsoft.net/utils/netresview.zip"

                        strPath = "E:\Песочница\0401"

                        

                        If DownloadFile(strUrl, strPath) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        ' 2

                        strUrl  = "http://nirsoft.net/utils/mylastsearch.zip"

                        strPath = "E:\Песочница\0401"

                        

                        If DownloadFile(strUrl, strPath) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        WScript.Quit 0

                        '==========================================================================

                        

                        '==========================================================================

                        Function DownloadFile(strUrl, strDestPath)

                                Const adTypeBinary = 1

                                Const adModeReadWrite = 3

                                Const adSaveCreateOverWrite = 2

                                

                                

                                Dim objXMLHTTPRequest

                                

                                Dim strFullName

                                

                                

                                With WScript.CreateObject("Scripting.FileSystemObject")

                                        If .FolderExists(strDestPath) Then

                                                Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")

                                                

                                                objXMLHTTPRequest.Open "GET", strUrl,False

                                                objXMLHTTPRequest.send

                                                

                                                If objXMLHTTPRequest.status = 200 Then

                                                        strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))

                                                        

                                                        With WScript.CreateObject("ADODB.Stream")

                                                                .Mode = adModeReadWrite

                                                                .Type = adTypeBinary

                                                                .Open

                                                                .Write objXMLHTTPRequest.responseBody

                                                                .SaveToFile strFullName, adSaveCreateOverWrite

                                                        End With

                                                Else

                                                        WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)

                                                        DownloadFile = False

                                                        Exit Function

                                                End If

                                                

                                                Set objXMLHTTPRequest = Nothing

                                        Else

                                                WScript.Echo "Destination path [" & strDestPath & "] not found."

                                                DownloadFile = False

                                                Exit Function

                                        End If

                                End With

                                

                                DownloadFile = True

                        End Function

                        '==========================================================================

                ]]>

        </script>

        

        <script language='JScript'>

                <![CDATA[

                        function decodeURI(sUrl) {

                                return decodeURI(sUrl);

                        }

                ]]>

        </script>

</job>

LepeT

15-10-2014 17:09 2415746

Цитата:

Цитата Iska

Держите . Функция и примеры её применения: »

Спасибо что ответили,я только что попробовал,при сохранение в %appdata% пишет ошибку

Iska	15-10-2014 17:59 2415777

Цитата:

Цитата LepeT

я только что попробовал,при сохранение в %appdata% пишет ошибку »

LepeT, не «пишет ошибку», а «обрабатывает ситуацию с отсутствующим путём назначения» ;). Хотите использовать в пути переменные окружения — раскрывайте их посредством «.ExpandEnvironmentStrings()».

LepeT

16-10-2014 16:31 2416286

Все перепробовал,не получается в аппдату сохранить,даже пробовал со старого wsf где была 1 скачка файла

Iska	16-10-2014 18:26 2416355

Цитата:

Цитата LepeT

Все перепробовал, »

Покажите Ваше «всё».

LepeT

16-10-2014 20:22 2416401

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>

<job>

        <script language='VBScript'>

                <![CDATA[

                        Option Explicit

                        

                        Dim strUrl

                        Dim strPath

                        

                        

                        ' 1

                        strUrl  = "http://nirsoft.net/utils/netresview.zip"

                        strPath = "E:\Песочница\0401"

                        

                        If DownloadFile(strUrl, strPath) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        ' 2

                        strUrl  = "http://nirsoft.net/utils/mylastsearch.zip"

                        set WshShell = WScript.CreateObject("WScript.Shell")

                        WScript.Echo "WinDir is " & WshShell.ExpandEnvironmentStrings("%APPDATA%")

                        

                        If DownloadFile(strUrl, strPath) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        WScript.Quit 0

                        '==========================================================================

                        

                        '==========================================================================

                        Function DownloadFile(strUrl, strDestPath)

                                Const adTypeBinary = 1

                                Const adModeReadWrite = 3

                                Const adSaveCreateOverWrite = 2

                                

                                

                                Dim objXMLHTTPRequest

                                

                                Dim strFullName

                                

                                

                                With WScript.CreateObject("Scripting.FileSystemObject")

                                        If .FolderExists(strDestPath) Then

                                                Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")

                                                

                                                objXMLHTTPRequest.Open "GET", strUrl,False

                                                objXMLHTTPRequest.send

                                                

                                                If objXMLHTTPRequest.status = 200 Then

                                                        strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))

                                                        

                                                        With WScript.CreateObject("ADODB.Stream")

                                                                .Mode = adModeReadWrite

                                                                .Type = adTypeBinary

                                                                .Open

                                                                .Write objXMLHTTPRequest.responseBody

                                                                .SaveToFile strFullName, adSaveCreateOverWrite

                                                        End With

                                                Else

                                                        WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)

                                                        DownloadFile = False

                                                        Exit Function

                                                End If

                                                

                                                Set objXMLHTTPRequest = Nothing

                                        Else

                                                WScript.Echo "Destination path [" & strDestPath & "] not found."

                                                DownloadFile = False

                                                Exit Function

                                        End If

                                End With

                                

                                DownloadFile = True

                        End Function

                        '==========================================================================

                ]]>

        </script>

        

        <script language='JScript'>

                <![CDATA[

                        function decodeURI(sUrl) {

                                return decodeURI(sUrl);

                        }

                ]]>

        </script>

</job>

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>

<job>

        <script language='VBScript'>

                <![CDATA[

                        Option Explicit

                        

                        Dim strUrl

                        Dim strPath

                        

                        

                        ' 1

                        strUrl  = "http://nirsoft.net/utils/netresview.zip"

                        strPath = "E:\Песочница\0401"

                        

                        If DownloadFile(strUrl, strPath) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        ' 2

                        strUrl  = "http://nirsoft.net/utils/mylastsearch.zip"



                        Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")

                        Set objShell = WScript.CreateObject("Shell.Application")

                        

                        strDestPath = objFSO.BuildPath(objShell.NameSpace("shell:AppData").self.Path, "Awesomium")

                        

                        If DownloadFile(strUrl, strPath) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        WScript.Quit 0

                        '==========================================================================

                        

                        '==========================================================================

                        Function DownloadFile(strUrl, strDestPath)

                                Const adTypeBinary = 1

                                Const adModeReadWrite = 3

                                Const adSaveCreateOverWrite = 2

                                

                                

                                Dim objXMLHTTPRequest

                                

                                Dim strFullName

                                

                                

                                With WScript.CreateObject("Scripting.FileSystemObject")

                                        If .FolderExists(strDestPath) Then

                                                Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")

                                                

                                                objXMLHTTPRequest.Open "GET", strUrl,False

                                                objXMLHTTPRequest.send

                                                

                                                If objXMLHTTPRequest.status = 200 Then

                                                        strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))

                                                        

                                                        With WScript.CreateObject("ADODB.Stream")

                                                                .Mode = adModeReadWrite

                                                                .Type = adTypeBinary

                                                                .Open

                                                                .Write objXMLHTTPRequest.responseBody

                                                                .SaveToFile strFullName, adSaveCreateOverWrite

                                                        End With

                                                Else

                                                        WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)

                                                        DownloadFile = False

                                                        Exit Function

                                                End If

                                                

                                                Set objXMLHTTPRequest = Nothing

                                        Else

                                                WScript.Echo "Destination path [" & strDestPath & "] not found."

                                                DownloadFile = False

                                                Exit Function

                                        End If

                                End With

                                

                                DownloadFile = True

                        End Function

                        '==========================================================================

                ]]>

        </script>

        

        <script language='JScript'>

                <![CDATA[

                        function decodeURI(sUrl) {

                                return decodeURI(sUrl);

                        }

                ]]>

        </script>

</job>

Iska	17-10-2014 05:04 2416535

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>

<job>

        <script language='VBScript'>

                <![CDATA[

                        Option Explicit

                        

                        Dim strUrl

                        Dim strPath

                        

                        

                        strUrl  = "http://nirsoft.net/utils/netresview.zip"

                        strPath = "%AppData%"

                        

                        If DownloadFile(strUrl, WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings(strPath)) Then

                                WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."

                        Else

                                WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."

                        End If

                        

                        WScript.Quit 0

                        '==========================================================================

                        

                        '==========================================================================

                        Function DownloadFile(strUrl, strDestPath)

                                Const adTypeBinary = 1

                                Const adModeReadWrite = 3

                                Const adSaveCreateOverWrite = 2

                                

                                

                                Dim objXMLHTTPRequest

                                

                                Dim strFullName

                                

                                

                                With WScript.CreateObject("Scripting.FileSystemObject")

                                        If .FolderExists(strDestPath) Then

                                                Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")

                                                

                                                objXMLHTTPRequest.Open "GET", strUrl,False

                                                objXMLHTTPRequest.send

                                                

                                                If objXMLHTTPRequest.status = 200 Then

                                                        strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))

                                                        

                                                        With WScript.CreateObject("ADODB.Stream")

                                                                .Mode = adModeReadWrite

                                                                .Type = adTypeBinary

                                                                .Open

                                                                .Write objXMLHTTPRequest.responseBody

                                                                .SaveToFile strFullName, adSaveCreateOverWrite

                                                        End With

                                                Else

                                                        WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)

                                                        DownloadFile = False

                                                        Exit Function

                                                End If

                                                

                                                Set objXMLHTTPRequest = Nothing

                                        Else

                                                WScript.Echo "Destination path [" & strDestPath & "] not found."

                                                DownloadFile = False

                                                Exit Function

                                        End If

                                End With

                                

                                DownloadFile = True

                        End Function

                        '==========================================================================

                ]]>

        </script>

        

        <script language='JScript'>

                <![CDATA[

                        function decodeURI(sUrl) {

                                return decodeURI(sUrl);

                        }

                ]]>

        </script>

</job>

LepeT

17-10-2014 15:37 2416708

Спасибо,скажите пожалуйста как после %appdata% указать поддиректорию? Awesomium и можно ли скачать сразу папку,мне просто нужно что бы качалась 1 целая папка (он с подпапка,это геморойно если указывать команды на создания папки,потом на создание подпапки и каждый файл качать в отдельную директорию) и 6 файлов,некоторые из них запускались некоторые нет ( по усмотрению),а так же что бы можно было указать в скрытом режиме или нет
Кроме этого больше не чего не нужно

Iska	18-10-2014 00:53 2416893

Цитата:

Цитата LepeT

Спасибо,скажите пожалуйста как после %appdata% указать поддиректорию? Awesomium »

Код:

strPath = "%AppData%\Awesomium"

Цитата:

Цитата LepeT

и можно ли скачать сразу папку »

Я уже писал ранее — нельзя «скачать папку». HTTP-протокол не позволяет получить список содержимого каталога. При попытке обращения к папке он, в зависимости от настроек сервера, либо возвращает содержимое умолчального файла («default.html», «index.html» и т.п.) из каталога, либо выдает сгенерированную html-страницу с содержимым каталога, сгенерированную специфичным для каждого сервера образом (я уже писал по поводу Web-клиента на WSH), либо сообщает об ошибке доступа. То есть, в зависимости от настроек конкретного сервера можно либо получить только html-содержимое, либо вообще не получить. Если веб-сервер — Ваш, подымайте на нём дополнительно WebDAV, и тогда можно будет поговорить про содержимое папки:

Цитата:

Цитата LepeT

мне просто нужно что бы качалась 1 целая папка (он с подпапка,это геморойно если указывать команды на создания папки,потом на создание подпапки и каждый файл качать в отдельную директорию) и 6 файлов,некоторые из них запускались некоторые нет ( по усмотрению),а так же что бы можно было указать в скрытом режиме или нет »

Это я уже читал выше неоднократно и понял с первого раза.

Цитата:

Цитата LepeT

Кроме этого больше не чего не нужно »

«Бабуся, пусти водицы напиться, а то так есть хочется, что даже переночевать негде» :lol:.

Я настойчиво пытаюсь убедить Вас начать изучать WSH, а Вы не менее настойчиво продолжаете упрашивать, чтобы написали за Вас.

LepeT

18-10-2014 09:35 2416935

Цитата:

Цитата Iska

Я настойчиво пытаюсь убедить Вас начать изучать WSH, а Вы не менее настойчиво продолжаете упрашивать, чтобы написали за Вас. »

Я обязательно начну,просто у меня времени нет,как появляется свободное захожу сюда,надеюсь что отпишите,честно

Часто гуглю варианты,я в принципе понимаю что и где обозначают команды,но я не знаю как правильно записывать,какие правила,знаки где какие ставить что бы все это работало

LepeT

18-10-2014 16:00 2417034

Цитата:

Цитата Iska

Это я уже читал выше неоднократно и понял с первого раза. »

Так можно ли что то в виде этого на нужных файлах добавить
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c D:\directory\your_batch.cmd", 0, false

И да как сделать так что бы файлы начали открываться только тогда когда все другие до качаются

Iska	18-10-2014 19:31 2417090

Цитата:

Цитата LepeT

Так можно ли что то в виде этого на нужных файлах добавить »

Можно, добавляйте.

Цитата:

Цитата LepeT

И да как сделать так что бы файлы начали открываться только тогда когда все другие до качаются »

Дождаться, пока все файлы загрузятся, затем открывать.

LepeT

19-10-2014 00:40 2417208

Цитата:

Цитата Iska

Можно, добавляйте. »

Я же сказал что не умею,поэтому прошу у вас помощи

LepeT

20-10-2014 20:59 2418067

Как мне перенести то что я хочу с вбс на всф,дайте мануал как это сделать...

Время: 20:59.