Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)

Модерирует : gyra, Maz

Widok (03-03-2010 16:29): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Код:
 
key = "HKCU\Software\MetaProducts\Offline Explorer MX\Parameters\CurrentDir"
set wshshell = createobject("wscript.shell")
ProgramFilesPath = wshshell.expandenvironmentstrings("%ProgramFiles%")
wshshell.run """" & ProgramFilesPath & "\Offline Explorer Enterprise\OE.exe" & """" & " /exit", , true
pathDir = wshshell.regread(key)
fileWD = pathDir & "\WebDown.dat"
DelObjects fileWD, pathDir
wshshell.run """" & ProgramFilesPath & "\Offline Explorer Enterprise\OE.exe" & """", 1, true
set shapp = createobject("shell.application")
shapp.namespace(pathDir).movehere pathDir & "\Temp\WebDown.dat", 16
wscript.quit
 
sub DelObjects(fname, path)
   set fso = createobject("scripting.filesystemobject")
   set txtfile = fso.opentextfile(fname)
   txt = txtfile.readall
   txtfile.close
   if not fso.folderexists(path & "\Temp") then fso.createfolder path & "\Temp"
   set shapp = createobject("shell.application")
   shapp.namespace(path & "\Temp").movehere fname, 16
   arr = split(txt,"[Object]")
   arrdesc = filter(arr,"Descr=")
   str = left(arr(0),instr(arr(0),"ObjectsCount=")+12) & cstr(ubound(arrdesc)+1) & vbcrlf
   set txtfile = fso.opentextfile(fname, 2, true)
   txtfile.write str & "[Object]" & join(arrdesc,"[Object]")
   txtfile.close
end sub
 
 

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 13:40 14-04-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)
Widok (03-03-2010 16:29): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru