Thread: VBscript: How to open a CD-rom

View Single Post

  #1 (permalink)  

Old 06-08-2004, 01:52 AM

VBscript: How to open a CD-rom

This is just a simple script. The script opens the CR-rom to the person who visit the site. Its a funny script!
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p> 
  <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>
<p>
Look at you'r CD-rom, you got a cup holder ;D
</p>
</body>
</html>
[ reply ]
mitsurug1

mitsurug1 is offline The Samurai

mitsurug1's Avatar

Join Date: Jun 2004

Location: \dev\null

Posts: 60