I wonder why do you want to remove the disabled programs from the startup items? The reason why i ask before they do not slow down your computer and neither do they damage any of your system files or such. In any case you can download the vbs script to delete the StartUp Items from the MSconfig menu from here. Below is the code of this same file:
Code:
'Removes Unchecked StartUp Items from StartUp Msconfig
On Error Resume Next
Message = "This script will remove unchecked items from the MSConfig menu." & vbCr &vbCr
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks")
If X = 6 Then
Set sh = WScript.CreateObject("WScript.Shell")
Set pm = WScript.CreateObject("WScript.Shell")
Set pReg = GetObject("winmgmts:!root/default:StdRegProv")
Const HKLM = &H80000002
RegKeyPHM = "Software\Microsoft\Shared Tools\MSConfig\startupfolder"
RegKeyJAM = "Software\Microsoft\Shared Tools\MSConfig\startupreg"
ResultsPHM = EnumKey(HKLM, RegKeyPHM, False)
If ResultsPHM = "" Then
ResultsPHM = space(5) & "(NONE)"
pBtns = 0
Else
pBtns = 4
pDelPrompt = "Would you like to DELETE any of these items?"
End If
pResults = "Disabled items in Your Startup Folder:" & vbcrlf & _
ResultsPHM & vbcrlf & vbcrlf
ResultsJAM = EnumKey(HKLM, RegKeyJAM, False)
If ResultsJAM = "" Then
ResultsJAM = space(5) & "(NONE)"
If pBtns <> 4 Then pBtns = 0
Else
pBtns = 4
pDelPrompt = "Would you like to DELETE any of these items?"
End If
pResults = pResults & "Disabled items in Startup Reg Keys:" & vbcrlf & _
ResultsJAM & vbcrlf & vbcrlf
If MsgBox(pResults & pDelPrompt, pBtns + 256, "Don't forget to uncheck your StartUp items in Msconfig. ") <> 6 Then WScript.quit
EnumKey HKLM, RegKeyJAM, True
EnumKey HKLM, RegKeyPHM, True
Function EnumKey(Key, SubKey, pDelete)
Dim Ret()
pReg.EnumKey Key, SubKey, pKeys
On Error Resume Next
ReDim Ret(UBound(pKeys))
If Err = 13 Then Exit Function
On Error GoTo 0
For Count = 0 to UBound(pKeys)
If Not pDelete Then
Ret(Count) = space(5) & pKeys(Count)
Else
If MsgBox("Would You Like to DELETE this Item? "& vbcrlf & _
pKeys(Count) & "?" & vbcrlf, 4 + 256 , "This Item Can Be Deleted") = 6 Then
DeleteKey HKLM, SubKey & "\" & pKeys(Count)
End If
End If
Next
EnumKey = Join(Ret, vbcrlf)
End Function
Function DeleteKey(Key, SubKey)
DeleteKey = pReg.DeleteKey(Key, SubKey)
End Function
End If
Bookmarks