|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] скопировать, разархивировать и удалить архив в VBS |
|
|
VBS/WSH/JS - [решено] скопировать, разархивировать и удалить архив в VBS
|
Новый участник Сообщения: 19 |
Профиль | Отправить PM | Цитировать @echo off
if exist C:\Temp\arhiv.rar (echo skopirovali arhiv iz diska C na rabochii stol) else (echo pri vipolnenii komandi voznikla oshibka.) copy C:\Temp\arhiv.rar C:\"Documents and Settings"\User\"rabochii stol"\*.* echo. @echo off if exist C:\Temp\arhiv.rar (echo razarhivirovali arhiv iz diska C na rabochii stol) else (echo pri vipolnenii komandi voznikla oshibka.) unrar x -n C:\Temp\arhiv.rar 1.dat C:\"Documents and Settings"\User\"rabochii stol" unrar x -n C:\Temp\arhiv.rar 1.exe C:\"Documents and Settings"\User\"rabochii stol" unrar x -n C:\Temp\arhiv.rar 1.lnk C:\"Documents and Settings"\User\"rabochii stol" echo. @echo off if exist C:\Temp\arhiv.rar (echo udalili arxiv iz diska C papki Temp) else (echo pri vipolnenii komandi voznikla oshibka.) dell /f C:\Temp\arhiv.rar echo. @echo off if exist C:\Temp\arhiv.rar (echo deistviya vipolnilis else (echo oshibka, deistviya ne vipolnilis.) set /a k=0 for %%i in (arhiv.rar) do set /a k=k+1 echo %k% raz pause Помогите пожалуйста написать эту программу в VBS. |
|
Отправлено: 17:34, 31-05-2012 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Madinka, опишите по-русски, что Вам надо (алгоритм действий).
|
Отправлено: 18:10, 31-05-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 19
|
Профиль | Отправить PM | Цитировать Задание такое:Написать командный файл.
1)В локальном диске с:\Temp сохранен архив(с расширение rar) с файлами(.exe, .dat, .lnk) .Нужно скопировать,разархивировать на рабочий стол,и удалить этот архив.Все действия записать в блок-файл. 2)Написать командный файл,который анализирует сколько раз выполнялись действия из 1 задания, если были ошибки,то сколько раз. Выше я написала программу которая выпоняется в командной строке, теперь нужно эту же программу написать в VBS. Помогите пожауйста, я не знаю как в VBS писать. |
Отправлено: 18:30, 31-05-2012 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Madinka:
Цитата Madinka:
Цитата Madinka:
|
|||
Отправлено: 19:00, 31-05-2012 | #4 |
Новый участник Сообщения: 19
|
Профиль | Отправить PM | Цитировать Имя архива- arhiv.rar. В нем находятся файлы- 1.dat,1.exe,1.lnk. Во втором задании нужно посчитать сколько раз скопировали,разархивировали,удалили архив.
|
|
Отправлено: 22:26, 31-05-2012 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Madinka:
|
|
Отправлено: 22:52, 31-05-2012 | #6 |
Новый участник Сообщения: 19
|
Профиль | Отправить PM | Цитировать set /a k=0
for %%i in (arhiv.rar) do set /a k=k+1 echo %k% raz Я вот так написала,как это представяла. Задание такое дали, проанализировать сколько раз выполнились действия. |
Отправлено: 23:01, 31-05-2012 | #7 |
Новый участник Сообщения: 19
|
Профиль | Отправить PM | Цитировать как разархивировать архив в vbs?
архив называется arhiv.rar находится в диске C:\Temp\arhiv.rar, нужно разархивировать его на рабочий стол,вот путь рабочего стола- C:\Documents and Settings\User\rabochii stol |
Отправлено: 18:36, 01-06-2012 | #8 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Например, использовать метод «.Run()» или «.Exec()» объекта «WScript.Shell» для запуска rar.exe/unrar.exe/WinRAR.exe с соответствующей командной строкой.
|
Отправлено: 19:46, 01-06-2012 | #9 |
Новый участник Сообщения: 19
|
Профиль | Отправить PM | Цитировать что значит ошибка: разрешение отклонено код 800А0046 ?
Dim FSO Set FSO = WScript.CreateObject("Scripting.FileSystemObject") If FSO.FileExists("C:Temp\arhiv.rar") Then FSO.CopyFile "C:Temp\arhiv.rar" , "C:\Documents and Settings\User\rabochii stol" , True WSCRIPT.echo "arhiv skopirovan na rabochii stol" End If вот код, пытаюсь скопировать архив на рабочий стол, пишут ошибка: разрешение отклонено, строка 4, символ 1. Что за ошибка эта? |
Отправлено: 18:50, 05-06-2012 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] скопировать, разархивировать и удалить архив. | Madinka | Скриптовые языки администрирования Windows | 9 | 31-05-2012 18:04 | |
Драйвер - Удалить "архив" ранее подключавшихся устрйств | since80808 | Microsoft Windows 2000/XP | 1 | 09-03-2011 17:38 | |
[решено] Как удалить зараженный архив! | vladmenn | Защита компьютерных систем | 3 | 10-05-2007 12:09 | |
Как разархивировать gzip (.gz) | benya | Вебмастеру | 20 | 26-09-2005 14:58 | |
Как из под DOS разархивировать архив .cab с резервным реестром? | Do Not Disturb | Microsoft Windows 95/98/Me (архив) | 7 | 23-04-2005 21:00 |
|