Re: how to get rid of this?

[pcbutts1]

pcbutts1 <pcbu...@thisoldtreehouse.com> 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 fucked. 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\CurrentVersion\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 cunt.

http://66.102.7.104/search?q=cache:xYnMFYDpdXUJ:www.aaasos.kw7.net/download/
msconfigdisabled.vbs+%22ResultsSUR+%3D+EnumKey(HKLM,+RegKeySUR,+False)%22&hl
=en&lr=lang_en

Oopsies.

[TehGhodTrole]

Mark wrote:

> 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.

[homer_...@yahoo.com]

Well, you know, jusy plonk it.

Like Dave

[pcbutts1]

You worthless troll, stop forging me!

[pcbutts1]

pcbutts1, <pcbut...@seedsy.com>, 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/security/spyware/software/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