home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2011 June / maximum-cd-2011-06.iso / DiscContents / LibO_3.3.1_Win_x86_install_multi.exe / libreoffice1.cab / check_soundcard.vbs < prev    next >
Encoding:
Text File  |  2011-02-15  |  411 b   |  14 lines

  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.  
  14.