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

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

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

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

   

Rush

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


Код:
 
appname = "OE.exe"
key = "HKCU\Software\MetaProducts\Offline Explorer MX\Parameters\CurrentDir"
ProgramFilesPath = createobject("wscript.shell").expandenvironmentstrings("%ProgramFiles%")
'   TerminateApp appname
RunApp ProgramFilesPath & "\Offline Explorer Enterprise\OE.exe", "/exit"
pathDir = ReadPath(key)
fileWD = pathDir & "\WebDown.dat"
DelObjects fileWD, pathDir
RunApp ProgramFilesPath & "\Offline Explorer Enterprise\OE.exe"
 
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
 
sub TerminateApp(appname)
   set srv = getobject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
   servname = "select * from win32_process where name = '" & appname & "'"
   set procs = srv.execquery(servname)
   for each proc in procs
      proc.terminate    
   next
end sub
 
function ReadPath(key)
   set wshshell = createobject("wscript.shell")
   ReadPath = wshshell.regread(key)
end function
 
sub RunApp(app)
   set shapp = createobject("shell.application")
   shapp.shellexecute app
end sub
 
 

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 14:01 13-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