MASTER TUTORIAL: Make Your Windows XP Super Fast

[echachi81]

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]

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]

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]

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.

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

 

[MTRX]

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

 

[fitz]

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.

 

[rubix08]

Hi,

This is my first post here and thanks Vishal great tips!

 

[anthonycrove]

thanks for the tutorial in which u have explained... thanks for all
_______________________________________________
Anthony

 

[michel.casin]

Thank you for providing great tutorial to make windows fast. After following some of the rules , Windows XP is working very fast.

_______________________________________________

 

[coolnice]

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

 

[Johnny]

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

I really don't see why you responded with that on a 2 1/2 year old thread.

 

[gonaads]

HOLY RESURRECTION BATFINK!