Set WshShell = WScript.CreateObject("WScript.Shell")

strPath = "HKLM\SOFTWARE\Classes\VBSFile\Shell\Open\Command\"
strValue = WshShell.RegRead( strPath )
MsgBox( strValue )

str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
	strMessage = "コマンドプロンプトより cscript " & WScript.ScriptFullName
	strMessage = strMessage & " と指定して実行して下さい　　　" & vbCrLf & vbCrLf
	strMessage = strMessage & "( この文字列をクリップボードにコピーしたい場合は"
	strMessage = strMessage & " ctrl+c です )"
	WScript.Echo strMessage
	WScript.Quit
end if
' **********************************************************
' 実行中サービス一覧
' **********************************************************
strServer = "."

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( _
	strServer, _
	"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

Set objTarget = objWmi.ExecQuery( _
 "select Name,Started,PathName from Win32_Service" _
)

on error resume next
For Each obj in objTarget

	if obj.Started then
		Wscript.Echo obj.Name
	end if

Next
on error goto 0

Set WshShell = WScript.CreateObject( "WScript.Shell" )
Set Fso	= CreateObject( "Scripting.FileSystemObject" )

' **********************************************************
' 実行されているこのディレクトリを取得
' **********************************************************
strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

' **********************************************************
' チェック用の文字列を取得
' **********************************************************
strPath = "HKLM\SOFTWARE\Classes\VBSFile\Shell\Open\Command\"
strValue = WshShell.RegRead( strPath )

' **********************************************************
' Wscript なら、Cscript に変更
' **********************************************************
bWscript = False
if InStr( 1, strValue, "WSCRIPT", 1 ) > 0 then
	bWscript = True
	' コマンドプロンプトを開かない同期処理
	Call WshShell.Run( "cscript.exe /H:Cscript", 0, True )
end if

' **********************************************************
' 同期でコマンドプロンプトを開いて、PAUSE
' **********************************************************
strCommand = "cmd.exe /c """ & strCurPath
strCommand = strCommand & "\list_service_started.vbs"""
strCommand = strCommand & " & pause"
Call WshShell.Run( strCommand, , True )


' **********************************************************
' 元に戻す
' **********************************************************
if bWscript then
	Call WshShell.Run( "cscript.exe /H:Wscript", 0, True )
end if