'	Windows2000、何となく無効＆停止にしても大丈夫なんじゃないかサービス一覧
'	http://hp.vector.co.jp/authors/VA014069/
'	Copyright (C) 2004 FREE WING
'
'	自動：Automatic
'	手動：Manual
'	無効：Disabled

'	Alerter
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Alerter'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Automatic Updates
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='wuauserv'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Background Intelligent Transfer Service
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='BITS'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	ClipBook
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='ClipSrv'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 




'	Distributed Link Tracking Client
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='TrkWks'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Event Log
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Eventlog'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	FAX Service
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Fax'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Internet Connection Sharing
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='SharedAccess'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	IPSEC Policy Agent
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='PolicyAgent'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Messenger
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Messenger'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Net Logon
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Netlogon'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	NetMeeting Remote Desktop Sharing
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='mnmsrvc'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Network DDE
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='NetDDE'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Network DDE DSDM
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='NetDDEdsdm'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	QoS RSVP
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='RSVP'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Remote Access Connection Manager
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='RasMan'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Routing and Remote Access
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='RemoteAccess'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Smart Card
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='SCardSvr'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Smart Card Helper
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='SCardDrv'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Task Scheduler
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Schedule'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	TCP/IP NetBIOS Helper Service
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='LmHosts'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Telephony
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='TapiSrv'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Telnet
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='TlntSrv'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Uninterruptible Power Supply
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='UPS'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Utility Manager
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='UtilMan'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next 


'	Windows Time
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='W32Time'") 
for each Service in ServiceSet 
    RetVal = Service.StopService() 
    RetVal = Service.ChangeStartMode("Disabled") 
next