PlaySound

ejectAllDrives

'-----------------------------------------------------
' Purpose:  To play a sound requested by the user.
'
'
'-----------------------------------------------------
function PlaySound

Set WshShell = WScript.CreateObject("WScript.Shell")
strRoot = WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%")
Set objWMP = CreateObject("wmplayer.ocx.7")
objWMP.url = strRoot & "\media\notify.wav"
objWMP.Controls.play
objWMP.Controls.play
wscript.echo "sleeping"
WScript.Sleep 10000
wscript.echo "done sleeping"
objWMP.close
Set objWMP = nothing

end function



'-----------------------------------------------------
' Purpose:  To eject all CDROM drives.
'
'
'-----------------------------------------------------
function ejectAllDrives

Set objWMP = CreateObject("wmplayer.ocx.7")
Set colCDROMs = objWMP.cdromCollection

if colCDROMs.Count >= 1 then
	For i = 0 to colCDROMs.Count - 1
 		colCDROMs.Item(i).Eject
	Next 
End If

end function