symbian-qemu-0.9.1-12/python-2.6.1/Lib/test/check_soundcard.vbs
author MattD <mattd@symbian.org>
Wed, 10 Mar 2010 16:08:53 +0000
changeset 48 34cd6bf038ac
parent 1 2fb8b9db1c86
permissions -rw-r--r--
Very rough additions to get baseport building after the header reorganisation. Original hardcoded systeminclude paths still left in.

rem Check for a working sound-card - exit with 0 if OK, 1 otherwise.
set wmi = GetObject("winmgmts:")
set scs = wmi.InstancesOf("win32_sounddevice")
for each sc in scs
   set status = sc.Properties_("Status")
   wscript.Echo(sc.Properties_("Name") + "/" + status)
   if status = "OK" then
       wscript.Quit 0 rem normal exit
   end if
next
rem No sound card found - exit with status code of 1
wscript.Quit 1