Black_Lung

Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Scaramanga попробуй это, токо осторожно, не удали что-то нужное Цитата: Set r=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") DelSubkey &H80000002,"","test" sub DelSubkey(root,key,del_text) iR = r.EnumKey(root,key,dsSubKeys) if iR=0 and IsArray(dsSubKeys)=-1 then For each dsKey in dsSubKeys DelSubkey root,key+"\"+dsKey,del_text Next end if if instr(key,del_text)>0 then r.DeleteKey root,key else ir=r.EnumValues(root,key,val,vtype) if iR=0 and IsArray(val)=-1 then for k=0 to ubound(val) if instr(cstr(val(k)),del_text)>0 then r.DeleteValue root,key,val(k) next end if end if end sub | PS второй параметр может быть Software или System DelSubkey &H80000002,"software","test" PPS регистр текста учитывается "test" удалит а "Test" нет | Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 19:11 23-12-2011 | Исправлено: Black_Lung, 19:35 23-12-2011 |
|