12.09.2006, 16:48
общий
это ответ
Здравствуйте, Diamond!
Сделано через WMI, потому несколько иные методы (использование 16ричной константы обязательно). И служба WMI должна быть запущена. Другие методы класса StdRegProv пожете посмотреть через утилиту wbemtest.exe (если служба WMI не отключена, при запуске этой утилиты должна запуститься сама).
Обращайтесь если что
Приложение:
Dim WshShell, reg, spathconst HKEY_LOCAL_MACHINE=&H80000002set WshShell = CreateObject("Wscript.Shell")set reg = GetObject("WinMgmts:\\.\Root\Default:StdRegProv")spath="\SOFTWARE\Ashmanov & Partners\SpamTest"If reg.EnumKey(HKEY_LOCAL_MACHINE,spath) then //Deleting key reg.DeleteKey(HKEY_LOCAL_MACHINE, spath) WScript.Echo "Found and deleted"else WScript.Echo "Not Found"end if