Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] скопировать, разархивировать и удалить архив в VBS

Ответить
Настройки темы
VBS/WSH/JS - [решено] скопировать, разархивировать и удалить архив в VBS

Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить 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
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Madinka, опишите по-русски, что Вам надо (алгоритм действий).

Отправлено: 18:10, 31-05-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить PM | Цитировать


Задание такое:Написать командный файл.
1)В локальном диске с:\Temp сохранен архив(с расширение rar) с файлами(.exe, .dat, .lnk) .Нужно скопировать,разархивировать на рабочий стол,и удалить этот архив.Все действия записать в блок-файл.
2)Написать командный файл,который анализирует сколько раз выполнялись действия из 1 задания, если были ошибки,то сколько раз.
Выше я написала программу которая выпоняется в командной строке, теперь нужно эту же программу написать в VBS. Помогите пожауйста, я не знаю как в VBS писать.

Отправлено: 18:30, 31-05-2012 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата Madinka:
В локальном диске с:\Temp сохранен архив(с расширение rar) »
Имя архива?

Цитата Madinka:
анализирует сколько раз выполнялись действия из 1 задания, если были ошибки,то сколько раз. »
Смысл этого действия от меня ускользает.

Цитата Madinka:
Выше я написала программу которая выпоняется в командной строке, »
Выше написана, не обессудьте, полная белиберда.

Отправлено: 19:00, 31-05-2012 | #4


Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить PM | Цитировать


Имя архива- arhiv.rar. В нем находятся файлы- 1.dat,1.exe,1.lnk. Во втором задании нужно посчитать сколько раз скопировали,разархивировали,удалили архив.

Отправлено: 22:26, 31-05-2012 | #5


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата Madinka:
…нужно посчитать сколько раз скопировали,разархивировали,удалили архив. »
Каким образом? Буквально: как Вы себе сие представляете?

Отправлено: 22:52, 31-05-2012 | #6


Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить 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
Благодарности: 0

Профиль | Отправить PM | Цитировать


как разархивировать архив в vbs?

архив называется arhiv.rar находится в диске C:\Temp\arhiv.rar, нужно разархивировать его на рабочий стол,вот путь рабочего стола- C:\Documents and Settings\User\rabochii stol

Отправлено: 18:36, 01-06-2012 | #8


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Например, использовать метод «.Run()» или «.Exec()» объекта «WScript.Shell» для запуска rar.exe/unrar.exe/WinRAR.exe с соответствующей командной строкой.

Отправлено: 19:46, 01-06-2012 | #9


Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить 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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] скопировать, разархивировать и удалить архив в VBS

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход