[Mark Hammond]
> Maybe the following VBScript "port" of the above will work:
>
> -- check_soundcard.vbs
> 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
>
> -- eof
>
> Running "cscript.exe check_soundcard.vbs" and checking the return
> code should work.
FYI, "it works" on my main box:
C:\Code>cscript.exe csc.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
Creative Audigy Audio Processor (WDM)/OK
C:\Code>echo %errorlevel%
0
_______________________________________________
Python-Dev mailing list
[email protected]
http://mail.python.org/mailman/listinfo/python-dev
Unsubscribe:
http://mail.python.org/mailman/options/python-dev/archive%40mail-archive.com
