| Tim Peters | d71afb2 | 2006-03-16 18:55:20 +0000 | [diff] [blame] | 1 | rem Check for a working sound-card - exit with 0 if OK, 1 otherwise. |
| 2 | set wmi = GetObject("winmgmts:") | ||||
| 3 | set scs = wmi.InstancesOf("win32_sounddevice") | ||||
| 4 | for each sc in scs | ||||
| 5 | set status = sc.Properties_("Status") | ||||
| 6 | wscript.Echo(sc.Properties_("Name") + "/" + status) | ||||
| 7 | if status = "OK" then | ||||
| 8 | wscript.Quit 0 rem normal exit | ||||
| 9 | end if | ||||
| 10 | next | ||||
| 11 | rem No sound card found - exit with status code of 1 | ||||
| 12 | wscript.Quit 1 | ||||
| 13 | |||||