Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Bob78
2 / 2 / 1
Регистрация: 24.12.2015
Сообщений: 8
1

Сделать в реестре запись, которая будет отображена в окне "Установка и удаление программ"

24.12.2015, 15:00. Просмотров 382. Ответов 3

Уважаемые профи, доброго времени суток!

Прошу помочь в решении такой задачи:

1. При появлении файлов в директории, копируем файлы в новую директорию.
2. Сделать запись в реестре на VBS Script, видимую в окне "Установка и удалении программ", откуда эту запись можно было бы удалить. При выполнении операции удаления должна быть удалена и директория-получатель файлов.


С п.1 более-менее понятно, а вот с п.2 не очень.

ОС Windows XP Proffesional SP2

Помогите плиз!
Заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 15:00
Ответы с готовыми решениями:

Установка и удаление программ
В домене есть пользователь user. Как разрешить ему устанавливать на собственном...

В окне "Оптимизация дисков" не отображается диск
Решил дефрагментировать диск, пошел в оптимизацию и странно: только...

"Слипшийся" текст в окне вывода MsgBox
Сделал интерфейс на java с дополнительным выводом на экран с помощью vbs, но в...

Запуск программ "от имени" без создания папки профиля
Здравствуйте. Имеется домен, администратор домена (mydomain\admin1) обладает...

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

3
Bob78
2 / 2 / 1
Регистрация: 24.12.2015
Сообщений: 8
24.12.2015, 21:55  [ТС] 2
Вот такая задача, уточняю))

2. Сделать запись в реестре на VBS Script, видимую в окне "Установка и удалении программ" (см. вложение), откуда эту запись можно было бы удалить. При выполнении операции удаления должна быть удалена и директория, в которую был скопирован файл.
Сделать в реестре запись, которая будет отображена в окне "Установка и удаление программ"
0
Bob78
2 / 2 / 1
Регистрация: 24.12.2015
Сообщений: 8
25.12.2015, 11:45  [ТС] 3
В окне "Установка и удалении программ" запись отображается, скрипт uninstall.vbs сам по себе работает верно.

НО при попытке удаления записи через "Установка и удалении программ" возникает след. диагностика (см. скриншот), запись из "Установка и удалении программ" и реестра удаляется, но скрипт uninstall.vbs не срабатывает.

Подскажите плиз как это можно побороть?? Спасибо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Dim fso, fl, ret, WshShell, new_folder, old_folder, File, uninstall_text 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject( "Wscript.Shell")
 
If not fso.FolderExists("c:\vre") then 
 fso.CreateFolder("c:\vre")
end if  
 
If not fso.FolderExists("c:\vre1") then 
 fso.CreateFolder("c:\vre1")
end if
 
Set old_folder= fso.GetFolder("c:\vre")
Set new_folder= fso.GetFolder("c:\vre1")
 
 
'Создаем uninstall.vbs в папке old_folder
' FSO.CreateFolder install_dir
Set File = FSO.OpenTextFile(old_folder + "\uninstall.vbs", 2, True)
uninstall_text = "Set WshShell = CreateObject(""WScript.Shell"")" & vbNewLine & _ 
"Set FSO = CreateObject(""Scripting.FileSystemObject"")" & vbNewLine & _ 
"FSO.DeleteFolder """ & new_folder & """, True" & vbNewLine & _ 
"WshShell.RegDelete ""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg"""
File.Write uninstall_text
File.Close
 
 
              
    For Each fl In fso.GetFolder(old_folder.Path).Files     
            ret = ret & "В каталог " & Chr(34) & old_folder.Path & Chr(34) & " пришел файл " & Chr(34) & fl.Name & Chr(34) & vbCrLf
                If ret <> vbNullString Then MsgBox ret 
                      
         
            ' копируем файл в новую папку
        fso.CopyFile old_folder.Path&""& fl.Name, new_folder.Path &""& fl.Name, true
 
                WScript.Echo "Процесс копирования завершен"
                        
            ' запись в реестр
                ' WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\!1\DisplayName", new_folder.Path &""& fl.Name 
 
                  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\DisplayName", "Моя Супер Прога"
                  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\UninstallString", """" & new_folder & "\uninstall.vbs"""
 
        WScript.Echo "Запись в реестре сделана" 
 
    Next
Сделать в реестре запись, которая будет отображена в окне "Установка и удаление программ"
0
Dragokas
Эксперт WindowsАвтор FAQ
17007 / 7063 / 856
Регистрация: 25.12.2011
Сообщений: 10,879
Записей в блоге: 16
29.12.2015, 22:04 4
Bob78, неверно составлена коммандная строка.
Нужно
Visual Basic
1
wscript "путь\xxx.vbs"
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2015, 22:04

Как в MDaemon "почтовый сервер" назначить клиенту запрет на удаление писем The BAT
Добрый день. как в MDaemon &quot;почтовый сервер&quot; назначить клиенту запрет на...

Хочу обсудить недавно "обнаруженную" "уязвимость" процессоров Intel и не только
Наверное, эту тему уже много где обсуждали. Возможно, я ошибся разделом - но,...

Как сделать "Панель задач" в две строки через реестр или скриптом bat/cmd?
Как сделать Панель задач в две строки... интересует вариант через реестр,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru