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

Показать сообщение отдельно

Deadooshka


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

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


jurand
запусти из временной папки скриптик *.vbs (WSH-скрипт) с примерно следующим содержимым (описание внутри):
Код: Выделить весь код
Dim h, fso, sh, m, reg_key
on error resume next

'какой ключ читать?
reg_key="HKEY_LOCAL_MACHINE\SOFTWARE\Via4in1Driver\4in1Path"

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = Wscript.CreateObject("Wscript.Shell")

'Читаем значение заданного ключа
m = sh.RegRead(reg_key)

'Если папки нету, создаем (опционально)
if fso.FolderExists(m)=false then
fso.CreateFolder(m)
end if

'Копируем содержимое текущей (временной) папки в папку из реестра
fso.CopyFile "*", m

'Сообщения об окончании скрипта (опционально)
if err.number=0 then
h=MsgBox ("Скрипт успешно завершен",64,"Успешно")
else
h=MsgBox ("Скрипт выполнен неудачно",16,"Ошибки")
end if

Отправлено: 22:04, 17-04-2007 | #348