MASTER TUTORIAL: Make Your Windows XP Super Fast

echachi81

OSNN Newbie
Joined
3 May 2008
Messages
3
Very Useful. I've already applied them and I see a huge improvement. I new to this site and hope to contribute as much as a can in addition from learn from you guys.

Thanks.

:)
 

pavithren

OSNN Newbie
Joined
3 May 2008
Messages
8
thanks dude. previously i had installed xp with sp3 , amit version, and when an app hung, the process would automatically end. this reg modification would surely save my time when apps hang.
 

AmitAgrawal

OSNN One Post Wonder
Joined
8 May 2008
Messages
1
Thanks for the great tutorial! i've performed all the tweaks and my computer shuts down and wakes up in record time! I just couldn't believe it's the same OS
 

gnrbishop

OSNN Newbie
Joined
9 May 2008
Messages
2
mod note: The script below will disable the services listed and should be run at your own risk. Disabling some of the services may break your system or result in a decreased functionality of your system.

I hope this helps someone, I've used it so much to help home users.
This is a script to disable a lot of services that common home users won't need. This is only for those people who have one pc that doesn't need to be networked to other pcs.

To use, copy all information between the "--"'s and paste into notepad.
Save the file as "turn off services.vbs"
and then double-click the file to run it.
Give it a minute or two, then reboot.
You should see the benefits quickly.

CAUTION: Run with care. I accept no responsibility for any problems.
To enable any service that was turned off, click start/run/services.msc
Any service that was needed, right click on it and choose "automatic" instead
of disabled.

Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'Alerter'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next


Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'FastUserSwitchingcompatibility'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next


Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'helpsvc'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'policyagent'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'Remoteregistry'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'seclogon'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'lanmanserver'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'Alerter'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'lmhosts'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'tapisvr'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'tlntsvr'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'termservice'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'w32time'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'lanmanworkstation'")

For Each objService in colServiceList
    If objService.State = "Running" Then
        objService.StopService()
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next
 
Last edited by a moderator:

MTRX

MTRX
Joined
27 Jul 2008
Messages
1
groovy, i knew most of those, but you got me on one that ive been itching to know, the no low disk space check, thanx man. 8D
 
Last edited by a moderator:

fitz

Woah.. I'm still here?
Political Access
Joined
26 Apr 2004
Messages
4,084
Hi MTRX.. your first post was approved but i did remove your signature as it violates the signature guidelines on the forum.

Please take a moment to read the Signature Guidelines which states the following restrictions on Sigatures:
• Signatures can be no larger than 500 pixels wide and 150 pixels in height. The whole image can not exceed more the 70 kb in file size. Be sure your signature does not go over these specifications before posting it. This also includes any text you may place around your signature.
 

anthonycrove

OSNN Newbie
Joined
24 Sep 2008
Messages
2
thanks for the tutorial in which u have explained... thanks for all
_______________________________________________
Anthony
 
Last edited by a moderator:

michel.casin

OSNN Newbie
Joined
3 Oct 2008
Messages
2
Thank you for providing great tutorial to make windows fast. After following some of the rules , Windows XP is working very fast.

_______________________________________________
 
Last edited by a moderator:
C

coolnice

Guest
don't really see where reinventing the wheel turns out to be all that great ...
 

gonaads

Beware the G-Man
Political Access
Joined
31 Mar 2002
Messages
18,474
batfink.gif


HOLY RESURRECTION BATFINK! :eek:
 

Members online

No members online now.

Latest profile posts

hello peeps... is been some time since i last came here.
Electronic Punk wrote on Sazar's profile.
Rest in peace my friend, been trying to find you and finally did in the worst way imaginable.
Terrahertz wrote on Electronic Punk's profile.
Yo fellas!
Electronic Punk wrote on Sazar's profile.
Where are you buddy?
Perris Calderon wrote on Electronic Punk's profile.
Hey EP! All good with me, applying for Microsoft MVP right now, should have done this a while ago.

Notifications don't work, I only found your response by coming back to hunt up some threads, if you want, give me your email address so we can keep in touch easier!

Forum statistics

Threads
62,001
Messages
673,428
Members
5,594
Latest member
RandomCritic