Вот еще пара скриптов для автоматизации ;)
Добавлено: Пт апр 20, 2007 19:45
1. Менеджер закачек (с) Я
Скрипт для программы wget.exe (консольная, ищется в Интернете легко)
Описание работы: создаем на жестком файл с расширением URL, в него засовываем все ссылки, которые надо скачать, встаем на него и нажимает кнопку, либо комбинацию клавиш, кто куда скрипт повесит, качаем. Если файла такого не существует, скрипт выдаст окошко, в котором предложит ввести ссылку вручную. Докачка файлов поддерживается
Установка: прописываем пути к файлу, в параметрах прописать обязательно "%L" (именно в кавычках)
Спасибо Volniy за помощь в разъяснении языка
2. Создание ISO образов с дисков (с) Я
Скрипт для программы cdimage.exe (консольная, ищется в Интернете легко)
Описание работы: тут и так все понятно, вставляем в привод диск и вперед, если приводов много, скрипт сам ищет где диск и копирует его (если несколько дисков вставлено одновременно, то образы создаст всех
)
З.Ы. найдете глюки - дайте знать ))) пользуйтесь на здоровье
Скрипт для программы wget.exe (консольная, ищется в Интернете легко)
Описание работы: создаем на жестком файл с расширением URL, в него засовываем все ссылки, которые надо скачать, встаем на него и нажимает кнопку, либо комбинацию клавиш, кто куда скрипт повесит, качаем. Если файла такого не существует, скрипт выдаст окошко, в котором предложит ввести ссылку вручную. Докачка файлов поддерживается
Установка: прописываем пути к файлу, в параметрах прописать обязательно "%L" (именно в кавычках)
Спасибо Volniy за помощь в разъяснении языка
Код: Выделить всё
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Скрипт для программы cdimage.exe (консольная, ищется в Интернете легко)
Описание работы: тут и так все понятно, вставляем в привод диск и вперед, если приводов много, скрипт сам ищет где диск и копирует его (если несколько дисков вставлено одновременно, то образы создаст всех
)
Код: Выделить всё
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