VBScript : WMIでローカルPCのサービス開始

' 管理者として実行を強制する
Set obj = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
	obj.ShellExecute "cscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1
	Wscript.Quit
end if

' ローカルコンピュータの WMI オブジェクトを取得
str = "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
Set objWMIService = GetObject( str )

' 対象サービスを取得
Query = "Select * from Win32_Service where Name='Spooler'"
Set colServiceList = objWMIService.ExecQuery(Query) 

' サービス開始
For each objService in colServiceList 
	errReturn = objService.StartService()
Next

Wscript.Echo errReturn

errReturn は以下の内容が戻されます

Return code	Description
0	Success
1	Not Supported
2	Access Denied
3	Dependent Services Running
4	Invalid Service Control
5	Service Cannot Accept Control
6	Service Not Active
7	Service Request Timeout
8	Unknown Failure
9	Path Not Found
10	Service Already Running
11	Service Database Locked
12	Service Dependency Deleted
13	Service Dependency Failure
14	Service Disabled
15	Service Logon Failure
16	Service Marked For Deletion
17	Service No Thread
18	Status Circular Dependency
19	Status Duplicate Name
20	Status Invalid Name
21	Status Invalid Parameter
22	Status Invalid Service Account
23	Status Service Exists
24	Service Already Paused

関連する記事

コマンドプロンプトからサービス開始


関連する Microsoft ドキュメント

サービスおよびその依存サービスの開始
StartService Method of the Win32_Service Class