Skip to content

Instantly share code, notes, and snippets.

@bramus
Created October 18, 2013 21:09
Show Gist options
  • Select an option

  • Save bramus/7048316 to your computer and use it in GitHub Desktop.

Select an option

Save bramus/7048316 to your computer and use it in GitHub Desktop.
Kung foo? (found this in my archives somewhere, don't know if it would still work)
<html>
<head>
<title>Kung foo?</title>
</head>
<body>
<script language="VBScript">
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
//-->
</script>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment