Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
17.10.2007, 12:32:57
|
|||
|---|---|---|---|
Удаление ветки реестра из скрипта |
|||
|
#18+
Добрый день. Возникла следующая проблема - надо периодически удалять ветки реестра, например HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt Попытался сваять скриптец такого содержания: <<<<<<<<<<<<<<<<<<<< Dim Shell Set Shell = CreateObject("Wscript.Shell") RegValue = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\.txt\\" Wscript.Echo Shell.RegDelete (RegValue) >>>>>>>>>>>>>>>>>> Удалять не хочет в принципе - пытался ставить один слеш, добавлять\удалять слеши справа - эффект нулевой. Удаляться не хочет пишет сообщение, что невозможно удалить эту ветку или что неверная ссылка на корень реестра.... В реестре этот раздел присутствует. [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt] [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\OpenWithList] "a"="NLNOTES.EXE" "MRUList"="bdca" "b"="NOTEPAD.EXE" "c"="bred2a.exe" "d"="payer32.exe" Помогите пож-ста разрулить ситуацию. Заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.10.2007, 12:41:14
|
|||
|---|---|---|---|
Удаление ветки реестра из скрипта |
|||
|
#18+
Вот это попробуйте Sub DeleteKeys(HKLM, strKey) Dim strArray Dim strSubKey Dim intIdx intIdx = oReg.EnumKey(HKLM, strKey, strArray) On Error Resume Next If intIdx = 0 And IsArray(strArray) Then For Each strSubKey in strArray DeleteKeys HKLM, strKey & "\" & strSubKey Next End If oReg.DeleteKey HKLM,strKey End Sub Или вот так Option Explicit Dim oReg Dim strComputer Dim strKey Const HKLM = &H80000002 strComputer = "." strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Backup" Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") oReg.DeleteKey HKLM,strKey Set oReg = Nothing Или из коммандной строки вот так @Echo off Reg Delete HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Backup /f Выбирайте пока дают ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.10.2007, 13:51:24
|
|||
|---|---|---|---|
Удаление ветки реестра из скрипта |
|||
|
#18+
ещё вариант: сделать файл с раширением .reg и содержимым: qqq.regWindows Registry Editor Version 5.00 [-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt] остаётся тока его исполнить в нужный момент ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=26&mobile=1&tid=1506142]: |
0ms |
get settings: |
6ms |
get forum list: |
8ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
54ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
23ms |
get tp. blocked users: |
1ms |
| others: | 222ms |
| total: | 325ms |
| 0 / 0 |
