View previous topic :: View next topic |
Author |
Message |
skole
Joined: 31 Dec 2004 Posts: 162 Location: Россия, Оренбург
|
(Separately) Posted: Fri Apr 20, 2007 19:45 Post subject: Вот еще пара скриптов для автоматизации ;) |
|
|
1. Менеджер закачек (с) Я
Скрипт для программы wget.exe (консольная, ищется в Интернете легко)
Описание работы: создаем на жестком файл с расширением URL, в него засовываем все ссылки, которые надо скачать, встаем на него и нажимает кнопку, либо комбинацию клавиш, кто куда скрипт повесит, качаем. Если файла такого не существует, скрипт выдаст окошко, в котором предложит ввести ссылку вручную. Докачка файлов поддерживается
Установка: прописываем пути к файлу, в параметрах прописать обязательно "%L" (именно в кавычках)
Спасибо Volniy за помощь в разъяснении языка
Code: | Dim FSO, WSH, TempFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\System\Bin\WGet\wget.exe" & chr(34))
File = TempFile.ReadLine
If FSO.GetExtensionName(File) <> "url" Then
URL = InputBox("Введите ссылку для скачивания", "Download Script")
If URL = nil Then
WScript.Quit
Else
WSH.Run Exe & " -r -c -nd --tries=1000000 " & " " & URL
End If
Else
WSH.Run Exe & " -i " & File & " -r -c -nd --tries=1000000"
WScript.Quit
End If
Set WSH = Nothing
Set FSO = Nothing
Set TempFile = Nothing
WScript.Quit |
2. Создание ISO образов с дисков (с) Я
Скрипт для программы cdimage.exe (консольная, ищется в Интернете легко)
Описание работы: тут и так все понятно, вставляем в привод диск и вперед, если приводов много, скрипт сам ищет где диск и копирует его (если несколько дисков вставлено одновременно, то образы создаст всех )
Code: | Dim WSH, Commander_Path, Exe, CDROM, VOLUME_NAME
Set WSH = CreateObject("WScript.Shell")
Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\System\Bin\CDImage\cdimage.exe" & chr(34))
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
CDROM = objItem.Drive
VOLUME_NAME = objItem.VolumeName
Next
WSH.Run Exe & " -h -j1 -m " & " " & CDROM & "\ " & " " & VOLUME_NAME & ".iso"
Set WSH = Nothing
WScript.Quit |
З.Ы. найдете глюки - дайте знать ))) пользуйтесь на здоровье |
|
Back to top |
|
|
Zorroz
Joined: 16 Dec 2004 Posts: 308 Location: Россия, Иркутская обл., г. Ангарск
|
(Separately) Posted: Sun Apr 22, 2007 06:57 Post subject: |
|
|
skole
2 скрипт просто вешаем на кнопку и все?
У меня выдает ошибку:
---------------------------
Сервер сценариев Windows
---------------------------
Сценарий: c:\totalcmd\Plugins\Script\cdimage.vbs
Строка: 15
Символ: 1
Ошибка: Не удается найти указанный файл.
Код: 80070002
Источник: (null)
---------------------------
ОК
---------------------------
Правда я заменил "\System\Bin\CDImage\cdimage.exe" на "c:\totalcmd\Plugins\util\isotools\CDIMAGE.EXE" _________________ Когда ангелу обрезают крылья, он учится летать на метле... |
|
Back to top |
|
|
skole
Joined: 31 Dec 2004 Posts: 162 Location: Россия, Оренбург
|
(Separately) Posted: Sun Apr 22, 2007 14:20 Post subject: |
|
|
2Zorroz
в твоем случае надо менять "\System\Bin\CDImage\cdimage.exe" на "\Plugins\util\isotools\CDIMAGE.EXE"
путь к тотал командер скрипт подставляет автоматически [Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")] |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|