Set Argv = WScript.Arguments

if Argv.Count <> 0 then
	strMachine = Argv(0)
	if not strMachine = "." then
		strUser = Argv(1)
		strPass = Argv(2)
	end if
else
	Wscript.Echo "対象 machine を指定して下さい"
	Wscript.Quit
end if

on error resume next
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

Set objWmi = objLocator.ConnectServer( _
	strMachine, _
	"root\cimv2", _
	strUser, _
	strPass )
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

objWmi.Security_.ImpersonationLevel = 3
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if
on error goto 0

' Telephony
SetType "Telephony", "Disabled"
SetType "Remote Access Connection Manager", "Manual"
SetType "Remote Access Auto Connection Manager", "Manual"

' Automatic Updates
' Windows Update 用のサービス。いろいろ問題があるので 無効
' ブラウザから実際に Windows Update するときは自動にする
SetType "Automatic Updates", "Disabled"

' Apache Tomcat
' 開発用サーバーの為、使用しない時は 手動
SetType "Apache Tomcat", "Manual"

' FTP Publishing Service
' IIS の FTP は普通使わないので 手動
SetType "FTP Publishing Service", "Manual"

' Indexing Service
' これに依存する特殊なドキュメント管理を使用しない場合は 手動
SetType "Indexing Service", "Manual"

' Messenger
' ほぼ使用しないので 手動
SetType "Messenger", "Manual"

' MySql 4.0
' 開発用サーバーの為、使用しない時は 手動
SetType "MySql", "Manual"
' MySql 5.0
' 開発用サーバーの為、使用しない時は 手動
SetType "MySql5", "Manual"
' MySql 5.1 ( beta )
' 開発用サーバーの為、使用しない時は 手動
SetType "MySql51", "Manual"

' SMTP
' Microsoft の SMTP は使えないので 手動
SetType "Simple Mail Transfer Protocol (SMTP)", "Manual"

' MSSQL$MSDE2000
' MSDE ( ここで MSDE2000 はインスタンス名 )
SetType "MSSQL$MSDE2000", "Manual"

' Task Scheduler
' 「タスク」 または AT.EXE を使用しない場合は 手動
SetType "Task Scheduler", "Manual"

' XP
' -------------------------------------------------------------
' WebClient
' WebDAV を使用しない場合は 手動
SetType "WebClient", "Manual"

SetType "Windows Audio", "Manual"
SetType "Windows Image Acquisition", "Manual"
SetType "Error Reporting Service", "Manual"

Function SetType( strDisplayName, strType )

	Dim colTarget,errReturnCode

	Set colTarget = objWmi.ExecQuery( _
		"Select * from Win32_Service where DisplayName " & _
		" = '" & strDisplayName & "'" _
	)
	For Each objService in colTarget 
		errReturnCode = objService.Change( , , , , strType ) 
	Next 

End Function