rem Check for a working sound-card - exit with 0 if OK, 1 otherwise.setwmi=GetObject("winmgmts:")setscs=wmi.InstancesOf("win32_sounddevice")foreachscinscssetstatus=sc.Properties_("Status")wscript.Echo(sc.Properties_("Name")+"/"+status)ifstatus="OK"thenwscript.Quit0rem normal exitendifnextrem No sound card found - exit with status code of 1wscript.Quit1