snipplrCallback({"id":19993,"title":"deletando-entradas-desabilitadas-no-msconfig","source":"
  1. 'Kelly's Korner 2003<\/span><\/div><\/li>
  2. 'Special thanks to MVP Bill James <\/span><\/div><\/li>
  3.  <\/div><\/li>
  4. Set<\/span> oReg = GetObject<\/span>("winmgmts:!root\/default:StdRegProv"<\/span>)<\/div><\/li>
  5. Const HKLM = &H80000002<\/div><\/li>
  6. RegKeySUF = "SOFTWARE\\Microsoft\\Shared Tools\\MSConfig\\startupfolder"<\/span><\/div><\/li>
  7. RegKeySUR = "SOFTWARE\\Microsoft\\Shared Tools\\MSConfig\\startupreg"<\/span><\/div><\/li>
  8.  <\/div><\/li>
  9. ResultsSUF = EnumKey(HKLM, RegKeySUF, False<\/span>)<\/div><\/li>
  10. If<\/span> ResultsSUF = ""<\/span> Then<\/span><\/div><\/li>
  11.   ResultsSUF = space(5) & "(nenhum)"<\/span><\/div><\/li>
  12.   iBtns = 0<\/div><\/li>
  13. Else<\/span><\/div><\/li>
  14.   iBtns = 4<\/div><\/li>
  15.   sDelPrompt = "Voc\u00c3\u00aa gostaria de selecionar os itens a excluir?"<\/span><\/div><\/li>
  16. End<\/span> If<\/span><\/div><\/li>
  17. sResults = "Itens desabilitados no menu Inicializar:"<\/span> & vbcrlf & _<\/div><\/li>
  18.            ResultsSUF & vbcrlf & vbcrlf<\/div><\/li>
  19.  <\/div><\/li>
  20. ResultsSUR = EnumKey(HKLM, RegKeySUR, False<\/span>)<\/div><\/li>
  21. If<\/span> ResultsSUR = ""<\/span> Then<\/span><\/div><\/li>
  22.   ResultsSUR = space(5) & "(nenhum)"<\/span><\/div><\/li>
  23.   If<\/span> iBtns <> 4 Then<\/span> iBtns = 0<\/div><\/li>
  24. Else<\/span><\/div><\/li>
  25.   iBtns = 4<\/div><\/li>
  26.   sDelPrompt = "Voc\u00c3\u00aa gostaria de selecionar os itens a excluir?"<\/span><\/div><\/li>
  27. End<\/span> If<\/span><\/div><\/li>
  28. sResults = sResults & "Itens de inicializa\u00c3\u00a7\u00c3\u00a3o desabilitados:"<\/span> & vbcrlf & _<\/div><\/li>
  29.            ResultsSUR & vbcrlf & vbcrlf<\/div><\/li>
  30.  <\/div><\/li>
  31. If<\/span> MsgBox(sResults & sDelPrompt, iBtns + 256) <> 6 Then<\/span> WScript.quit<\/div><\/li>
  32.  <\/div><\/li>
  33. EnumKey HKLM, RegKeySUF, True<\/span><\/div><\/li>
  34. EnumKey HKLM, RegKeySUR, True<\/span><\/div><\/li>
  35.  <\/div><\/li>
  36. Function<\/span> EnumKey(Key, SubKey, bDelete)<\/div><\/li>
  37. \tDim<\/span> Ret()<\/div><\/li>
  38. \toReg.EnumKey Key, SubKey, sKeys<\/div><\/li>
  39.  <\/div><\/li>
  40.   On<\/span> Error<\/span> Resume<\/span> Next<\/span><\/div><\/li>
  41.  <\/div><\/li>
  42. \tReDim<\/span> Ret(UBound<\/span>(sKeys))<\/div><\/li>
  43.   If<\/span> Err = 13 Then<\/span> Exit<\/span> Function<\/span><\/div><\/li>
  44.   On<\/span> Error<\/span> GoTo<\/span> 0<\/div><\/li>
  45.  <\/div><\/li>
  46. \tFor<\/span> Count = 0 to<\/span> UBound<\/span>(sKeys)<\/div><\/li>
  47. \t  If<\/span> Not<\/span> bDelete Then<\/span><\/div><\/li>
  48. \t    'this branch used on first call<\/span><\/div><\/li>
  49.   \t\tRet(Count) = space(5) & sKeys(Count)<\/div><\/li>
  50. \t\tElse<\/span><\/div><\/li>
  51. \t\t  'this branch used on deletion iteration<\/span><\/div><\/li>
  52. \t\t  If<\/span> MsgBox("Voc\u00c3\u00aa deseja excluir "<\/span> & sKeys(Count) & "?"<\/span> & vbcrlf & _<\/div><\/li>
  53. \t\t            vbcrlf & "Esta opera\u00c3\u00a7\u00c3\u00a3o n\u00c3\u00a3o pode ser desfeita!"<\/span>, 4 + 256) = 6 Then<\/span><\/div><\/li>
  54.         DeleteKey HKLM, SubKey & "\\"<\/span> & sKeys(Count)<\/div><\/li>
  55. \t\t  End<\/span> If<\/span><\/div><\/li>
  56.   \tEnd<\/span> If<\/span><\/div><\/li>
  57. \tNext<\/span><\/div><\/li>
  58. \tEnumKey = Join(Ret, vbcrlf)<\/div><\/li>
  59. End<\/span> Function<\/span><\/div><\/li>
  60.  <\/div><\/li>
  61. Function<\/span> DeleteKey(Key, SubKey)<\/div><\/li>
  62. \tDeleteKey = oReg.DeleteKey(Key, SubKey)<\/div><\/li>
  63. End<\/span> Function<\/span><\/div><\/li>
  64.  <\/div><\/li>
  65. Set<\/span> ws = WScript.CreateObject<\/span>("WScript.Shell"<\/span>)<\/div><\/li><\/ol><\/pre>","link":"https:\/\/snipplr.com\/view\/19993\/deletando-entradas-desabilitadas-no-msconfig"});