[kartel]

I want to disable all non-needed services.

I want to be able to:

Surf the net
Use yahoo and msn messenger
Play games like FEAR ect.
Use my defrag
Get messages about firewall ect
Check for updates manually
Keep Aero and Windows Firewall
Keep my computer as quick as possible without getting errors

I don't want to:

Share files
Network or Remote manage anything
No printers or Fax's or Scanners
Remote assistance'
TCIP v6
Tunnels







Thanks

This post has been edited by kartel: 15 February 2007 - 04:12 PM

[Jeremy]

http://www.msfn.org/...showtopic=87443

[kartel]

Yes I seen that topic, I need a custom list that matches my criteria

[Jeremy]

kartel, on Feb 15 2007, 07:10 PM, said:

Yes I seen that topic, I need a custom list that matches my criteria

How do you think everyone else is figuring out their own Services? They are doing trial-and-error. That's the point of the guide, to be of reference.
Besides if you want to play games with optimal FPS, stick with XP. There's an article on Tom's Hardware that shows games running slower on Vista.

[neo]

Speedy Vista

Tweak Vista

It may helps u to over come the problem of What Services can be disabled.

[kartel]

Ok, I have a working list of sevices I disabled and everything has been good for months, and also the same goes for RTM or RC2.
If you have no printers, scanners or share files or remote stuff, you can safely match services with mine with no ill effects.
If anyone see's a problem, please let me know.

[gunsmokingman]

Here is the list of services that I run on Vista Ultimate, I have the printer , updare service running.
Here is the VBS Script that I used to list the Services.

Quote

strComputer = "." 
 Dim Cnt, ColItem, ObjItem, OutFile, Ts, Var1, Var2
 Var1 = Chr(160) & Chr(187) & Chr(160)
 Dim Act :Set Act = CreateObject("WScript.Shell")
 Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
 Dim Wmi :Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
 OutFile = Act.ExpandEnvironmentStrings("%UserProfile%\Desktop\Service.txt")
  Set Ts = Fso.CreateTextFile(OutFile)
  Set ColItem = Wmi.ExecQuery("SELECT * FROM Win32_Service",,48) 
   For Each ObjItem in ColItem 
   Cnt = Cnt + 1
	If Cnt > 99 Then 
	 Cnt = Cnt 
	ElseIf Cnt = 99 Then 
	 Cnt = "0" & Cnt 
	ElseIf Cnt > 9 Then 
	 Cnt = "0" & Cnt
	ElseIf Cnt = 9 Then 
	 Cnt = "00" & Cnt 
	ElseIf Cnt < 9 Then 
	 Cnt = "00" & Cnt 
	End If 
   Var2 = Chr(160) & Chr(171) & " ---------- " & Cnt & " ---------- " & Chr(187) 
	Ts.WriteLine Var2 & vbCrlf & _
	" Caption	  " & Var1 & objItem.Caption & vbCrlf & _
	" Service Name " & Var1 & ObjItem.Name & vbCrlf & _
	" Display Name " & Var1 & ObjItem.DisplayName & vbCrlf & _
	" Service State" & Var1 & ObjItem.State & vbCrlf & _
	" Path Name	" & Var1 & ObjItem.PathName & vbCrlf & _
	" Start Mode   " & Var1 & ObjItem.StartMode & vbCrlf
   Next
  Ts.Close()
  Set Var1 = Fso.GetFile(OutFile)
  Act.Run("Notepad.exe " & Var1.Path),1,True 
  Var2 = MsgBox("Did You Want To Keep This File" & vbCrLf &_
  Var1.Path, 4132,"Keep Or Delete")
  If Var2 = 7 Then Var1.Delete() End If

This post has been edited by gunsmokingman: 25 April 2007 - 03:05 AM