• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Вопрос по Vbs

  • Автор темы sergor2009
  • Дата начала
S

sergor2009

Есть скрипт на VBS, который выполняет работу автообновления для одной программки: копирует новые файлы с фтп(+всякие проверки, например есть ли место на диске и т.п.), т.е. создает текстовый файл с кодом для исполнения и запускает ftp.exe -s:namescript.vbs(в котором список файлов для копирования)
Проблема: скрипт работает только в ХР, соотвественно в ранних версиях, типа win 98-2000, выдает различные ошибки, либо запускается, но ничего не происходит. Может ли быть проблема в том, что я сначало объвляю открытие файла на чтение, а потом на запись этого же файла или же проблема только в том, что нет поддержки новых команд, работающих в ХР?

Код:
Set fso9 = CreateObject("Scripting.FileSystemObject") 
set f = fso9.GetFile(pathtoupdate + "update_list.txt")
Set fso = CreateObject("Scripting.FileSystemObject") 
Set file = fso.OpenTextFile(pathtoupdate + "update_list.txt", 1, true)
Set fso2 = CreateObject("Scripting.FileSystemObject") 
Set file2 = fso2.OpenTextFile(pathtoupdate + "update_list.txt", 1, true)
Set fso7 = CreateObject("Scripting.FileSystemObject")
Set file7 = fso7.OpenTextFile(pathtoupdate + "update_list.txt", 8, true)
.
.
.
file.Close
fill.Close
file1.Close
file2.Close
file3.Close
file4.Close
file5.Close
file6.Close
file7.Close
В принципе могу выложить весь код целиком:)

Что нужно сделать, что бы все работало и на остальных версиях винды без установки каких-либо доп. средств для запуска скрипта?
И еще вопрос: можно ли скомпилировать код VBS на обычном VB?

Заранее спасибо!
 
J

Jumpy

Есть скрипт на VBS, который выполняет работу автообновления для одной программки: копирует новые файлы с фтп(+всякие проверки, например есть ли место на диске и т.п.), т.е. создает текстовый файл с кодом для исполнения и запускает ftp.exe -s:namescript.vbs(в котором список файлов для копирования)
Проблема: скрипт работает только в ХР, соотвественно в ранних версиях, типа win 98-2000, выдает различные ошибки, либо запускается, но ничего не происходит. Может ли быть проблема в том, что я сначало объвляю открытие файла на чтение, а потом на запись этого же файла или же проблема только в том, что нет поддержки новых команд, работающих в ХР?

Код:
Set fso9 = CreateObject("Scripting.FileSystemObject") 
set f = fso9.GetFile(pathtoupdate + "update_list.txt")
Set fso = CreateObject("Scripting.FileSystemObject") 
Set file = fso.OpenTextFile(pathtoupdate + "update_list.txt", 1, true)
Set fso2 = CreateObject("Scripting.FileSystemObject") 
Set file2 = fso2.OpenTextFile(pathtoupdate + "update_list.txt", 1, true)
Set fso7 = CreateObject("Scripting.FileSystemObject")
Set file7 = fso7.OpenTextFile(pathtoupdate + "update_list.txt", 8, true)
.
.
.
file.Close
fill.Close
file1.Close
file2.Close
file3.Close
file4.Close
file5.Close
file6.Close
file7.Close
В принципе могу выложить весь код целиком;)

Что нужно сделать, что бы все работало и на остальных версиях винды без установки каких-либо доп. средств для запуска скрипта?
И еще вопрос: можно ли скомпилировать код VBS на обычном VB?

Заранее спасибо!

Не уверен, но скорее всего если не юзать fso - все получится.

VBS компилица VB но требуются косметические поправочки.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!