Re: how to get rid of this?

pcbutts1 <> wrote:

> Cut and paste everything between the lines into notepad and save it as
> msconfig.vbs .Make sure you change the save as drop down box to all
> files. Once the file is saved then double click on it to run it. This
> script is safe so if you get a warning message ignore it and continue
> running it.
================================================== ==========================
========
>
> 'Digital Security Video
> 'Special thanks to pcbutts1
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^

Oh dear. Surprise, surprise... k00k. Now you're really ****ed. See...?

> 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) & "(none)"
> iBtns = 0
> Else
> iBtns = 4
> sDelPrompt = "Would you like to selectively delete any of these
> items?" End If
> sResults = "Disabled items in startupfolder key:" & vbcrlf & _
> ResultsSUF & vbcrlf & vbcrlf
>
> ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
> If ResultsSUR = "" Then
> ResultsSUR = space(5) & "(none)"
> If iBtns <> 4 Then iBtns = 0
> Else
> iBtns = 4
> sDelPrompt = "Would you like to selectively delete any of these
> items?" End If
> sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf &
> _ vbcrlf & "This operation cannot be undone!", 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")
>
> On Error Resume Next
> Err.Clear
>
> Set WshShell = WScript.CreateObject("WScript.Shell")
> WshShell.RegDelete
>
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\MSConfig"
>
> If Err.Number <> 0 then
> MsgBox "You may need Administrator permissions to run this script" &
> vbcr & "or the registry entry does not exist.",4096,"Error!"
> Else
> MsgBox "The registry entry has been removed.", 4096,"Done!"
> End If
> Set WshShell = Nothing
>
================================================== ==========================
========

'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) & "(none)"
iBtns = 0
Else
iBtns = 4
sDelPrompt = "Would you like to selectively delete any of these items?"
End If
sResults = "Disabled items in startupfolder key:" & vbcrlf & _
ResultsSUF & vbcrlf & vbcrlf

ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
If ResultsSUR = "" Then
ResultsSUR = space(5) & "(none)"
If iBtns <> 4 Then iBtns = 0
Else
iBtns = 4
sDelPrompt = "Would you like to selectively delete any of these items?"
End If
sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf & _
vbcrlf & "This operation cannot be undone!", 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")

Oh, dear. pcbutthead is a plagiarist ****.

http://66.102.7.104/search?q=cache:-....net/download/
msconfigdisabled.vbs+%22ResultsSUR+%3D+EnumKey(HKL M,+RegKeySUR,+False)%22&hl
=en&lr=lang_en

Oopsies.

pcbutts1

Mark wrote:
> On Thu, 23 Jun 2005 07:43:29 -0600, pcbutts1
> <pcbutts1-the-> wrote:
>
>> pcbutts1 <> wrote:
>>
>>> Cut and paste everything between the lines into notepad and save it
>>> as msconfig.vbs .Make sure you change the save as drop down box to
>>> all files. Once the file is saved then double click on it to run
>>> it. This script is safe so if you get a warning message ignore it
>>> and continue running it.
>>
================================================== ==========================
>> ========
>>>
>>> 'Digital Security Video
>>> 'Special thanks to pcbutts1
>>> ^^^^^^^^^^^^^^^^^^^^^^^^^^^
>>
>> Oh dear. Surprise, surprise... k00k. Now you're really ****ed.
>> See...?
>>
>>> 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) & "(none)"
>>> iBtns = 0
>>> Else
>>> iBtns = 4
>>> sDelPrompt = "Would you like to selectively delete any of these
>>> items?" End If
>>> sResults = "Disabled items in startupfolder key:" & vbcrlf & _
>>> ResultsSUF & vbcrlf & vbcrlf
>>>
>>> ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
>>> If ResultsSUR = "" Then
>>> ResultsSUR = space(5) & "(none)"
>>> If iBtns <> 4 Then iBtns = 0
>>> Else
>>> iBtns = 4
>>> sDelPrompt = "Would you like to selectively delete any of these
>>> items?" End If
>>> sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf
>>> & _ vbcrlf & "This operation cannot be undone!", 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")
>>>
>>> On Error Resume Next
>>> Err.Clear
>>>
>>> Set WshShell = WScript.CreateObject("WScript.Shell")
>>> WshShell.RegDelete
>>>
>>
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\MSConfig"
>>>
>>> If Err.Number <> 0 then
>>> MsgBox "You may need Administrator permissions to run this script" &
>>> vbcr & "or the registry entry does not exist.",4096,"Error!"
>>> Else
>>> MsgBox "The registry entry has been removed.", 4096,"Done!"
>>> End If
>>> Set WshShell = Nothing
>>>
>>
================================================== ==========================
>> ========
>>
>> '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) & "(none)"
>> iBtns = 0
>> Else
>> iBtns = 4
>> sDelPrompt = "Would you like to selectively delete any of these
>> items?" End If
>> sResults = "Disabled items in startupfolder key:" & vbcrlf & _
>> ResultsSUF & vbcrlf & vbcrlf
>>
>> ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
>> If ResultsSUR = "" Then
>> ResultsSUR = space(5) & "(none)"
>> If iBtns <> 4 Then iBtns = 0
>> Else
>> iBtns = 4
>> sDelPrompt = "Would you like to selectively delete any of these
>> items?" End If
>> sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf & _
>> vbcrlf & "This operation cannot be undone!", 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")
>>
>> Oh, dear. pcbutthead is a plagiarist ****.
>>
>>
http://66.102.7.104/search?q=cache:-....net/download/
>>
msconfigdisabled.vbs+%22ResultsSUR+%3D+EnumKey(HKL M,+RegKeySUR,+False)%22&hl
>> =en&lr=lang_en
>>
>> Oopsies.
>
>
> doesn't work anyway
> get some errors

That's why it was taken down from the site pcbutthead stole it from.

--
Trolling, for God's sake.

Well, you know, jusy plonk it.

Like Dave

pcbutts1 wrote:
> pcbutts1 <> wrote:
>
> > Cut and paste everything between the lines into notepad and save it as
> > msconfig.vbs .Make sure you change the save as drop down box to all
> > files. Once the file is saved then double click on it to run it. This
> > script is safe so if you get a warning message ignore it and continue
> > running it.
> ================================================== ==========================
> ========
> >
> > 'Digital Security Video
> > 'Special thanks to pcbutts1
> > ^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> Oh dear. Surprise, surprise... k00k. Now you're really ****ed. See...?
>
> > 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) & "(none)"
> > iBtns = 0
> > Else
> > iBtns = 4
> > sDelPrompt = "Would you like to selectively delete any of these
> > items?" End If
> > sResults = "Disabled items in startupfolder key:" & vbcrlf & _
> > ResultsSUF & vbcrlf & vbcrlf
> >
> > ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
> > If ResultsSUR = "" Then
> > ResultsSUR = space(5) & "(none)"
> > If iBtns <> 4 Then iBtns = 0
> > Else
> > iBtns = 4
> > sDelPrompt = "Would you like to selectively delete any of these
> > items?" End If
> > sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf &
> > _ vbcrlf & "This operation cannot be undone!", 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")
> >
> > On Error Resume Next
> > Err.Clear
> >
> > Set WshShell = WScript.CreateObject("WScript.Shell")
> > WshShell.RegDelete
> >
> "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\MSConfig"
> >
> > If Err.Number <> 0 then
> > MsgBox "You may need Administrator permissions to run this script" &
> > vbcr & "or the registry entry does not exist.",4096,"Error!"
> > Else
> > MsgBox "The registry entry has been removed.", 4096,"Done!"
> > End If
> > Set WshShell = Nothing
> >
> ================================================== ==========================
> ========
>
> '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) & "(none)"
> iBtns = 0
> Else
> iBtns = 4
> sDelPrompt = "Would you like to selectively delete any of these items?"
> End If
> sResults = "Disabled items in startupfolder key:" & vbcrlf & _
> ResultsSUF & vbcrlf & vbcrlf
>
> ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
> If ResultsSUR = "" Then
> ResultsSUR = space(5) & "(none)"
> If iBtns <> 4 Then iBtns = 0
> Else
> iBtns = 4
> sDelPrompt = "Would you like to selectively delete any of these items?"
> End If
> sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf & _
> vbcrlf & "This operation cannot be undone!", 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")
>
> Oh, dear. pcbutthead is a plagiarist ****.
>
> http://66.102.7.104/search?q=cache:-....net/download/
> msconfigdisabled.vbs+%22ResultsSUR+%3D+EnumKey(HKL M,+RegKeySUR,+False)%22&hl
> =en&lr=lang_en
>
> Oopsies.

You worthless troll, stop forging me!



pcbutts1 wrote:
> pcbutts1 <> wrote:
>
>> Cut and paste everything between the lines into notepad and save it
>> as msconfig.vbs .Make sure you change the save as drop down box to
>> all files. Once the file is saved then double click on it to run it.
>> This script is safe so if you get a warning message ignore it and
>> continue running it.
> ================================================== ==========================
> ========
>>
>> 'Digital Security Video
>> 'Special thanks to pcbutts1
>> ^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> Oh dear. Surprise, surprise... k00k. Now you're really ****ed. See...?
>
>> 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) & "(none)"
>> iBtns = 0
>> Else
>> iBtns = 4
>> sDelPrompt = "Would you like to selectively delete any of these
>> items?" End If
>> sResults = "Disabled items in startupfolder key:" & vbcrlf & _
>> ResultsSUF & vbcrlf & vbcrlf
>>
>> ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
>> If ResultsSUR = "" Then
>> ResultsSUR = space(5) & "(none)"
>> If iBtns <> 4 Then iBtns = 0
>> Else
>> iBtns = 4
>> sDelPrompt = "Would you like to selectively delete any of these
>> items?" End If
>> sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf &
>> _ vbcrlf & "This operation cannot be undone!", 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")
>>
>> On Error Resume Next
>> Err.Clear
>>
>> Set WshShell = WScript.CreateObject("WScript.Shell")
>> WshShell.RegDelete
>>
> "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\MSConfig"
>>
>> If Err.Number <> 0 then
>> MsgBox "You may need Administrator permissions to run this script" &
>> vbcr & "or the registry entry does not exist.",4096,"Error!"
>> Else
>> MsgBox "The registry entry has been removed.", 4096,"Done!"
>> End If
>> Set WshShell = Nothing
>>
> ================================================== ==========================
> ========
>
> '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) & "(none)"
> iBtns = 0
> Else
> iBtns = 4
> sDelPrompt = "Would you like to selectively delete any of these
> items?" End If
> sResults = "Disabled items in startupfolder key:" & vbcrlf & _
> ResultsSUF & vbcrlf & vbcrlf
>
> ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
> If ResultsSUR = "" Then
> ResultsSUR = space(5) & "(none)"
> If iBtns <> 4 Then iBtns = 0
> Else
> iBtns = 4
> sDelPrompt = "Would you like to selectively delete any of these
> items?" End If
> sResults = sResults & "Disabled items in startupreg key:" & 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("Do you want to delete " & sKeys(Count) & "?" & vbcrlf & _
> vbcrlf & "This operation cannot be undone!", 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")
>
> Oh, dear. pcbutthead is a plagiarist ****.
>
> http://66.102.7.104/search?q=cache:-....net/download/
> msconfigdisabled.vbs+%22ResultsSUR+%3D+EnumKey(HKL M,+RegKeySUR,+False)%22&hl
> =en&lr=lang_en
>
> Oopsies.

pcbutts1, <>, the non-existent, lowbred cat, and
crockery maker and pig attendant on the farm, drizzled:


> You worthless troll, stop forging me!

Could be Spyware trying to hijack you. Download, install, update and run all
of the following.

Ad-Aware
http://www.lavasoftusa.com/software/adaware/

Spybot search and destroy
http://www.safer-networking.org/en/download/

Microsoft Windows AntiSpyware (Beta)
http://www.microsoft.com/athome/secu...e/default.mspx

If none of the above fixes the issue then download Hijack this, run it, save
a copy of the log file and cut and paste it back here to the group so that
it can be analyzed.

HijackThis
http://www.spywareinfo.com/~merijn/downloads.html