Posted By

idicbr on 09/21/09

Tagged

Versions (?)

Last Edited at 09/21/09 09:32pm

Statistics

Viewed 99 times

Favorited by 0 user(s)

Related snippets

Deletando Entradas Desabilitadas no MSCONFIG

/ Published in: Visual Basic

Este script em vbs deleta entradas desabilitadas no msconfig

Highlighted TextExpand

'Kelly's Korner 2003
'Special thanks to MVP Bill James

Set oReg = GetObject("winmgmts:!root/default:StdRegProv")
Const HKLM = &H80000002
RegKeySUF = "SOFTWARE\Microsoft\Shared Tools\MSConfig\startupfolder"
RegKeySUR = "SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg"

ResultsSUF = EnumKey(HKLM, RegKeySUF, False)
If ResultsSUF = "" Then
  ResultsSUF = space(5) & "(nenhum)"
  iBtns = 0
Else
  iBtns = 4
  sDelPrompt = "VocÃª gostaria de selecionar os itens a excluir?"
End If
sResults = "Itens desabilitados no menu Inicializar:" & vbcrlf & _
           ResultsSUF & vbcrlf & vbcrlf

ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
If ResultsSUR = "" Then
  ResultsSUR = space(5) & "(nenhum)"
  If iBtns <> 4 Then iBtns = 0
Else
  iBtns = 4
  sDelPrompt = "VocÃª gostaria de selecionar os itens a excluir?"
End If
sResults = sResults & "Itens de inicializaÃ§Ã£o desabilitados:" & vbcrlf & _
           ResultsSUR & vbcrlf & vbcrlf

If MsgBox(sResults & sDelPrompt, iBtns + 256) <> 6 Then WScript.quit

EnumKey HKLM, RegKeySUF, True
EnumKey HKLM, RegKeySUR, True

Function EnumKey(Key, SubKey, bDelete)
	Dim Ret()
	oReg.EnumKey Key, SubKey, sKeys

On Error Resume Next
  
	ReDim Ret(UBound(sKeys))
  If Err = 13 Then Exit Function
  On Error GoTo 0

For Count = 0 to UBound(sKeys)
	  If Not bDelete Then
	    'this branch used on first call
  		Ret(Count) = space(5) & sKeys(Count)
		Else
		  'this branch used on deletion iteration
		  If MsgBox("VocÃª deseja excluir " & sKeys(Count) & "?" & vbcrlf & _
		            vbcrlf & "Esta operaÃ§Ã£o nÃ£o pode ser desfeita!", 4 + 256) = 6 Then
        DeleteKey HKLM, SubKey & "\" & sKeys(Count)
		  End If
  	End If
	Next
	EnumKey = Join(Ret, vbcrlf)
End Function

Function DeleteKey(Key, SubKey)
	DeleteKey = oReg.DeleteKey(Key, SubKey)
End Function

Set ws = WScript.CreateObject("WScript.Shell")

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.