2009年06月19日


VBScript : WMIでリモートPCのサービス開始

' リモートコンピュータの WMI オブジェクトを取得

Const Impersonate = 3

strServer = "ped0-007"
strUser = "lightbox"
strPassword = "password"

' ロケータ
Set objLocator = CreateObject("WbemScripting.SWbemLocator")

on error goto 0
' サービス
Set objWMIService = objLocator.ConnectServer( _
	strServer, _
	"root\cimv2", _
	strUser, _
	strPassword _
)
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if

' セキュリティ
objWMIService.Security_.ImpersonationLevel = Impersonate
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if
on error goto 0

' 対象サービスを取得
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

■ 関連する記事
WMIでローカルPCのサービス開始
コマンドプロンプトからサービス開始


posted by at 2009-06-19 10:40 | WMI | このブログの読者になる | 更新情報をチェックする