|
Last change
on this file was 2, checked in by Yuri Dario, 15 years ago |
|
Initial import for vendor code.
|
-
Property svn:eol-style
set to
native
|
|
File size:
411 bytes
|
| Line | |
|---|
| 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 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
