set service = GetObject ("winmgmts:")

for each Process in Service.InstancesOf ("Win32_Process")
	If Process.Name = "explorer.exe" then
		wscript.echo "explorer running"
		wscript.quit
	End If
next
wscript.echo "explorer not running"